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

[Xdreambox]

مثلا انا استعمل هذا كثير وافضل ان اعمل برنامج يقوم بذالك وهذا هي الصورة



هل يوجد حل ان نستدعي هذا الامر من البرنامج بدون فتح نافذة cmd ويعطينا مثل البيانات وهل يوجد امر يكتب ip في هذي الصورة واقدر اعمل له تشغيل واطفاء وشكرا لكم



هذا وضع ip

[محمد نسمان]

هل تقصد امر Ping?

يمكن ذلك من خلال مكونات اندي وبالأخص مكون TIdICMPClient

[Xdreambox]

شكرا بس كيف استعملها؟ وماذا عن ip

[Xdreambox]

كيف احصل على بيانات مثل الصورة الى فوق

[محمد نسمان]

اولا: عنوان الموضوع لا يمت بصلة للسؤال، لذا **** اختيار العنوان بدقة في مرة اخرى.
ثانيا: لعمل ذلك اضف مكون 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; 


[Dr.MOT]

جرب أيظا :

PHP كود :

WinExec(pchar('ping www.google.com'),sw_ShowNormal); 


[Xdreambox]

شكرا لكم ولكن انا ابحث عن شوفو المرفق بدون اوامر لان لا اعرف ماذا اضع