VPF::webbrowser загрузка фрейма - Форум программистов

Ferroks

Дата 4.8.2008, 20:31 (ссылка)

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

Загрузка ...

Новичок

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

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

есть страничка, там несколько фреймов, ищу нужный фрейм, нахожу нужную ссылку, нажимаю ее, как мне проверить окончание загрузки фрейма и продолжить выполнение программы.

Пи.Си. про WebBrowser.ReadyState, DocumentComplete, читал но непонял как с ними работать.

garcia

Дата 5.8.2008, 14:52 (ссылка)

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

Загрузка ...

Новичок

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

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

В обработчике DocumentComplete, и только в нем (по моему опыту)
Можно например при окончании загрузки страницы взводить соотв. флажки, а в процедуре, которая ждет загрузки страницы проверять эти флажки (перед navigate флажки естественно сбросить)

Код


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document: OleVariant;
  WindowName: string;
begin
  CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
  //загрузился ли главный документ?
  if CurWebrowser = TopWebBrowser then begin
     // например, взводим флажок
     DocComplete:=true;
  end
  else begin
    Document := CurWebrowser.Document;
    try
      WindowName := Document.ParentWindow.Name;
    except
    end;
    //загрузился ли фрейм с именем FRAME1?
    if WindowName = 'FRAME1' then Frame1Complete:=true; // взводим флажок фрейма 1
    //загрузился ли фрейм с именем FRAME2?
    if WindowName = 'FRAME2' then Frame2Complete:=true; // взводим флажок фрейма 2
    ...
  end;
end;

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