winsock을 통해 propertybag를 보내시겠습니까?

Question

이상으로 propertybag을 보내는 중 문제가 발생했습니다. propertybag을 사용하여 이미지를 보내는 클라이언트/서버 응용 프로그램이 있습니다. propertybag을 바이트 배열로 변환하고 winsock 이상으로 보내고 바이트 배열을 propertybag으로 다시 변환하면 읽을 수 없습니다. 전송 된 데이터가 손상된 것 같습니다.

클라이언트 (전송합니다 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을 & 클라이언트/서버 지식 프로그래머에 의해 쓰여진 것.