Текущая версия на 12:36, 11 января 2020

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

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

@@ Строка 1: / Строка 1: @@
-QrAddFn2 - это файл программы на языке Pascal ( QrAddFn2.pas )
+[[QrAddFn2]] - это файл программы на языке Pascal ( [[QrAddFn2.pas]] )
+= Смотрите также =
+[[Функции Delphi]]
-= { TQREvIdHTTPGet } =
+[[QrAddFn2.pas]]
-'''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' );