Hallo,
unter WinNT habe ich mittels folgendem Code getestet, ob ein Rechner im NEtzwerk vorhanden ist :
function Tform1.HostOk(host :string):boolean; <br>
begin
IdIcmpClient1:=TIdIcmpClient.create(self); <br>
IdIcmpClient1.host :=host;<br>
try<br>
IdIcmpClient1.Ping; <br>
result := true;<br>
except<br>
ShowMessage('Rechner '+Host+' nicht erreichbar.');<br>
result := false;<br>
end;<br>
IdIcmpClient1.free;<br>
end;<br>
Auf einem Win2000 Rechner funktionier das ping jedoch mit dieser Komponente nicht mehr (dagegen von der Eingabeaufforderung schon noch), nicht einmal auf den eigenen Rechner.
Weiss jemand warum ?
Gruss und Danke im Voraus
Frank
unter WinNT habe ich mittels folgendem Code getestet, ob ein Rechner im NEtzwerk vorhanden ist :
function Tform1.HostOk(host :string):boolean; <br>
begin
IdIcmpClient1:=TIdIcmpClient.create(self); <br>
IdIcmpClient1.host :=host;<br>
try<br>
IdIcmpClient1.Ping; <br>
result := true;<br>
except<br>
ShowMessage('Rechner '+Host+' nicht erreichbar.');<br>
result := false;<br>
end;<br>
IdIcmpClient1.free;<br>
end;<br>
Auf einem Win2000 Rechner funktionier das ping jedoch mit dieser Komponente nicht mehr (dagegen von der Eingabeaufforderung schon noch), nicht einmal auf den eigenen Rechner.
Weiss jemand warum ?
Gruss und Danke im Voraus
Frank
Comment