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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 5 промежуточных версий этого же участника)
Строка 1: Строка 1:
 
[[QrAddFn2]] - это файл программы на языке Pascal ( [[QrAddFn2.pas]] )
 
[[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]]
 
[[QrAddFn2.pas]]
 
[[Функции Delphi]]
 
 
[[Полезные функции]]
 

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

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

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

Функции Delphi

QrAddFn2.pas