掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリファイル通信について (ID:88253)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
今現在、Winsockでのキャプチャ画像送受信プログラムをせっせと作ってます。 そこで1つ目の壁に当たりました・・・。 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
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.