使用winsock控件通讯，可否使用自定义类型数据包.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 15 行

SendData只处理字符串和字节数组，所以其他类型应该转换为这两种类型。对于自定义类型只能转换为字节数组。可以利用CopyMemory函数： 
    Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" ( _ 
     hpvDest As Any, hpvSource As Any, ByVal cbCop 
    先定义一个字节数组： 
    Dim b() As Byte, Str1 As sendpack 
    发送时： 
    ReDim B(Len(Str1)) As Byte 
    CopyMemory B(0), Str1, Len(Str1) 
    Winsock1.SendData B 
    接收时： 
    ReDim B(Len(Str1)) As Byte 
    Winsock1.GetData B 
    CopyMemory Str1, B(0), Len(Str1) 
<END>