|
Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
Re: Problem mit Server Pinger
12. Sep 2003, 13:18
Das wäre dann:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
while ListBox1.Items.Count > 0 do
begin
IdIcmpClient1.Host := ListBox1.Items[0];
IdIcmpClient1.Ping(IntToStr(timeout));
ListBox1.Items.Delete(0);
end;
end;
...  ...
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
|