01-06-2023, 12:31 AM
13-06-2023, 08:14 PM
(01-06-2023, 12:31 AM)hamam2008 كتب : [ -> ]السلام عليكم ارجو منكم المساعدة لم يفلح معي البرنامج لاكمال عملية 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;