+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عكيف اعمل Ping لجهاز بالشبكة (/showthread.php?tid=983)
عكيف اعمل Ping لجهاز بالشبكة - Xdreambox - 24-06-2009
مثلا انا استعمل هذا كثير وافضل ان اعمل برنامج يقوم بذالك وهذا هي الصورة
![[صورة: 45096319.jpg]](http://img26.imageshack.us/img26/3382/45096319.jpg)
هل يوجد حل ان نستدعي هذا الامر من البرنامج بدون فتح نافذة cmd ويعطينا مثل البيانات وهل يوجد امر يكتب ip في هذي الصورة واقدر اعمل له تشغيل واطفاء وشكرا لكم
![[صورة: 15116008.jpg]](http://img14.imageshack.us/img14/7529/15116008.jpg)
هذا وضع ip
عكيف اعمل Ping لجهاز بالشبكة - محمد نسمان - 25-06-2009
هل تقصد امر Ping?
يمكن ذلك من خلال مكونات اندي وبالأخص مكون TIdICMPClient
عكيف اعمل Ping لجهاز بالشبكة - Xdreambox - 26-06-2009
شكرا بس كيف استعملها؟ وماذا عن ip
عكيف اعمل Ping لجهاز بالشبكة - Xdreambox - 28-06-2009
كيف احصل على بيانات مثل الصورة الى فوق
عكيف اعمل Ping لجهاز بالشبكة - محمد نسمان - 29-06-2009
اولا: عنوان الموضوع لا يمت بصلة للسؤال، لذا **** اختيار العنوان بدقة في مرة اخرى.
ثانيا: لعمل ذلك اضف مكون 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;
عكيف اعمل Ping لجهاز بالشبكة - Dr.MOT - 01-07-2009
جرب أيظا :
PHP كود :
WinExec(pchar('ping www.google.com'),sw_ShowNormal);
عكيف اعمل Ping لجهاز بالشبكة - Xdreambox - 02-07-2009
شكرا لكم ولكن انا ابحث عن شوفو المرفق بدون اوامر لان لا اعرف ماذا اضع