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