aHoyHoy
(erst mal hallo... mein erster post)
so und jetzt zu dem was ich eigentlich will
es gibt ja viele seiten mit proxyserver listen
aber da man nie genau weiß welcher gerade mal ne gescheite geschwindigkeit hat oder überhaupt online ist wollte ich mir mal ne programm schreiben das so eine
ip liste ein mal komplett anpingt und dann die einzelnen pings auflistet (und halt wenn nen server nicht antwortet irgendeine andere meldung)
so und das hab ich halt mal probiert und jetzt hab ich keine ahnung was daran nicht funktioniert
(weil hinter den servern oft sachen wie ports usw stehen soll alles hinter der
ip selber weg)
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i, durchgang : integer;
begin
liste := TStringList.Create;
liste.LoadFromFile (OpenDialog1.FileName);
for i := 0 to liste.Count - 1 do Memo1.Lines.Add(copy(liste[i],1,pos(' ',liste[i]) - 1));
durchgang := 1;
for i := 1 to liste.count do
durchgang := durchgang + 1;
Edit1.Text := Memo1.Lines[durchgang - 1];
IdIcmpClient1.Host := Memo1.Lines[durchgang];
IdIcmpClient1.Ping;
Application.ProcessMessages;
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
var
sTime: String;
begin
if (AReplyStatus.MsRoundTripTime = 0) then
sTime := '<1'
else
sTime := '=';
Listbox1.Items.Add(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms',
[AReplyStatus.BytesReceived,
AReplyStatus.FromIpAddress,
AReplyStatus.SequenceId,
AReplyStatus.TimeToLive,
sTime,
AReplyStatus.MsRoundTripTime]));
end;
procedure TForm1.Oeffnen1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;
end.
kann mir vllt jemand bei meinem problem helfen?