Проверка наличия элемента в Webbrowser

[Verst]

Доброго времени суток!
В программе есть таймер, который через заданное время обращается к элементу на странице. Но страница (с тем что запращивается) в программе открыта не всегда, т.е. нужно получать его только когда он вообще существует.

WebBrowser1.OleObject.Document.Frames.Item(3).Frames.Item(0).Document

Вот какой элемент нужно получить. при запуске программы, она естественно его не находит и вылетает ошибка. Можно сделать по определению адреса сайта, но бывает и там вылетает ошибка о недоступности элемента.
Вопрос: как узнать есть ли на странице нужный мне элемент или нету и соответственно выполнять дальше программу или пропустить.

[Marsel737]

Verst, зачем тебе засовывать этот код в таймер?

Пропиши вот так:

procedure TfrmMyBrowser.WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
var
  CurrentWB: TWebbrowser;
begin
  CurrentWB := TWebbrowser(PageControl.ActivePage.Controls[0]);
  CurrentWB .OleObject.Document.Frames.Item(3).Frames.Item(0).Document;
end;

Т.е. эта процедура будет выполнятся каждый раз когда будет загружена страница в веббраузер, причем если вместо Webbrowser1 написать CurrentWB эта процедура будет выполняться для каждой страницы PageControl'а

[Verst]

Marsel737, потому что мне надо получать лог чата, а чат находиться во фрейме.
И к тому же, твой вариант не решает проблему есть элемент на странице или нету, если его не будет, то выдаст ошибку.

[mihali4]

И еще раз -
try..except
Ошибка будет выдаваться при запуске из-под Дельфи, и это - естественно...
А вот если вы просто экзешник запустите, то все будет ок.

procedure TForm1.Button1Click(Sender: TObject);
begin
try
WebBrowser1.OleObject.Document.Frames.Item(3).Frames.Item(0).Document;
ShowMessage('Good');
except
ShowMessage('Bad');
end;
end;

[Verst]

mihali4, Спасибо огромное что объяснили
А при запуске из-под Дельфи можно как то выключить выводимые ошибки?

[mihali4]

Да.
Меню->Tools->Debugger Options->снять птицу с Integrated debugging (внизу слева)

[Verst]

mihali4, еще раз огромное спасибо