掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリファイル通信について (ID:88254)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>ReDim send(0 To LOF(FileNumber) - 1) 'ここでエラリますorz 何のエラーが発生しているんでしょう? 「Indexが有効範囲ではありません」ですか? この行の前に Debug.Print LOF(FileNumber) として取得した長さを表示させてみてください。 あと、受信側の >FileNumber = FreeFile() >Open "tes2.jpg" For Binary As FileNumber >ReDim GetFileByte(0 to LOF(FileNumber) - 1) '同じくエラりますorz >Get FileNumber, , GetFileByte() >Close FileNumber これは何やってるんですか? 受信したデータを書き出すなら Open "tes2.jpg" For Binary As FileNumber Put FileNumber,,RecvData Close FileNumber じゃないんですか? 大きいファイルだと複数回DataArrivalが発生するだろうから OpenとCloseは別のタイミングでした方がいいかも。 処理が遅くなってもいいなら Open "tes2.jpg" For Binary As FileNumber Seek FileNumber,LOF(FileNumber)+1 Put FileNumber,,RecvData Close FileNumber でもいいけど。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.