|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
Re: Problem mit Server Pinger
12. Sep 2003, 13:20
Moin TPercon,
so find' ich's praktischer:
Delphi-Quellcode:
while ListBox1.Items.Count > 0 do begin
IdIcmpClient1.Host := ListBox1.Items[0];
IdIcmpClient1.Ping(IntToStr(timeout));
ListBox1.Delete(0);
end;
[EDIT]
Ach nöööö...
nicht schon wieder zu spät.... 
[/EDIT]
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|