Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Twebbrowser ondocumentcomplete (https://www.delphipraxis.net/2430-twebbrowser-ondocumentcomplete.html)

Jan 23. Jan 2003 02:52


Twebbrowser ondocumentcomplete
 
Hallo Alle,
wie ich zuvor schonmal in einem anderen thread berichtete hat der Twebbrowser Probleme mit dem ondocumentcomplete-Ereignis, wenn es sich um eine Seite mit frames handelt.
Nun habe ich zum Glück einen workaround auf Swissdelphicenter gefunden, welcher wie folgt aussieht:

Code:
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;
Damit klappt das ganze hervorragend.
Allerdings stellt sich mir da trotzdem noch ein Problem:
Die erste geladene Seite triggert jetzt tatsächlich nurnoch einmal das ondocumentcomplete-Ereignis und das auch noch ganz am Ende, also fabelhaft, allerding ändert sich das sobald ich einen link klicke und somit einen frame neu lade, da wird das event dann plötzlich überhaupt nicht mehr getriggert. Kann mir da einer anhand des oben stehenden Codes weiterhelfen?
Danke!
Jan

Jan 24. Jan 2003 13:15

*wiederinsgedächtnisruf*
Ich brauche hier wirklich dringend Hilfe zu!
Im mom scheitert mein Programm wirklich nur hier dran, und das wollen wollen wir doch alle nicht, oder? :mrgreen:

Wenn das mal einer mit mir in icq bereden könnte, das wäre auch nicht schlecht, ich würde dann das Ergebnis hier hinschreiben.
nr.:108271123

Bye
Jan

Daniel B 24. Jan 2003 14:07

Hallo Jan,

also, ich habe es mal getestet.
Ich Lade eine Seite, dann kommen drei Meldungen: Rechts Loaded, Left Loaded und Document complete. Dann klicke ich was im rechten Frame an und nach dem Laden kommt die Meldung, Rechts Loaded.
Das ist doch das was Du willst, oder?
Das sobald Du was im rechten Frame anklickst, das dann die Message kommt, oder hab ich da was falsch verstanden?
Ausprobiert habe ich es mit http://n-digital.info

Da hab ich jetzt noch Frames, einen links und einen rechts. Oder sollte ich es noch woanders ausprobieren?

Grüsse, Daniel :hi:

Jan 28. Jan 2003 14:22

Hallo Daniel B,
genau so, wie du das schilderst hab ich mir das auch vorgestellt, aber auf folgender Seite: www.gangwars.de wird das OnDocumentComplete-event ganze 8 mal ausgelöst, obwohl es nur 3 frames gibt. Das kannst du ja auch mal ausprobieren.
Der Code, den ich oben schon hingeschrieben habe, beschreibt ja den Fall, dass ich die gesamte seite Lade, und dann werden die beiden events (onnavigatecomplete2 und ondocumentcomplete) miteinander verglichen, um so herauszufinden wann der letzte ondocumentcomplete stattfindet, die Seite also komplett geladen ist. aber das Problem ist, dass wenn ich jetzt nur einen frame lade das alles irgendwie ganz anders ist, und leider auch Pro frame mehr als 1 mal das ondocumentcomplete-event ausgelöst wird. Ich habe allerdings nicht die geringste Ahnung warum das so ist.
Und eigentlich möchte ich die umständliche Rumzählerei mit countern vermeiden, da das alles sehr umständlich ist.
Ich brauche jetzt also irgendeine Möglichkeit automatishc herauszufinden welches ondocumentcomplete beim Laden eines einzelnen frames tatsächlich der letzte ist.
Vielen Dank für alle Hilfe.
Gruß
Jan


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:13 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz