1. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

Delphi отправка GET запроса [synapse]

Тема в разделе "Исходники / Source", создана пользователем bilka00, 12.09.2015.

  1. bilka00

    bilka00 VIP

    Фев 23 2017 в 23:28
    Регистрация:
    27.08.2015
    Сообщения:
    210
    Симпатии:
    140
    Функция для отправки GET запроса:
    Код:
    function HTTP_GET(url:string):string;
      var
        HTTP:THTTPsend;
        HTML:TStringList;
    begin
    HTTP:=THTTPsend.Create;
    HTML:=TStringList.Create;
    HTTP.HTTPMethod('GET',url);
    HTML.LoadFromStream(HTTP.Document);
    result := HTML.Text;
    HTTP.Destroy;
    HTML.Destroy;
    end;
    
    Юзать вот так:
    Код:
    HTML:=HTTP_GET('vk.com/index.php'):string;
    
    Переменная HTML типа String.
    Для роботы нужен установленый synapse
     
    TheArtik, SPIFO и D.Evenjo нравится это.
  2. cr3ck

    cr3ck Модератор
    Команда форума

    Фев 25 2017 в 14:00
    Регистрация:
    01.02.2016
    Сообщения:
    358
    Симпатии:
    169
    Skype:
    Telegram:
    ну хоть один качественный код