Hy, my first post on this forum :D
Now the problem... when i copy UDT with copymemory to string and that send string with winsock(TCP) i come to the problem i copy string in to the UDT on the another peer i get wrong data.
Im using Winsock Component not API.
this is UDT
public Type SERVERINFO_TYPE
clientID as integer
clientType as byte
connAlowed as boolean
serverIP as string * 20

End Type

instead of this
-32766
255
True
127.0.0.1
i get this:
63
2
False
127.0.01

Please help me becouse this problem is freaking me out for 7days and i can not get what is wrong
VB6 server code:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal dest As Long, _
ByVal source As Long, _
ByVal bytes As Long)

Private Type SERVERINFO_TYPE
ConnAllowed As Boolean
serverIP As String * 20
clientID As Integer
clientType As Byte
End Type

Private Sub Command1_Click()
Dim htt As String
Dim tss As String
Dim sif As SERVERINFO_TYPE
Dim sfi As SERVERINFO_TYPE

With sif
.clientID = -32766
.clientType = 255
.ConnAllowed = True
.serverIP = "127.0.0.1"
End With

htt = Space(Len(sif))
Call CopyMemory(StrPtr(htt), VarPtr(sif), LenB(sif) )

tss = htt

Picture1.Print ">" & tss & "<"

socket(Text2.Text).SendData tss

List1.AddItem "data len:" & LenB(htt)
Call CopyMemory(VarPtr(sfi), StrPtr(htt), Len(sfi))

With sfi
List1.AddItem .clientID
List1.AddItem .clientType
List1.AddItem .ConnAllowed
List1.AddItem .serverIP
End With

htt = ""
End Sub

Private Sub Form_Load()

socket(0).Listen

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = False
socket(0).Close

End Sub

Private Sub socket_Close(Index As Integer)
socket(Index).Close
Unload socket(Index)

End Sub

Private Sub socket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
Load socket(requestID)
socket(requestID).LocalPort = 8500

If True Then
socket(requestID).Accept requestID
List1.AddItem "ID:" & requestID
Text2.Text = requestID
Else
socket_Close (requestID)
End If

End If
End Sub




client Code

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal dest As Long, _
ByVal source As Long, _
ByVal bytes As Long)

Private Type SERVERINFO_TYPE
ConnAllowed As Boolean
serverIP As String * 20
clientID As Integer
clientType As Byte
End Type

Private obj As Object
Private hmm As Boolean

Dim strBuffer As String

Private Sub Command1_Click()

Dim sfi As SERVERINFO_TYPE
Dim sif2 As SERVERINFO_TYPE
Dim strData As String
Dim strBuffer As String
Dim i As Integer

Dim datalen As Integer
Dim data As String
Dim datatype As Integer
Dim nop As Integer

socket.Connect "127.0.0.1", 8500

hmm = False

Do While hmm = False
DoEvents
If socket.State = 7 Then
socket.PeekData strData, vbString

If LenB(strData) > 0 Then '' if peakdata gets string then...
List1.AddItem "data rec:" & socket.BytesReceived
socket.GetData strData, vbString

strBuffer = strData
List1.AddItem "data len:" & LenB(strData)




strData = ""

Call CopyMemory(VarPtr(sfi), StrPtr(strBuffer), LenB(sfi))


Cls
Picture1.Print ">" & strBuffer & "<"

With sfi
List1.AddItem "clientID:" & .clientID
List1.AddItem "clientType:" & .clientType
List1.AddItem "ConnAllowed:" & .ConnAllowed
List1.AddItem "serverIP:" & .serverIP & "<<"
End With



End If
ElseIf socket.State = sckError Then


End If

Loop

End Sub