/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

  1. program httpget;
  2. {$mode objfpc}{$H+}
  3. uses
  4. SysUtils, Classes, fphttpclient;
  5. var
  6. i : Integer;
  7. begin
  8. if (ParamCount<>2) then
  9. begin
  10. writeln('Usage : ',ExtractFileName(ParamStr(0)), 'URL filename');
  11. Halt(1);
  12. end;
  13. With TFPHTTPClient.Create(Nil) do
  14. try
  15. Get(ParamStr(1),ParamStr(2));
  16. Writeln('Response headers:');
  17. For I:=0 to ResponseHeaders.Count-1 do
  18. Writeln(ResponseHeaders[i]);
  19. finally
  20. Free;
  21. end;
  22. end.