通過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 &客戶端/服務器知識淵博的程序員寫的。