04-03-2013, 01:13 PM
استعمل CMD و استخدم ping لتحديد الايبي
كمثال بسيط استخدام هذا الحل
http://www.delphi4arab.net/forum/showpos...ostcount=1
أو هذا
http://www.delphi4arab.net/forum/showpos...ostcount=2
في حالة استخدام الثاني راح تكون طريقة الاستعمال كالتالي
مع
بالتوفيق لك
كمثال بسيط استخدام هذا الحل
http://www.delphi4arab.net/forum/showpos...ostcount=1
أو هذا
http://www.delphi4arab.net/forum/showpos...ostcount=2
في حالة استخدام الثاني راح تكون طريقة الاستعمال كالتالي
كود :
RunDosInMemo('ping Mv1.MorvaIp.Com',Memo1);
Application.ProcessMessages;
IP := Memo1.Text;
p1 := Pos('[', IP) + Length('[');
p2 := Pos(']', IP);
IP := Copy(IP, p1, p2 - p1);
if IP <> '' then
Memo2.Lines.Add('The IP is:'+IP);كود :
p1,p2: Integer;
IP: string;