[Delphi] Функции GET и POST запросов

В некоторых программах нужно несколько раз подряд отсылать запросы,
и писать каждый раз запрос по новой утомительно, да и занимает код много места.

Вот решил выложить для начинающих кодеров функцию упрощающую эту задачу.

И так первой рассмотрим GET функцию:

Code:

function GETSynapse(Link:String):String;
var
   HTTP: THTTPSend;
   Response: TStringList;
begin
   HTTP:= THTTPSend.Create;
   Response:= TStringList.Create;
   HTTP.HTTPMethod('GET', Link);
   Response.LoadFromStream(HTTP.Document);
   Result:=Response.Text;
end;

Применение GET функции:
GETSynapse('ссылка');
Пример:

Code:

Memo1.Lines.Add(GETSynapse('http://site.ru/'));

Теперь рассмотрим POST функцию на примере авторизации на Hostinger (не реклама):

Code:

function POSTSynapse(Link, SData: string):String;
var
   HTTP:THTTPSend;
   Response:TStringList;
   Data:TStringStream;
begin
   HTTP:=THTTPSend.Create;
   Response:=TStringList.Create;
   Data:=TStringStream.Create;
   Data.WriteString(SData);
   HTTP.Document.LoadFromStream(Data);
   Data.Free;
   HTTP.MimeType:='application/x-www-form-urlencoded';
   HTTP.HTTPMethod('POST', Link);
   Response.LoadFromStream(HTTP.Document);
   Result:=Response.Text;
end;

Применение POST функции:
POSTSynapse('ссылка','пост данные');
Пример:

Code:

Memo1.Lines.Add(POSTSynapse('http://cpanel.hostinger.ru/auth','email=login@damain.ru&password=password'));

Ну вот и всё) Надеюсь чем-то помог)

 

А теперь научи устанавливать synapse на free pascal и как в нем делать get и post?:D

 

Шутник от Бога!

 

я где-то читал, что синапс можно поставить т.к. это библиотека, а не визуальный компонент.
а где читал - не помню.

 

ну вот не умею я пост запросы составлять, ну че поделать?

 

Ну не на Free Pascal!

 

как капчу обходить?)