QrAddFn2 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м ({ TQREvIdHTTPGet })
м (Смотрите также)
Строка 31: Строка 31:
  
 
= Смотрите также =
 
= Смотрите также =
 
+
[[Полезные функции]]
[[QrAddFn2.pas]]
+
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
  
[[Полезные функции]]
+
[[QrAddFn2.pas]]

Версия 13:59, 26 апреля 2017

QrAddFn2 - это файл программы на языке Pascal ( QrAddFn2.pas )

{ TQREvIdHTTPGet }

implementation

type
  TQREvIdHTTPGet = class ( TQREvElementFunction )
  public
    function Calculate: TQREvResult; override;
  end;
function TQREvIdHTTPGet.Calculate: TQREvResult;
var
  IdHTTP1: TIdHTTP;
  res: string;
begin
  try
    IdHTTP1 := TIdHTTP.Create();
    res := IdHTTP1.Get( 'http://' + Argument( 0 ).strResult );
    Result.StrResult := res;
    Result.Kind := ResString;
  finally
    FreeAndNil( IdHTTP1 );
  end
end;

initialization

RegisterQRFunction( TQREvIdHTTPGet, 'IdHTTPGet', 'IdHTTPGet( запрос http типа GET )|' +
   'Посылает http запрос типа GET', 'Alexey', '1S' );

Смотрите также

Полезные функции

Функции Delphi

QrAddFn2.pas