Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

Schleife on Exception weiterlaufen lassen

  Alt 12. Dez 2003, 13:55
hoiho,

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  server, port: string;
begin
  for i := 0 to servers.Count-1 do
  begin
    Application.ProcessMessages;
    if pos(':', servers.Strings[i]) > 0 then
    begin
      server := copy(servers.Strings[i], 1, pos(':', servers.Strings[i])-1);
      port := copy(servers.Strings[i], pos(':', servers.Strings[i])+1, length(servers.Strings[i]));
      with idHTTP1 do
      begin
        Try
          ProxyParams.ProxyPort := port;
          ProxyParams.ProxyServer := server;
          Get('http://www.outwar.com/page.php?x=1550037');
          label8.Caption := IntToStr(StrToInt(label9.Caption)+1);
        except
          continue;
        end;
      end;
    end
    else
    begin
      continue;
      label10.Caption := IntToStr(StrToInt(label10.Caption)+1);
    end;
  end;
end;

hoi, wie kann ich die schleife weiterlaufen lassen falls beim aufruf von Get ein toter server erwischt wird?

irgendwie friert mein prog dann immer rein
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat