[ تمت الإجابة ]اريد السيرفر يقبل 2 كلاينت في نفس الوقت

هل صعبة لدرجة هذي لماذا لا يرد اي احد

السلام عليكم

لا يا أخي أبدا ليست صعبة

حسب ما فهمت من سؤالك تريد برنامج سيرفر يتصل بأكثر من كلاينت بنفس الوقت

الحل بسيط

يمكنك إضافة أداة الوينسوكيت أكثر من مرة

وسميهم

winsoket1 , winsoket2 , winsoket3 ,winsoket4

إلى أخره

بحيث كل أدات منهم تعطيها رقم الأي بي للكلاينت و البورت موحد على جميع الأجهزة

وقم بنسخ برنامج الكلاينت على كل الأجهزة التي تريدها دون تعديل بالكود

فتتصل كل وينسوكت من السيرفر بالوينسوكت في برنامج الكلاينت بالأي بي الخاص بهما

فيكون لديك سيرفر متصل بعدة أجهزة بنفس الوقت

إن شاء الله كون فهمت عليك وقدرت وصلك الفكرة

أخوك جود

اخي جود شكراً على الرد ولكن انا اريد العكس يتصل عدد من الاجهزة بالسيرفر في نفس الوقت ويشاهدون العرض بحيث السيرفر سوف يكون

عليه عرض مستمر وشكراَ

يا أخي

بانسبة للإتصال عدد الأجهزة الكلاينت بالسيرفر بنفس الوقت هو ذاته إتصال السيرفر بالأجهزة الكلاينت

أي أن الأتصال بينهم جاري و المنفذ مفتوح من الجهتين أي يمكن أرسال المعلومات من السيرفر إلى الكلاينت

أو إرسال المعلومات من الكلاينت إلى السيرفر

ويبقى عليك كتابة كود إرسال العرض من السيرفر

وكود استقباله في اجهزة الكلاينت

ملاحظة :

يمكنك عكس السيرفر و أجهزة الكلاينت

بحيث السيرفر يستقبل العرض من الكلاينت أي أن الكلاينت يحاول الإتصال بالسيرفر وليس السيرفر يحاول الإتصال بالكلاينت

أي لاداعي من التسميات (سيرفر و كلاينت)تجاهل هذة الكلمات واعمل برنامجين

وانتهت القصة إن شاء الله تكون فهمت المبدأ

أخي جود :

كلامك جميل وتفاعلك مع الموضوع أجمل ارجو منك التعديل على المثال المرفق للانني لم استطيع عمل ذلك حسب التالي :

-السيرفر سوف يعرض صور في وقت متعارف عليه وسوف يدخل في نفس الوقت عدد من الاشخاص ويتصلون بالسيرفر ويشاهدون العرض في وقت واحد .

ارجو المعذره وتقبلوا تحياتي

أخي الكريم ،،

المشكلة في برنامج الخادم الذي وضعته أنه يرسل الصورة إلى آخر عميل اتصل به ( الكود الموجود داخل Timer ) ،،

لحل هذه المشكلة استخدم For..Loop لإرسال الصورة إلى كل العملاء المتصلين حاليًا ،

	For I = 1 To winsock.UBound 
		If Winsock(I).State = 7 Then
			Winsock(I).SendData ImageCompresserTX()
			Winsock(I).SendData "<<FINTX>>" & UBound(ImageNonCompresserTX())
		End If
	Next

شكراً على الرد : جربت الكود ولكن نفس المشكلة

انا الان اعمل على نفس الجهاز لتطبيق المثال يمكن هذا هو السبب

شكر وتقدير للمبرمج أحمد :

لقد وضعت الاجابة التى كنت اطمح اليها انت مبرمج رائع واكثر من رائع اكرر شكري .