20 lines
271 B
Text
20 lines
271 B
Text
|
program ShowHTTP;
|
||
|
|
|
||
|
|
{$APPTYPE CONSOLE}
|
||
|
|
|
||
|
|
uses IdHttp;
|
||
|
|
|
||
|
|
var
|
||
|
|
s: string;
|
||
|
|
lHTTP: TIdHTTP;
|
||
|
|
begin
|
||
|
|
lHTTP := TIdHTTP.Create(nil);
|
||
|
|
try
|
||
|
|
lHTTP.HandleRedirects := True;
|
||
|
|
s := lHTTP.Get('http://www.rosettacode.org');
|
||
|
|
Writeln(s);
|
||
|
|
finally
|
||
|
|
lHTTP.Free;
|
||
|
|
end;
|
||
|
|
end.
|