winsockでバイナリ送受信 (ID:78552)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 winsockを利用し、データの送受信をしたいのですが 行き詰まっております。 _/_/_/送信側_/_/_/ Dim Size as string Dim File() as Byte Open FileName For Binary As #1 Size = LOF(1) ReDim File(Size) Get #1, , File() Close #1 With Winsock1 .SendData File() End With _/_/_/受信側_/_/_/ Winsock1.GetData strReceiveData, vbString, bytesTotal Open FileName For Binary As #1 Put #１, , strReceiveData Clise #1 この状態でstrReceiveDataをバイナリモードで保存しても 数バイトのデータしが保存できません。 受信側も配列で受け取らないといけないのでしょうか？ 宜しくお願いします。