مشاهده نسخه کامل
: اتصال چند کلاینت به یه سرور از یه پورت
Payman_62
26-08-2007, 19:52
سلام.
من دیدم بعضی از برنامه ها این ویژگی رو دارن. یعنی چند کلاینت به یه پورت از سرور وصل میشن. کسی روش انجام این کار رو بلده؟
MrJamshidy
02-09-2007, 01:51
سلام پیمان جان من بلدم
اگر جوابت رو گرفتی یک چیز بزن
در ابتدا باید برای 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
:19:
Payman_62
07-09-2007, 02:27
سلام.
آقای جمشیدی روش جالبی بود. البته کدت اشتباه بود و نیاز به دستکاری داشت. خودتم گفته بودی. ولی روش کار صحیح بود و جواب داد و کارمو راه انداخت.
ممنونم ازت.
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.