Winsock - Connection (array)

[Pino]

This amkes no sence to me but on the 2nd connection i get the "ivalid operation at current state" error which means the socket is in use,

Dim x As Long ' counter
If Winsock.UBound < 1 Then 'this is our first connection so accept it
       Load Winsock(Winsock.UBound + 1)
       Winsock(Winsock.UBound).Accept requestID
End If
 
For x = 1 To Winsock.UBound + 1 'loops through existing connections to amke sure we have none spare
   If Winsock(x).State <> sckConnected Then
          Winsock(x).Accept requestID '<<Error here!
   Else
   If x >= Winsock.UBound Then 'there si none spare so accept on new socket
            Load Winsock(Winsock.UBound + 1)
            Winsock(Winsock.UBound).Accept requestID
            Exit Sub
       End If
   End If
Next x

i cant understand maybe its a simple error?

PINO

[Pino]

Any one at all? see any problems?

[Wokawidget]

Errr...U can't accept the request twice.
U r accepting it a 2nd time in the For loop.
PLUS...It's for lngIndex = 1 to Winsock.Ubound
Not + 1.

Think this may solve your error problem.

You could always compile my winsock DLL. I wrote this DLL to take away the hassle of winsock control arrays, which suck
The DLL also handles data that spans many "packets".

I can see what you're trying to do with the control array, but I don't like it, just me I think, as loads of developers do it your way.

Woof

[Wokawidget]

Hmmm...OK, I was wrong. Juts looked at your code again. Ooops.

What line is the error on?

Woof

[Pino]

your wrong? well ir emoved the +1 to get this code...

Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim x As Long ' counter
If Winsock.UBound < 1 Then 'this is our first connection so accept it
       Load Winsock(Winsock.UBound + 1)
       Winsock(Winsock.UBound).Accept requestID
End If
 
For x = 1 To Winsock.UBound 'loops through existing connections to amke sure we have none spare
   If Winsock(x).State <> sckConnected Then
          Winsock(x).Close
          Winsock(x).Accept requestID
   Else
   If x >= Winsock.UBound Then 'there si none spare so accept on new socket
            Load Winsock(Winsock.UBound + 1)
            Winsock(Winsock.UBound).Accept requestID
            Exit Sub
       End If
   End If
Next x
 
End Sub

i through 4 connections at it and it seems fine? thank you? i think?

[muthubose18]

hi,

I'm fairly new to Winsock, and i'm trying to make some simple chat software. I've been looking on google for various Winsock tutorials, but can't find any that are simple enough for a beginner, but also good enough to ensure that i actually learn what is trying to be taught...

If anybody knows a good tutorial, with examples, etc. Then please could you tell me the link.


Thanks & Regards,
Muthukumaramani.S


Note: This is for VB 6

[Pino]

Very old thread you should really create a new one!

http://www.vbforums.com/showthread.php?t=297308

That should help thats as simple as you will get.
Good Luck