13-05-2012, 11:27 AM
وعليكم السلام ورحمة الله
تقارن IP كل الاتصالات بالIP المعني ليكن مثلا 10.0.0.50 تكتب شيئ مثل
تقارن IP كل الاتصالات بالIP المعني ليكن مثلا 10.0.0.50 تكتب شيئ مثل
كود :
var i: integer;
begin
for i:=0 to Serveur.Socket.ActiveConnections-1 do
begin
if Serveur.Socket.Connections[i].RemoteAddress = '10.0.0.50' then
Serveur.Socket.Connections[i].SendText('*closeuse*');
end;
end;