/packages/fcl-web/examples/httpclient/httpget.pas

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