+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الارتباط بجهاز الزبون عبر الآيبي (/showthread.php?tid=4142)
الارتباط بجهاز الزبون عبر الآيبي - محمد الدرة - 26-04-2012
السلام عليكم
عندي مشكلة بسيطة وهي كالتالي:
اعمل على برنامج ادارة محل نت واستخدم اداتي clientsocket , serversocket
بحيث كل مايتم ارتباط جهاز كلاينت يظهر اسمه في مكون listview وكذلك IP وبعض المعلومات مثل المستخدم والكلفه الخ
المشكله كيف يمكنني ارسال اوامر من جهاز السرفر الى كلاينت محدد
يوجد امر بتحديد رقم الكلاينت مثل هذا الكود
كود :
server.Socket.Connections[نضع رقم الكلاينت].SendText('*closeuse*');الارتباط بجهاز الزبون عبر الآيبي - محمد عبد العزيز - 13-05-2012
وعليكم السلام ورحمة الله
تقارن 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;