Проверка окончания загрузки страницы в WebBrowser

[Vladimir K.]

Для проверки начала загрузки страницы в WebBrowser использую свойство OnDownloadBegin, а для окончания загрузки страницы - свойство OnDownloadComplete, но оно срабатывает раньше, чем страница загружается полностью, со всеми картинками и пр.
Есть ли альтернативный способ проследить полную загрузку?

[Vladimir K.]

Вопрос решен. Всем спасибо.

[Квэнди]

Если вы пишете воспрос и решаете его сами, описывайте свое решение для других, возможно оно будет лучше чем более ранние решения

[mihali4]

[OFF]Присоединясь. Если для вас наш форум не только как бумажка для подтирки (когда приперло. а деваться некуда ), поделитесь решением вопроса - нам будет легче, не отрываясь на решение уже решенной задачи - просто дать ссылку на эту тему.
Надеюсь на ваше взаимопонимание...
З.Ы. Вообще, если вы заметили, наши модераторы не для того сидят, чтобы баны раздавать, а именно для того, чтобы играть роль "скорой помощи" (причем весьма, на мой взгляд, квалифицированной), ежели другие участники форума задерживаются с ответами.
Кстати, удивительно, насколько редко это бывает (это я про баны), видимо, сказывается общая культура форума (АЛАР у нас - молодец, воспитал, а самое главное - прежде подобрал кого надо!).[/OFF]

[Vladimir K.]

Прошу прощения. просто подумал это неинтересно общественности...
Вот решение:

var

  CurDispatch: IDispatch; {save the interface globally }

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);

begin
  if CurDispatch = nil then
    CurDispatch := pDisp; { save for comparison }
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if (pDisp = CurDispatch) then
  begin
    Beep; {the document is loaded, not just a frame }
    CurDispatch := nil; {clear the global variable }
  end;
end;

NavigateComplete2 возникает, когда приходит первая порция данных с сервера.
pDisp хранит ссылку на интрерфейс главной страницы...т.е. той, в которую могут быть вложены фреймы.
DocumentComplete срабатывает каждый раз при окончании загрузки
документа(фрейма).
Мы просто проверяем в каждом DocumentComplete, какой документ окончил загрузку, и, если это документ который был первым-главным, то все ОК!!! страница загружена полностью.


procedure TForm1.WebBrowser1DocumentComplete( Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
if (pDisp = CurDispatch) then
begin
Beep; {the document is loaded, not just a frame }
CurDispatch := nil; {clear the global variable }
Сюда вставлять свои команды, которые должны выполняться по окончании загрузки
end;
end;

Форум отличный! Действительно Скорая Помощь! Всем спасибо.

[Virtson]

и Вам , спасибо

[dirtytyphon]

procedure TfrmMain.BrowserDocumentComplete(Se nder: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin

if pDisp=(Sender as TWebBrowser).Application then
//загрузка завершена
...
else
//загружается фрэйм
...;

end;

[Роман Радер]

Здравствуйте!
Я вот чего тему-то поднял...
способы работают, но если вдруг в одном фрейме будет ошибка загрузки - все, не вызывается последний раз для полного завершения.
как это исправить?

[postal2]

В этом случае можно смотреть в сторону ошибки

procedure TForm1.webbrowser1NavigateError(ASender: TObject;
  const pDisp: IDispatch; var URL, Frame, StatusCode: OleVariant;
  var Cancel: WordBool);
begin
webbrowser1.Stop;
 showmessage('fail');
//ну, и наш код здесь.
end;