
02.07.2010, 13:26
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
IdHTTP,
SysUtils;
var
http: TIdHTTP;
s: String;
begin
http:=TIdHTTP.Create(nil);
try
s:=http.Get('http://ya.ru');
Writeln(http.ResponseText);
Writeln(s);
except
on E: Exception do Writeln(E.message);
end;
http.Free;
Readln;
end.
|