1

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

客户（发送财产包）

Dim pb As PropertyBag
Dim byt() As Byte

Set pb = New PropertyBag

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

Winsock1.SendData byt

服务器（接收财产包）

   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.

4

1 回答 1

2

大多数人还通过转到Project -> References来使用 ADO 流对象（添加对 Microsoft ActiveX Data Objects 2.5 或任何版本的引用） 。

这是一个可以使用 PropertyBag 以及 ADO 流对象下载的工作示例。

它被称为PicturePicture.zip，由一位非常熟悉 Winsock 和客户端/服务器知识的程序员编写。

于 2014-05-08T06:15:59.800 回答