Passing array via winsock

[JasonJ]

Can I pass an array across a winsock connection? Every time I try I get the error "Unsupported Variant Type".

I must be missing something

[ccoder]

You have to convert it to one of VB's intrinsic data types. In this case, a byte array.

add the following to your code...

Private Declare Sub CopyMemory Lib "KERNEL32" _
                    Alias "RtlMoveMemory" (hpvDest As Any, _
                                           hpvSource As Any, _
                                           ByVal cbCopy As Long)

and then copy the array to a byte array.

i.e.

Dim bTBuff() As Byte   ' buffer for sends/receives

ReDim bTBuff(Len(theArray))
CopyMemory bTBuff(0), theArray, Len(theArray)
tcpServer.SendData bTBuff

Lately, there have been a lot of posts on this topic. I have put together a small client/server example that passes a record back and forth. The record has the following structure:

Private Type dclLogRec
             UserId As String * 8
             PassWd As String * 8
             UserOK As Integer
        End Type

There are enough comments in the code to explain (I hope) what is happening and what you have to do to send/receive complicated data structures in VB. If anyone is interested, contact me and I will send the project in a zipped file.