通过winsock发送包？

Question

我无法通过winsock发送propertybag。我有一个通过使用propertybag发送图像的客户端/服务器应用程序。我将propertybag转换成一个字节数组，并尝试通过winsock发送它，然后当我将字节数组转换回propertybag时，它看起来似乎不能读取它。看起来数据在发送时已损坏。

客户端（发送属性包）

Dim pb As PropertyBag 
Dim byt() As Byte 

Set pb = New PropertyBag 

pb.WriteProperty "picc", Image1.Picture 
byt = pb.Contents 

Winsock1.SendData byt 

服务器（接收的PropertyBag）

Dim byt() As Byte 
    Dim pb As PropertyBag 

    Set pb = New PropertyBag 

    Winsock1.GetData byt, vbByte 

    pb.Contents = byt 
    Image1.Picture = pb.ReadProperty("picc") 

我收到的错误：

Run-time error '327': 
Data value named 'picc' not found 

当我尝试在没有winsock的单个程序中执行代码时，它工作得很好。当我通过winsock发送字节数组时发生问题。 >参考 -

Answer 1

大多数人还利用ADO流对象通过将项目（添加引用到Microsoft ActiveX数据对象2.5或任何版本）。

Here is a working example you can download using a PropertyBag as well as the ADO stream object.

这就是所谓的PicturePicture.zip，并通过非常的Winsock &客户端/服务器知识渊博的程序员写的。