UDPでバイナリ形式のデータ送受

VBのwinsockを使用して、テキストの送受信は以下でできるのですが、バイナリデータの送受信ができません。データ型をVariantにしたりしましたがだめでした。よろしくお願いいたします。
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim RevData As String
Winsock.GetData RevData '相手データの受信
Text1.Text = RevData '受信データを表示
End Sub

バイナリを送受信する場合、
RevDataのところをStringではなく
Dim RevData() as Byte
winsock.GetData RecvData, vbArray + vbByte, bytesTotal 
にしてみてください。
バイト配列でやり取利するとうまくいくと思います。

ばっちりバイナリ通信ができました。本当にありがとうございました。
感謝  m__m

ツイート