تست اتصال به یک کلاینت

[javad_rajabloo]

سلام

من در برنامه می خوام در بستر شبکه محلی ، آدرس آی پی یک کلاینت رو وارد کنم و وقتی روی دکمه کلیک می کنم پیغام بده که آیا این کامپیوتر به کامپیوتر دیگه ارتباط داره یا نه

من از متد پینگ استفاده کردم اما بحث پیغام هست که فقط بگه وصل هست یا نه

ممنونم

[stringer]

function TCheckOnline.Check_Ping(ip: string): Boolean;
var
MyIdIcmpClient : TIdIcmpClient;
begin
Result := True;
Application.ProcessMessages;
MyIdIcmpClient := TIdIcmpClient.Create(nil);
MyIdIcmpClient.ReceiveTimeout := 5000;
MyIdIcmpClient.Host := ip;
MyIdIcmpClient.PacketSize := 24;
MyIdIcmpClient.Protocol := 1;


try
MyIdIcmpClient.Ping;

except
Result := False;
Exit;
end;
if MyIdIcmpClient.ReplyStatus.ReplyStatusType <> rsEcho Then result := False;

MyIdIcmpClient.Free;

end;

[javad_rajabloo]

ممنونم

اما تست کردم ، خطا می داد