Доступность сайта

[phphel]

Версия дельфи 7. Версия инди 10, может я что-то не так делаю, скиньте пожалуйста рабочий пример.

Можно просто .exe..

Ибо я вчера тоже с этим мучался, проверять проверяет, но свою ошибку вываливает

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

я не могу, я не дома, тут нет компиля

[phphel]

Ну делаю по той функции, что Вы привели.
И если указать несуществующий адрес.
То indy сообщает "Host not found"

Народ, помогите, уже реал запарился с этой проблемой, как только не пробовал..

Выдает свое исключение и все тут...

[XerSon]

Проверил на Д2009 все ок, инди не обновлял!

implementation

uses IdHttp;

{$R *.dfm}

function IsAvaliable(URL:string):boolean;
var H:Tidhttp;
begin
 Result:=true;
 H:=Tidhttp.create;
 try
  H.Get(URL);
 except
  Result:=false;
 end;
 H.Free;
end;

procedure TForm17.Button1Click(Sender: TObject);
begin
if IsAvaliable('http://www.ya.ru') = true then
showmessage('Good') else
showmessage('Bad');
end;

[XerSon]

Сообщение от phphel

Народ, помогите, уже реал запарился с этой проблемой, как только не пробовал..

Выдает свое исключение и все тут...

Юрл правильно пиши!