QrAddFn2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[QrAddFn2]] - это файл программы на языке Pascal ( [[QrAddFn2.pas]] ) | [[QrAddFn2]] - это файл программы на языке Pascal ( [[QrAddFn2.pas]] ) | ||
| − | |||
= { TQREvIdHTTPGet } = | = { TQREvIdHTTPGet } = | ||
| − | |||
'''implementation''' | '''implementation''' | ||
| − | |||
'''type''' | '''type''' | ||
TQREvIdHTTPGet = '''class''' ( TQREvElementFunction ) | TQREvIdHTTPGet = '''class''' ( TQREvElementFunction ) | ||
| Строка 24: | Строка 21: | ||
'''end''' | '''end''' | ||
'''end'''; | '''end'''; | ||
| − | |||
'''initialization''' | '''initialization''' | ||
| − | |||
RegisterQRFunction( TQREvIdHTTPGet, '[[IdHTTPGet]]', 'IdHTTPGet( запрос http типа GET )|' + | RegisterQRFunction( TQREvIdHTTPGet, '[[IdHTTPGet]]', 'IdHTTPGet( запрос http типа GET )|' + | ||
'Посылает http запрос типа GET', 'Alexey', '1S' ); | 'Посылает http запрос типа GET', 'Alexey', '1S' ); | ||
Версия 10:58, 20 сентября 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' );
