/packages/fcl-web/examples/httpclient/httpget.pas
https://github.com/slibre/freepascal · Pascal · 27 lines · 21 code · 5 blank · 1 comment · 1 complexity · b64a5a9e75f8c9e790a7e56d0dd6e594 MD5 · raw file
- program httpget;
- {$mode objfpc}{$H+}
- uses
- SysUtils, Classes, fphttpclient;
- var
- i : Integer;
- begin
- if (ParamCount<>2) then
- begin
- writeln('Usage : ',ExtractFileName(ParamStr(0)), 'URL filename');
- Halt(1);
- end;
- With TFPHTTPClient.Create(Nil) do
- try
- Get(ParamStr(1),ParamStr(2));
- Writeln('Response headers:');
- For I:=0 to ResponseHeaders.Count-1 do
- Writeln(ResponseHeaders[i]);
- finally
- Free;
- end;
- end.