Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Браузер \ Использовать событие OnDocumentComplete у TWebBrowser при наличии фреймов

Использовать событие OnDocumentComplete у TWebBrowser при наличии фреймов

{ 
 When loading a page based on different frames into webbrowser 
 control, "ONDocumentComplete" fires each time one of the frames 
 gets completed. How can I find out, when this last Point 
 is reached and get this final url? 
}

 { 
 Wenn eine Seite mit Frames in den Webbrowser geladen wird, wird 
 "OnDocumentComplete" jedesmal ausgelцst, wenn eine Frame fertig 
 geladen ist. 
 Ich benцtige bei aber ein Ereignis, nachdem alle 
 Frames geladen wurden. Aus der Hilfe geht hervor, dass dies mit dem Ereignis 
 OnDocumentComplete realisiert werden kann. 
}

 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
     ShowMessage('Complete document was loaded')
   else
   begin
     Document := CurWebrowser.Document;
     WindowName := Document.ParentWindow.Name;
     ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
   end;
 end;

Название: Использовать событие OnDocumentComplete у TWebBrowser при наличии фреймов
Дата публикации: 2004-09-02 (3087 Прочтено)

 
 

 

Page generation 0.032 seconds