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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м ({ TQREvIdHTTPGet })
м
 
(не показано 11 промежуточных версий этого же участника)
Строка 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' );
+

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

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

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

Функции Delphi

QrAddFn2.pas