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

解決

とよ 2007-06-09 16:23:36 No: 136662

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

ヤマ＠文系 2007-06-09 21:46:29 No: 136663

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

とよ 2007-06-12 07:15:50 No: 136664

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