17 lines
215 B
ObjectPascal
17 lines
215 B
ObjectPascal
|
{$mode objfpc}{$H+}
|
||
|
|
uses fphttpclient;
|
||
|
|
|
||
|
|
var
|
||
|
|
s: string;
|
||
|
|
hc: tfphttpclient;
|
||
|
|
|
||
|
|
begin
|
||
|
|
hc := tfphttpclient.create(nil);
|
||
|
|
try
|
||
|
|
s := hc.get('http://www.example.com')
|
||
|
|
finally
|
||
|
|
hc.free
|
||
|
|
end;
|
||
|
|
writeln(s)
|
||
|
|
end.
|