Показать сообщение отдельно
  #2  
Старый 02.07.2010, 13:26
Аватар для NumLock
NumLock NumLock вне форума
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.
Ответить с цитированием