+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مراسلة Client /Server (/showthread.php?tid=3220)
مراسلة Client /Server - King SofT - 22-06-2011
عند تصميمي لبرنامج دردشة واجهت مشكلة وهي ان ارسال المحادثة لجميع المتصلين
كود :
ServerSocket1.Socket.SendText('Test')مراسلة Client /Server - paix144 - 22-06-2011
السلام عليكم ورحمة الله
لا تنسى "تحية الاسلام" أخي
كود :
I : Integer;
begin
I := ListUsers.Selected.Index;
ServerSocket1.Socket.Connections[I].SendText(ServerSocket1.Socket.LocalHost + ' : ' + Text);
Memo1.Lines.Add(ServerSocket1.Socket.LocalHost + ' : ' + Text);
End;http://www.delphi4arab.net/forum/showthread.php?tid=2874
مراسلة Client /Server - King SofT - 25-06-2011
جواب شافي بارك الله فيك اخي