В чём может быть проблема IdHTTP

[paxan86]

Вылетает ошибка
Код :

var h: TIdHTTP;
s: string;
begin
h:=TIdHTTP.Create(nil);
s:='';
h.HandleRedirects:=true;
try
  s:=h.GET('http:/ya.ru');  <<< Сдесь EIdSocketError
except end;
if s<>'' then MessageBox(0,'Ìîäåì äîñòóïåí','Óðà',MB_OK) else MessageBox(0,'Ìîäåì ÍÅ äîñòóïåí','Îøèáêà',MB_OK);
h.free;

[Slym]

две косые http://

[paxan86]

procedure TForm1.Timer1Timer(Sender: TObject);
var connected, s:string;
begin
Try
begin
s := IdHTTP1.Get( PingURL );
connected := 'True1';
form1.Label3.Caption := 'Okay #1';
end;
Except
if s='' then
begin
connected := 'False1';
form1.Label3.Caption := 'Error #1';
End;
end;



s := '';

if connected = 'false1' then
Try
begin
s := IdHTTP1.Get( 'http://192.168.1.1' );
connected := 'True2';
form1.Label3.Caption := 'Okay #2';
end;
Except
if s='' then
begin
connected := 'False2';
form1.Label3.Caption := 'Error #2';
end;
End;

//showmessage(connected);
//showmessage(connected);


if connected = 'True2'then
begin
form1.webbrowser1.navigate( 'http://admin:admin@192.168.1.1/rebootinfo.cgi');
form1.Timer1.Enabled := False;
form1.Timer2.Enabled := true;
form1.Label3.Caption := 'Okay #3';
end;
if connected = 'False2' then
begin
MessageBox(0,'Ìîäåì íåñòóïåí, ïåðåçàãðóçèòå åãî âðó÷íóþ','Óðà',MB_OK);
form1.Label3.Caption := 'Error #3';
end;

[paxan86]

подскажите код правильный.
Спасибо.

[bulldog5293]

1)оформи в теги
2)connected, s:string; замени на булену
3)На глаз вроде правильно, дельфи нет под рукой

[Пепел Феникса]

проверяйте вне отладчика, и если версия Делфи больше 6(в 7-ен помоему уже так), то прочитайте сообщение до конца
в шестерке просто Run еще раз.

PS: учитесь пользоваться отладчиком.