Текущая версия на 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' );