+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : APPLICATION PING (/showthread.php?tid=12308)
APPLICATION PING - hamam2008 - 01-06-2023
السلام عليكم ارجو منكم المساعدة لم يفلح معي البرنامج لاكمال عملية PING
https://www.mediafire.com/file/dov52sb7eqo8d2b/PING.rar/file
RE: APPLICATION PING - wadoud - 13-06-2023
(01-06-2023, 12:31 AM)hamam2008 كتب : السلام عليكم ارجو منكم المساعدة لم يفلح معي البرنامج لاكمال عملية PING
https://www.mediafire.com/file/dov52sb7eqo8d2b/PING.rar/file
وعليكم السلام
جرب:
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
try
ICMP.Host := Edit1.Text;
ICMP.Ping;
finally
end;
end;
procedure TForm1.IcmpReply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
if AReplyStatus.BytesReceived = 0 then
ShowMessage('Request timed out')
else
ShowMessage(Format('Reply from %s: bytes=%d time=%dms TTL=%d',
[AReplyStatus.FromIpAddress, AReplyStatus.BytesReceived,
AReplyStatus.MsRoundTripTime, AReplyStatus.TimeToLive]));
end;