Problem mit WebBrowser-Komponente in einer Schleife....

[Marco E.]

ich möchte mehrer Adresen, die in einer ListBox berietgestellt werden nacheinander Einlesen und über die WebBrowser-Komponente ausgeben. Dazu habe ich folgenden Code:<br>
<br>
AnzahlElemente := ListBox1.Items.Count - 1;<br>
for i := 0 to aktienAnzahl do<br>
begin<br>
element := i;<br>
url := ListBox1.Items.Strings[element];<br>
WebBrowser1.Navigate('http://'+url);<br>
end;<br>

Nach jedem Seitenaufruf soll eigentlich das Ereignis folgende Ereignis aufgerufen werden<br>
<br>
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);<br>
begin<br>
GetInnerHtml();<br>
DateiOeffnenUndZeileLesen();<br>
end;<br>
<br>
Das Ereignis wird jedoch nur ein einziges Mal ausgefürt und zwar dann, wenn die letzte Url aus der ListBox gelesen wird. Laut Beschreibung soll die Funktion aber nach jedem Aufruf einer Seite passieren. Woran kann das liegen und wie kann ich das Problem lösen?<br>
<br>
Marco

[Mario.Noack]

Vermutlich geht es nach Navigate(..) weiter, ohne die Fertigstellung abzuwarten.<p>
Grüße, Mario Noac

[Andreas Kosch]

Hallo,

um die Vermutung von Mario zu prüfen, würde ich folgendes machen:
<pre>
...
WebBrowser1.Navigate('http://www.entwickler-forum.de');
repeat
Application.ProcessMessages;
until WebBrowser1.ReadyState >= READYSTATE_COMPLETE;
...
</pre&gt

[Jens Schumann]

Hallo Marco,<br>es handelt sich hier bestimmt um das Beispiel, das wir schon diskutiert haben. Den Umweg über die Datei brauchst Du nicht. In GetInnerHtml wird die Seite in eine TStringList geschoben.
Die TStringlist kannst Du doch direkt weiterverarbeiten.<br<Jens Schuman

[Marco E.]

Vielen Dank! Das war der entscheidende Tipp! Es funktioniert