Moin,
ich bräuchte mal wieder eure Hilfe!
Ich habe hier ein Code womit ich mir den Quelltext ca. 30 mal von einer Webseite hole.
Dann lasse ich in einer Listbox die Einträge färben. Klappt ja auch eigentlich ganz gut
nur beim Refresh nicht.
Und Ich denke mir mal das es an der IdHttp liegt da er mir den Quelltext nicht aktualisiert
oder nicht schnell genug holt.
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
Juser := ListBox1.Items[Index];
Memo1.Text:= IdHttp1.Get('http://www.jappy.de/user/'+Juser);
if Pos ('<a href="/line/start/'+Juser+'" target="' , Memo1.Text) <> 0 then
ZeileFaerben(Index,ClGreen,Listbox1,Index,Rect)
else
ZeileFaerben(Index,ClRed,Listbox1,Index,Rect);
end;
Meine Frage wie bringe ich den Code dazu das er auf den Quelltext wartet bis er komplett geladen ist
wollte wenn es geht nicht mit TWebBrowser arbeiten dort würde es mit
Readystate <> Complete
gehen.
Hoffe Ihr habt eine Idee
Liebe Grüße
Deadinpac