バイナリファイル通信について (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 でもいいけど。