バイナリファイル通信について (ID:88253)

名前

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

本文 今現在、Winsockでのキャプチャ画像送受信プログラムをせっせと作ってます。 そこで１つ目の壁に当たりました・・・。 Winsockでの文字列送受信は難なくカキカキできるのですが、バイナリデータの送受信方法がわかりませんorz とりあえず過去ログをほじくっていろいろ試してみたのですが、 環境が違うせいか「Indexが有効範囲ではありません。」 というエラーや 「データグラムが大きいためバッファが切り詰められます。」 というエラーが発生しました。 問題個所は以下です。 #送信側 Dim send() As Byte Dim FileNumber As Integer FileNumber = FreeFile() Open "tes.jpg" For Binary Access Read As FileNumber ReDim send(0 To LOF(FileNumber) - 1) 'ここでエラリますorz Get FileNumber, , send() Close filenumber Winsock1.SendData send ------------------------------------------------------- #受信側 Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim RecvData() As Byte Winsock1.GetData RecvData, vbArray + vbByte, bytesTotal Dim GetFileByte() As Byte Dim FileNumber As Integer FileNumber = FreeFile() Open "tes2.jpg" For Binary As FileNumber ReDim GetFileByte(0 to LOF(FileNumber) - 1) '同じくエラりますorz Get FileNumber, , GetFileByte() Close FileNumber End Sub もう助けてください('A`) 通信方法はUDPです。（何故かってのは聞かないでください。ヘコミます） 環境:Windows98SE VB6