TWebbrowser - on document complete

[suni]

Hi
Eine Frage: Wie funktioniert das nochmal das die nächsten zeile meiner prozedur erst aufrufen wird wenn der twebbrowser sein dokument bzw die webseite fertiggeladen und all seine aufgaben erledigt hat? Also sprich:
on document complete do
oder if document complete then
...etc.

bin noch ziemlich neu mit all dem also bitte ein wenig nachsicht haben :oops:
Hoffe jemand kann mir weiterhelfen :)

Liebe Grüße
suni

:dp:

[s-off]

Hallo,

dafür ist das TWebbrowser.OnDocumentComplete-Event zuständig.

Beachte aber, dass dieses bei mehrframigen Seiten für das Fertigladen jedes Frames eintritt, sowie zum Schluss für das komplette Dokument.

Edit:
So kannst Du Frames und komplettes Dokument voneinander abgrenzen

Delphi-Quellcode:

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;

Quelle:SwissDelphiCenter