Question

am sending data using this code in vb6

cds.dwData = CLng(RegisterWindowMessage("MyWMCopyData"))
cds.cbData = Len(Message) * 2 ' characters are 2-bytes each
cds.lpData = StrPtr(Message) ' access the string's character buffer directly
' Send the string.
Dim i As Long:i = SendMessage(lHwnd, WM_COPYDATA, MainForm.hwnd, cds)

can you help me with the code to receive it vurrently i have this

Dim B() As Byte
ReDim B(0 To tCDS.cbData - 1) As Byte
CopyMemory B(0), ByVal tCDS.lpData, tCDS.cbData
Dim sData As String
sData = Trim$(StrConv(B, vbUnicode))

if i send Hello, i get it as H e l l o

Answer 1

You’re mixing up string conversions.

Your sending code sends a pointer to the full unicode string.
When you receive it, you then pass it to StrConv(..., vbUnicode) which converts from ANSI to unicode, “corrupting” the string data.

To resolve this, you just need to assign the final byte array directly to the string:

sData = B

Alternatively, you can allocate the string length and copy directly into it:

Dim sData As String  
sData = String(tCDS.cbData / 2, vbNullChar) ' characters are 2-bytes each
CopyMemory ByVal StrPtr(sData), ByVal tCDS.lpData, tCDS.cbData