APPLICATION PING

[hamam2008]

السلام عليكم ارجو منكم المساعدة لم يفلح معي البرنامج لاكمال عملية PING
https://www.mediafire.com/file/dov52sb7e...G.rar/file

[wadoud]

السلام عليكم ارجو منكم المساعدة لم يفلح معي البرنامج لاكمال عملية PING
https://www.mediafire.com/file/dov52sb7e...G.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;