Har et lite problem med et program jeg lager i Visual Basic 6.
Det går ut på at jeg har en server, og en klient.
Mange klienter kan koble til den samme serveren på den samme porten.
På serveren bruker jeg da en WinSock som ligger og lytter hele tiden, og når det kommer en tilkobling, kobler den videre til en helt ny WinSock som hver har en individuell port(bare slik at det skal fungere med flere tilkoblinger på "samme port" på serveren)
Og det funker jo ganske så bra med tilkoblingen, men problemet er at jeg ikke har
snøring på hvordan jeg skal finne ut hvilken av de mange klient sockets'ene som mottar data.
Her er kildekoden for serveren
[FONT=Fixedsys]
Private Sub ListenSock_ConnectionRequest(ByVal requestID As Long)
ClientCount = ClientCount + 1
Load ClientSock(ClientCount)
ClientSock(ClientCount).LocalPort = 7661 + ClientCount
ClientSock(ClientCount).RemotePort = 7661
ClientSock(ClientCount).Accept requestID
ClientID(ClientCount) = requestID
ClientList.AddItem Str(ClientCount) + " " + ClientID(ClientCount)
End Sub
Private Sub StartBtn_Click()
ListenSock.Listen
End Sub
[/FONT]
Any suggestions?
Det går ut på at jeg har en server, og en klient.
Mange klienter kan koble til den samme serveren på den samme porten.
På serveren bruker jeg da en WinSock som ligger og lytter hele tiden, og når det kommer en tilkobling, kobler den videre til en helt ny WinSock som hver har en individuell port(bare slik at det skal fungere med flere tilkoblinger på "samme port" på serveren)
Og det funker jo ganske så bra med tilkoblingen, men problemet er at jeg ikke har
snøring på hvordan jeg skal finne ut hvilken av de mange klient sockets'ene som mottar data.
Her er kildekoden for serveren
[FONT=Fixedsys]
Private Sub ListenSock_ConnectionRequest(ByVal requestID As Long)
ClientCount = ClientCount + 1
Load ClientSock(ClientCount)
ClientSock(ClientCount).LocalPort = 7661 + ClientCount
ClientSock(ClientCount).RemotePort = 7661
ClientSock(ClientCount).Accept requestID
ClientID(ClientCount) = requestID
ClientList.AddItem Str(ClientCount) + " " + ClientID(ClientCount)
End Sub
Private Sub StartBtn_Click()
ListenSock.Listen
End Sub
[/FONT]
Any suggestions?