Discussion :

[cchasse98]

Bonjour,

Je veux faire un PIng sur un poste de travail, j'ai pris mon code sur internet.
Mais je ne comprends pas pourquoi ma ligne de code ou il y a mon ReplyStatus me donne l'erreur
Cannot access protected symbol TIdCumstomIcmpClient.ReplyStatus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function TFCoupeAcier_45_90.Ping(const AHost : string) : Boolean;
var
  MyIdIcmpClient : TIdIcmpClient;
begin
  Result := True;
 
  MyIdIcmpClient := TIdIcmpClient.Create(nil);
  MyIdIcmpClient.ReceiveTimeout := 200;
  MyIdIcmpClient.Host := AHost;
 
  try
    MyIdIcmpClient.Ping;
    //Application.ProcessMessages;
  except
    Result := False;
    MyIdIcmpClient.Free;
    Exit;
  end;
  if MyIdIcmpClient.ReplyStatus.ReplyStatusType <> rsEcho Then result := False;
 
  MyIdIcmpClient.Free;
end;

Merci

[tourlourou]

Il y a des solutions ou pistes dans cette discussion http://www.developpez.net/forums/d21...delphi-2006-a/ et le lien fourni vers http://www.developpez.net/forums/d33...ng-bds-2006-a/.

[cchasse98]

BOnjour,

C'est ce que j'ai fait ai je ne comprends pas pourquoi mon code est en erreur pour le replyStatus, si quelqu'un peut m'en dire plus.

Merci

[tourlourou]

Pardonne-moi, mais il ne me semble pas que tu aies utilisé l'une quelconque des 2 pistes :
1) dériver un composant de TIdIcmpClient pour exposer sa propriété ReplyStatus ;
2) reprendre tout le code de Cl@udius qui redirige l'événement OnReply vers une méthode propre.

NB : sous Lazarus, le code de la FAQ passe chez moi.

[cchasse98]

J'ai ajouté les informations que tu m'as mentionné sur le lien et tout est fonctionnel

Merci beaucoup et bonne journée