Hallo,
folgenden Code verwende ich um an einem Returncode zu gelangen:
Delphi-Quellcode:
function ReadReturncode(
URL:
String):
String;
begin
try
Result := idHTTP1.Get(
URL);
except
Exit;
end;
end;
Nun lasse ich eine Listview durchlaufen, aus deren Caption wird die
URL gebildet. Das funktioniert auch soweit.
Delphi-Quellcode:
procedure Listedurchlaufen;
var
Titel, Returncode: String;
i: Integer;
begin
with Mainform do begin
for i:=0 to ListView.Items.Count-1 do begin
Returncode := ReadReturncode('http://www.domain.de/index.php?titel='+ListView.Items[i].Caption;
Showmessage(Returncode);
end;
end;
end;
Das Problem: Der Durchlauf der Einträge und die Übergabe des Listview-Eintrags ist zu schnell, als dass der HTTP-Server für jeden einen Code zurückgeben kann.
Wie bekomme ich es hin, dass er der nächste Eintrag durchlaufen wird, wenn die Serveranfrage aus "ReadReturncode" fertig ist?