delphi4arab منتديات دلفي للعرب

السلام عليكم
عندي مشكلة بسيطة وهي كالتالي:
اعمل على برنامج ادارة محل نت واستخدم اداتي clientsocket , serversocket
بحيث كل مايتم ارتباط جهاز كلاينت يظهر اسمه في مكون listview وكذلك IP وبعض المعلومات مثل المستخدم والكلفه الخ
المشكله كيف يمكنني ارسال اوامر من جهاز السرفر الى كلاينت محدد
يوجد امر بتحديد رقم الكلاينت مثل هذا الكود

كود :
server.Socket.Connections[نضع رقم الكلاينت].SendText('*closeuse*');

لكن اذا كنت **** الاتصال بالكلاينت بحسب الآيبي تبعه وليس حسب ترتيب اتصاله بالسرفر فماهو الكود المناسب

وعليكم السلام ورحمة الله

تقارن 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;

محمد الدرة

محمد عبد العزيز