[Delphi] Automatisiertes quelltextauslesen

[sgvortex]

Hallo.
Ich habe ein Problem:
Wenn ich mit Delphi den Quelltext einer Seite der Webbrowser-Komponente auslesen will, dann setzt das voraus, dass die Seite schon vollständig geladen ist, sonst gibt es einen read-error.
Das Programm soll jedoch im Hintergrund arbeiten und nur den aktuellen Quelltext holen, ihn in eine Datei Speichern und sich danach beenden.
Das einzigste, was mir ein Problem macht, ist das abrufen des QT.
Hier mal ein paar Schnipsel:

WebBrowser1.Navigate('http://setiboinc.ssl.berkeley.edu/sah/home.php');

Dort geht er auf die Seite.

listbox1.items.add(WebBrowser1.OleObject.Document.Body.InnerHtml)

Den QT in die Listbox schreiben.

listbox1.Items.SaveToFile('boinc.txt');

Und das ganze dann speichern.
Wenn ich das ganze jedoch so schreibe, kommt der read-error, da Delphi versucht, den QT auszulesen, bevor die Seite geladen ist. Auch ein:

  start := GetTickCount;
  repeat
    stop := GetTickCount;
    Application.ProcessMessages;
  until (stop-start)>=9000;

hilft nicht weiter, da die Seite dann zwar geladen wird, aber nur im Hintergrund und erst nach der Anzeige des read-errors angezeigt wird.

Hat jemand eine Idee? Ich bin ratlos...

MfG

 

[Peter Bönnen]

Es sollte ein Ereignis OnDocumentComplete der TWebBrowser Komponente geben. Zumindest sagt mir das diese Seite nach einer kurzen Suche (hab grade kein Delphi zur Hand): http://www.swissdelphicenter.ch/en/showcode.php?id=1355.

Damit sollte sich doch was anfangen lassen.

 

[sgvortex]

Vielen Dank. Das funktioniert großartig.