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
<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
Comment