اتصال چند کلاینت به یه سرور از یه پورت

[Payman_62]

سلام.
من دیدم بعضی از برنامه ها این ویژگی رو دارن. یعنی چند کلاینت به یه پورت از سرور وصل میشن. کسی روش انجام این کار رو بلده؟

[MrJamshidy]

سلام پیمان جان من بلدم
اگر جوابت رو گرفتی یک چیز بزن
در ابتدا باید برای WinSock یک Index تعریف کنی

و بعد هم از کد زیر استفاده کن

Dim IntConnections As Integer

Private Sub Form_Load()
IntConnections = 0
TCPServer(0).LocalPort = 1000
TCPServer(0).Listen
End Sub

Private Sub TCPServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
IntConnections = IntConnections + 1
Load TCPServer(IntConnections)
TCPServer(IntConnections).LocalPort = 1000
If TCPServer(Index).State <> sckClosed Then TCPServer(Index).Close
TCPServer(Index).Accept requestID
End Sub

البته کد های من زیاد جالب نیست ولی بر حسب نیازت تغییرشون بده

Bye
Mr'J

[Payman_62]

سلام.
آقای جمشیدی روش جالبی بود. البته کدت اشتباه بود و نیاز به دستکاری داشت. خودتم گفته بودی. ولی روش کار صحیح بود و جواب داد و کارمو راه انداخت.
ممنونم ازت.