VPF::Webbrowser ReadyState проблемы - Форум программистов

darkcoder

Дата 17.7.2009, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 31.3.2007

Репутация: нет
Всего: нет

Привет. Как сделать чтобы данная поцедура подождала полной загрузки документа?
то есть чтобы 'all done' появлялось только после загрузки.
Данный код с READYSTATE_COMPLETE вообще не хочет работать.

Код


procedure TForm1.FormCreate(Sender: TObject);
begin

Memo1.Lines.Add('start');

WebBrowser1.Navigate('http://google.com');

 while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;

Memo1.Lines.Add('all done');

end;

Crw

Дата 17.7.2009, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 25.2.2008

Репутация: 3
Всего: 4

Лучше делать перехват DISPID_DOCUMENTCOMPLETE.

Keeper89

Дата 17.7.2009, 20:05 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Что значит подождала? Если что-то должно выполнится после загрузки, можно вставить это в событие OnDocumentComplete.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »