(1) formatiere deinen code mal ein wenig lesbarer...
Delphi-Quellcode:
var i: integer;
doc: IHTMLDOCUMENT2;
url:
String;
begin
for i:=0
to 10
do
begin
delay(75000);
IdHTTP1.HandleRedirects := True;
url := '
http://www.sanook.com/xxx';
doc := GetDocument(IdHttp1.Get(
url))
as IHTMLDocument2;
ExtractLinks(doc, memo2.lines);
//links extrahieren
delay(200);
findlinks('
http://www.sanook.com/xxx', false);
//best. links finden
nummer:=nummer+1;
label2.caption:=inttostr(nummer);
//durchlaeufe zaehlen
embeddedwb1.navigate(listbox1.items[0]);
embeddedwb2.navigate(listbox1.items[1]);
embeddedwb3.navigate(listbox1.items[2]);
embeddedwb4.navigate(listbox1.items[3]);
listbox1.clear;
memo2.clear;
Application.ProcessMessages;
end;
end;
(2) wenn du im 1. aufruf listbox1.clear(); aufrufst und im 2. durchlauf auf listbox1.Items[0] zugreifst, kann das nicht gut gehen.
oder was passiert in den methoden extractlinks oder findlinks?
(3) einen timer kann ich dir auch empfehlen. oder es gibt auch ein event des embedded webbrowser, das dir mitteilt wnan eine seite fertig geladen ist, wenn du dies benötigst...