D2007: Pingen mit der "neuen" Indy Komponente?

[winx]

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

[Puddy]

Das sollte dir weiterhelfen: klick mich

[winx]

Danke...

hab meine Klasse selbst abgeleitet, dann hab ich Zugriff auf die Property und es geht...

gruß