Anonymous user
HTTP: Difference between revisions
Fixed the rest of the whitespace.
(Fixed whitespace and removed comments as code should be self explanatory.) |
(Fixed the rest of the whitespace.) |
||
Line 792:
end;
Readln;
end.</lang>
Using Indy:
<lang Delphi>program ShowHTTP;▼
▲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.</lang>
| |||