ورود

View Full Version : تست اتصال به یک کلاینت



javad_rajabloo
سه شنبه 15 بهمن 1392, 22:05 عصر
سلام

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

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

ممنونم

stringer
چهارشنبه 16 بهمن 1392, 15:43 عصر
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
پنج شنبه 17 بهمن 1392, 09:34 صبح
ممنونم

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