blob: b46eb177f63aa6f02eb97564544562d346591367 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
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.
|
