idHTTP und Listview-Durchlauf//Auf Serverantwort warten

[MCXSC]

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?

[shmia]

Du solltest nicht die GET-Methode, sondern die HEAD-Methode benützen, um an den HTTP Status zu kommen:

Delphi-Quellcode:

function GettHTTP_Status(const URL: String): String;  // Ersatz für ReadReturncode
begin 
  try 
    Result := idHTTP1.Head(URL); 
  except 
    E:Exception do
      result := E.Message;
  end; 
end;

So wird nicht das ganze Dokument, sondern nur der Status (200 = OK, 404 = nicht vorhanden, ...) abgerufen.
Das ist viel schneller

[MCXSC]

Zitat von shmia:

Du solltest nicht die GET-Methode, sondern die HEAD-Methode benützen, um an den HTTP Status zu kommen:

Delphi-Quellcode:

function GettHTTP_Status(const URL: String): String;  // Ersatz für ReadReturncode
begin 
  try 
    Result := idHTTP1.Head(URL); 
  except 
    E:Exception do
      result := E.Message;
  end; 
end;

So wird nicht das ganze Dokument, sondern nur der Status (200 = OK, 404 = nicht vorhanden, ...) abgerufen.
Das ist viel schneller

Mal abgesehen davon, passiert würde da imho das Gleiche passieren. Und nein: Ich brauche das GET, da ein paar mySQL-Querys ausgeführt werden und ich daher Returncodes (z.B. 1=existiert schon; 2=eingetragen; 3=unbekannter fehler; etc.)...

[DataCool]

Hi,

ich würde das ganze in einen oder mehrere Threads(einer je URL) auslagen.

Greetz Data