WebBrowser - узнать об ошибке.

[AXS]

Как в TWebBrowser узнать что не удалось открыть страницу ("Невозможно отобразить страницу")? Не нашёл события вроде OnError...
Очень надо. Не высыпаюсь из за этого

[Alar]

Во первых, страница с 404 ошибкой тоже страница.

[AXS]

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

Во первых, страница с 404 ошибкой тоже страница.

Спасибо, просвятил... Однако я открываю http://www.programmersforum.ru а открывается страница с 404.... Вот этот момент и надо отследить.
Есть один способ

procedure TForm1.WebBrowser1TitleChange(Sender: TObject; const Text: WideString);
begin
 if ((text= 'Сервер не найден') or (text= 'Not Found')) then
  ShowMessage('404');
end;

Но это способ как говорится ... и не всегда работает... Поэтому и спрашиваю "Как это сделать?"

[Alar]

Значит делай так.

idhttp1.timeout:=30000 //30 секунд
memo1.clear;
memo1.Text:=idhttp1.get('http://www.programmersforum.ru');

если страница по http протоколу не ответит. то в memo1.Text будет равен ''

Если 404 страница, то нужно либо юрл проверять на наличие 404, либо весь текст мониторить на наличие такого текста в цикле.

http://delphibasics.ru/AnsiContainsStr.php

Функция AnsiContainsStr ищет строку Needle в строке Haystack, возвращая истину, если таковая есть. Иначе возвращается ложь.