hi leutz,...also ich habn problem mit ner schleife^^
ich weiss nicht wieso aber die schleife laeuft mal 3x durch und mal 2x immer unterschiedlich und dann hoert es weiss gott wieso auf weiterzumachen 0_o
das programm haengt nicht oder so aber es hoert einfach auf mitten in der schleife ohne fehlermeldung.
so habe ich meine schleife gestalted:
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;
also ich weiss beim besten willen nicht weiter,..waere nice wenn sich jemand mal kurz gedanken machen koennte wieso das so ist wie es ist^^
thx im vorraus
da o0o
btw was mir aufgefallen ist ich hab im taskmanager geguggt und sah dass die groesse vom programm durch das stehenbleiben der schleife immer weiter und weiter angestiegen ist 0_o (beim 3fachen groesse hab ich beendet)