delphi4arab منتديات دلفي للعرب

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

[صورة: 45096319.jpg]

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

[صورة: 15116008.jpg]

هذا وضع ip

هل تقصد امر Ping?

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

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

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

[صورة: 45096319.jpg]

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

جرب أيظا :

PHP كود :
WinExec(pchar('ping www.google.com'),sw_ShowNormal); 

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

Xdreambox

محمد نسمان

Xdreambox

Xdreambox

محمد نسمان

Dr.MOT

Xdreambox