Hur ska jag göra för att få det att funka, när jag försöker skicka iväg en 2D-array av typen variant får jag felmeddelandet "Unsupported variant types". i arrayen ligger bara heltal.

klarar inte winsock att skicka arrayer?

kanske är det lättare att skicka ett objekt?

Jo de funkar om du skickar en bytearray. Om du ex. har en egendefinerad datatyp kan du göra på detta vis:

<code>
Type Egen
DinArray(1 To 10, 1 To 18) As Long
End Type
Dim Din_datatyp As Egen

Sub FlyttaData(Optional Skicka As Boolean = False)
Dim DataByteArray() As Byte, F&, C$
'Konvertera data till Byte array för att flytta data mellan datorerna.
On Error GoTo FelFlyttaData
C$ = App.Path & "\~" & _
IIf(Här.Server, "Srv", "Cli") & "tmp.dat"
If Skicka Then 'Skicka data till remote
F& = FreeFile
Open C$ For Binary As F&
Put F&, , Din_datatyp 'Din egendefinerade datatyp
Close F&
F& = FreeFile
Open C$ For Binary As F&
ReDim DataByteArray(LOF(F&) - 1)
Get F&, , DataByteArray
Close F&
Winsock.SendData DataByteArray()
Else 'Ta emot inkommande data
Winsock.GetData DataByteArray, vbArray + vbByte
F& = FreeFile
Open C$ For Binary As F&
Put F&, , DataByteArray
Close F&
F& = FreeFile
Open C$ For Binary As F&
Get F&, , Din_datatyp 'Din egendefinerade datatyp
Close F&
End If
Avbryt:
On Error Resume Next
Close F&: Kill C$
Exit Sub
FelFlyttaData:
Resume Avbryt 'Ogiltig data i mottaget paket
End Sub
</code>

tack, men varför blandar du in en fil i detta (tmp.dat)??

Jag tog befintlig kod och rensade lite. Du kan ju kalla filen du temporärt skriver och läser för vad du vill. Typ:
C$ = App.Path & "\~binary.tmp"

men man måste väl inte skriva ner arrayen till en fil för att få det att funka, eller??

Vad jag tror så måste man det, vad jag kan se så accepteras bara dessa datatyper:

winsock.GetData data, [datatype,] [maxLen]

Byte vbByte
Integer vbInteger
Long vbLong
Single vbSingle
Double vbDouble
Currency vbCurrency
Date vbDate
Boolean vbBoolean
SCODE vbError
String vbString
Byte Array vbArray + vbByte

Men prova, jag gjorde ett Tetris spel i nätverk med ovanstående funktion. Vet inte om det finns något snabbare sätt att konvertera data till bytearay. Kan du eller någon annan komma på något annat sätt så är jag nyfiken. Är själv ingen expert på Winsock. Gjorde min första app med denna kontroll nu februari...

ok då verkar det enklare o trycka in allt i en sträng och splitta upp den på mottagar sidan, tack för hjälpen ändå...