überprüfen ob dokument übertragen wurde

[cookie_eater]

hallo leute

wie kann ich beim delphi webbrowser feststellen wann eine website fertig geladen ist?

ich habs mit webbrowser1.ondownloadcomplete probiert. nur schnall ich nicht wie ich das funzt...

kann mir jemand helfen??



grüße an alle

[Daniel B]

Hallo,

OnDocumentComplete.
OnDownloadComplete.
OnNavigateComplete2.

Was gefällt Dir an denen nicht? Vielleciht solltest Du uns einfach sagenw as Du vor hast.

Grüsse, Daniel

[cookie_eater]

mein programm soll solange pause machen, bis das document übertragen wurde...

wie lös ich das??



Greetz und danke für die Antwort

[Marco Haffner]

Zitat von cookie_eater:

ich habs mit webbrowser1.ondownloadcomplete probiert.

Das wird auch nicht funktionieren, OnDownloadComplete wird ausgelöst, wenn Du eine Datei heruntergeladen hast und nicht wenn das Dokument fertig geladen ist.
Du benötigst OnDocumentComplete, dieses Ereignis wird ausgelöst, wenn eine Seite geladen wurde.
Benutzt die zu ladende Seite aber Frames, sieht das ganze etwas anders aus.
Für weitere Informationen, suche mal hier im Forum nach OnDocumentComplete oder WebBrowser.

[cookie_eater]

verstehe das nicht so richtig. was für ein ereignis wird ausgelöst....ich wollte zum beispiel versuchen einer variable (als int deffiniert) von 0 auf 1 zu setzen, wenn das OnDocumentComplete ereignis ausgelöst wird:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var over : integer;
begin
webbrowser1.Navigate('http://www.google.de');
 
webbrowser1.OnDocumentComplete := over :=1




end;

end.

das sieht a bissel komisch aus und funktioniert auch nicht...

[Daniel B]

Hallo,

OnDocumentComplete ist eine eigene Prozedur!

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://google.de');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ShowMessage('Blupp');
end;

Statt der MEssage setzt Du da Deine Variable!

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  MyIntVar := 1;
end;

Grüsse, Daniel

[cookie_eater]

hmm aber bei.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var over : integer;
begin
webbrowser1.Navigate('http://www.google.de');
end;


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ShowMessage('Blupp');
end;

end.

Bekomm ich die Meldung Undeffinierter Bezeichner 'WebBrowser1DocumentComplete'

beim compilieren

[Daniel B]

Ich nehme an Du hast den COde einfach Kopiert und bei Dir eingefügt, also, richtiger Weg:

Klick den WebBrowser an, dann im OI auf Ereignisse, dann ein Doppelklick auf OnDocumentComplete, dann wird die Prozedur autom. angelegt und zwar mit! der deklaration im interface-Teil, sprich in der Klasse TForm1! Denn da oben fehlt die zeile, damit es geht.

Grüsse, Daniel

[cookie_eater]

gut so geht es...aber eine frage ist dann nur...

die integer variable "over" ist dann nur innerhalb der procedur von ondocumentload gültig. eigentlich wollte ich in einer while schleife so lange die variable over prüfen bis sie 1 ist und dann eine andere webseite aufrufen...wie mach ich das am Besten??

danke für Deine Hilfe

[Daniel B]

Zitat von cookie_eater:

die integer variable "over" ist dann nur innerhalb der procedur von ondocumentload gültig.

Wo Du die Variable deklariest und wo Du sie setzt oder abprüfst, sind verschiedene Sachen..

Mach doch z.B. eine globale Integer-Variable, oder besser wäre sogar Boolean.

Delphi-Quellcode:

var
  Form1: TForm1;
  MyIntVar: Integer;
  MyBoolVar: Boolean;

implementation

//Hier kommen dann die ganzen Prozeduren

In welcher Prozedur Du jetzt auf MyIntVar/MyBoolVar zugreifst ist egal, das ist dann aus allen möglich. Egal wo setzen und egal wo testen um andere Sachen dann zu machen...

Grüsse, DAniel