unit hiHTTP_PostBuilder;

interface

uses Kol,Share,Debug;

type
  THIHTTP_PostBuilder = class(TDebug)
   private
   public
    _prop_Content:string;
    _prop_URL:string;
    _prop_Host:string;
    _prop_Referer:string;

    _data_Referer:THI_Event;
    _data_Host:THI_Event;
    _data_URL:THI_Event;
    _data_Content:THI_Event;
    _data_Session:THI_Event;
    _event_onBuild:THI_Event;

    procedure _work_doBuild(var _Data:TData; Index:word);
  end;

implementation

procedure THIHTTP_PostBuilder._work_doBuild;
var s,c,u,h,r,ss:string;
begin
   c := ReadString(_Data, _data_Content, _prop_Content);
   u := ReadString(_Data, _data_URL, _prop_URL);
   h := ReadString(_Data, _data_Host, _prop_Host);
   r := ReadString(_Data, _data_Referer, _prop_Referer);
   ss := ReadString(_Data, _data_Session);
   s := 'POST ' + u + ' HTTP/1.1'#13#10 +
        'Host: ' + h + #13#10 +
        'Content-Type: application/x-www-form-urlencoded' + #13#10;
   if r <> '' then
     s := s + 'Referer: ' + r + #13#10;
   if ss <> '' then
     s := s + 'Cookie: ' + ss + #13#10;
          
   s := s + 'Content-Length: ' + int2str(length(c)) + #13#10 + #13#10 + c + #13#10;
   _hi_onEvent(_event_onBuild, s);      
end;

end.

[About]
Version=1.0
Author=Dilma
Mail=hiasm@mail.ru

[Type]
Class=Element
Info=Построитель POST запроса
Tab=Internet

[Property]
Content=Данные для отправки запроса|2|
URL=Адрес траницы, обрабатывающей запрос|2|
Host=Имя хоста, обрабатывающего запрос|2|
Referer=Адрес страницы, с которой отправляется запрос|2|

[Methods]
doBuild=Формирует POST запрос для отправки на сервер|1|0
onBuild=Событие происходит всякий раз после формирования POST запроса и выдает его в поток ARG(PostText)|2|0
Content=Данные для отправки запроса|4|2
URL=Адрес траницы, обрабатывающей запрос|4|2
Host=Имя хоста, обрабатывающего запрос|4|2
*Referer=Адрес страницы, с которой отправляется запрос|4|2
*Session=Cookie|4|2