#ini
[About]
Version=0.4
Author=iarspider
Mail=

[Type]
Class=Element
Info=Выполнение запроса через cURL
Tab=Internet

[Property]
+URL=URL запроса|2|
Cookies=Строка, содержащая cookies. Пары ключ-значение разделяются символом ';'|2|
Method=|4|0|GET,POST,PUT
##
Type=Тип прокси|4|0|HTTP,"Socks v4","Socks v5"
Host=Имя или IP прокси-сервера|2|
Port=Порт прокси-сервера|1|0
ProxyUser=Имя пользователя proxy|2|
ProxyPass=Пароль пользователя proxy|2|
##
##
Basic=Разрешить использование Basic-аутентификации|4|1|Enable,Disable
Digest=|4|1|Enable,Disable
NTLM=|4|0|Enable,Disable
Negotiate=|4|0|Enable,Disable
##
##
User=Имя пользователя для HTTP-аутентификации|2|
Password=Пароль для HTTP-аутентификации|2|
##

[Methods]
doPerform=|1|0
URL=URL запроса|4|2
Cookies=Строка, содержащая cookies. Пары ключ-значение разделяются символом ';'|4|2

#pas
unit hicURL_perform;

interface

uses Kol,Share,Debug;

type
  THIcURL_perform = class(TDebug)
   private
   public
    _prop_+URL:string;
    _prop_Cookies:string;
    _prop_Method:byte;
    _prop_##:
    _prop_Type:byte;
    _prop_Host:string;
    _prop_Port:integer;
    _prop_ProxyUser:string;
    _prop_ProxyPass:string;
    _prop_##:
    _prop_##:
    _prop_Basic:byte;
    _prop_Digest:byte;
    _prop_NTLM:byte;
    _prop_Negotiate:byte;
    _prop_##:
    _prop_##:
    _prop_User:string;
    _prop_Password:string;
    _prop_##:

    _data_Cookies:THI_Event;
    _data_URL:THI_Event;

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

implementation