عكيف اعمل Ping لجهاز بالشبكة

[محمد نسمان]

اولا: عنوان الموضوع لا يمت بصلة للسؤال، لذا **** اختيار العنوان بدقة في مرة اخرى.
ثانيا: لعمل ذلك اضف مكون IdICMPClient وMemo ضمن المشروع واكتب الكود التالي:

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdIcmpClient1.Host := '192.12.12.1';
 IdIcmpClient1.Ping();
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin

 mmo1.Lines.Add(Format('Reply from %s Bytes = %d time = %d',
  [aReplyStatus.FromIpAddress , aReplyStatus.BytesReceived
  ,aReplyStatus.MsRoundTripTime ]))
end;