Hallo,
haben früher in unsere Anwendung immer mit folgender Funktion gepingt:
Delphi-Quellcode:
PingClient.Ping();
if (PingClient.ReplyStatus.ReplyStatusType <> rsEcho)
then begin
messagedlg('
Ping to PC (IP '+globaldata.host+'
) failed.',mterror,[mbok],0);
end;
Nun gibt es aber die ReplyStatus Property nicht mehr, bzw kommt immer die Meldung (beim compilieren):
[DCC Error] main.pas(211): E2362 Cannot
access protected symbol TIdCustomIcmpClient.ReplyStatus
Hab es dann so versucht, aber das klappt nicht, ist immer n Timeout:
Delphi-Quellcode:
PingClient.Ping();
if (PingClient.Receive(10000).ReplyStatusType <> rsEcho)
then begin
messagedlg('
Ping to PC (IP '+globaldata.host+'
) failed.',mterror,[mbok],0);
end;
Könnt ihr mir helfen?
Danke,
winx