From Stealth Client

Jump to: navigation, search

ХТТП

HTTP_Body

function HTTP_Body : String

HTTP_Get

procedure HTTP_Get(URL : String; LStream : TMemoryStream = nil)

Процедура заполняющая HTTP_BODY, HTTP_HEADER данными которые получает выполняя запрос по заданному URL Параметр LStream - опциональный (необязательный), используется для получения необработанных байт в виде TMemoryStream, например для получения файлов (пример 2).

//Пример1: получим текущую дату и время от сайта timeapi.org
procedure SayCurrentDateAndTime;
begin
  //Делаем запрос
  HTTP_Get('http://www.timeapi.org/pdt/in+nine+hours');
  //Выводим содержание ответа
  AddToSystemJournal(HTTP_Header);
end;
 
//Вывод:
//19:20:02:063 [Stealth]: Compiled succesfully
//19:20:02:383 [Stealth]: 2016-12-23T19:20:00-07:00
//19:20:02:393 [Stealth]: Succesfully executed


Пример2: скачать и сохранить кодированный стелсом скрипт (обновление скрипта)

procedure GetAndSaveSomeData;
var 
  Stream : TMemoryStream;
begin
  try
    //Создаем поток
    Stream := TMemoryStream.Create;  
    //Наш запрос выполнится и заполнит своим ответом поток
    HTTP_GET('https://raw.githubusercontent.com/drabadan/Stealth780Scripts/master/autoUpdaterTestScriptCompiled.sc.cps', Stream);   
    //Сохраняем поток в файл, аргумент = путь к файлу на диске
    Stream.SaveToFile('c:\helloWorld.cps');
  finally
    //Освобождаем объект
    Stream.Free;
  end;  
end;

HTTP_Header

function HTTP_Header : String

HTTP_Post

function HTTP_Post(URL : String; PostData: TStringList) : String