VB2010 COMポートからのバイナリ受信

質問

オシロスコープからの画像データ（40kバイト程度のtifファイル）をＰＣのCOMポートから受信し
保存するプログラムを作成しているのですが、受信データを正しくＰＣ上に保存できません。

具体的には下記のコードでtifファイルは作成されますが、容量が数kバイトで明らかに不足
しています。

MsgBoxを有効にして受信バッファサイズや書込み長さを確認しましたが、「OK」ボタンを押す
たびに下記の表示になります。COMポートのバッファサイズが４０９６バイトなので「dat.Length」
をすべて足し合わせると本来の受信データサイズになると思うのですが、PC上に作成された
ファイル容量から「dat」が常に上書きされているような気がします。

正しく保存するにはどのような修正が必要でしょうか？

【MsgBoxを有効にしたときの表示値（OKを押すたびに数値が変わる）】
「dat.Length」
１８３
４０７５
４０７２
４０９２
４０８８
４０８４
４０８５
４０９２
４０５９
４０７８
３９１０
０
０
・
・
・

「ByteToRead」
４０６０
１５０８
３２４
９０８
２３３４
１７８５
７０
２２７
４００
０
０
・
・
・

【作成したコード】
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As_ System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

' シリアルポートからデータ受信
Dim dat As Byte() = New Byte(SerialPort1.BytesToRead - 1) {}
SerialPort1.Read(dat, 0, dat.GetLength(0))

'MessageBox.Show(dat.Length)
'MessageBox.Show(SerialPort1.BytesToRead)

File.WriteAllBytes("C:\test1.tif", dat)

SerialPort1.DiscardInBuffer()

End Sub

【環境】
OS：Win7
VB：2010
ポート設定：SerialPortクラス標準からポート番号以外は変更なし

回答No.1

Wr5 · ベストアンサー

>PC上に作成された
>ファイル容量から「dat」が常に上書きされているような気がします。

http://msdn.microsoft.com/ja-jp/library/system.io.file.writeallbytes%28v=vs.100%29.aspx
に
「新しいファイルを作成し、指定したバイト配列をそのファイルに書き込んだ後、ファイルを閉じます。 既存のターゲット ファイルは上書きされます。」
と書かれているのですから、当然かと。

OpenWrite()辺りで開いて、ファイルの末尾にシーク、書き出し。
となるかと。
# 「VB バイナリファイル 書き込み」辺りで検索すれば見つかるんじゃないですかね？
# http://msdn.microsoft.com/ja-jp/library/szz5syt3%28v=vs.100%29.aspx とか。

お礼

即時回答ありがとうございました。アドバイス頂いたMSDNサイト「ＶＢでバイナリファイルに書き込む方法」の"My.Computer.FileSystem.WriteAllBytes"で無事保存できました。

念のため以下に修正コードを記載させていただきます。この質問にたどり着いた皆様の役に立てれば幸いです。

My.Computer.FileSystem.WriteAllBytes
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

' シリアルポートからデータ受信
Dim dat As Byte() = New Byte(SerialPort1.BytesToRead - 1) {}
SerialPort1.Read(dat, 0, dat.GetLength(0))

' シリアルポートからデータ受信
My.Computer.FileSystem.WriteAllBytes("C:\test1.tif", dat, True)

End Sub

回答No.2

Hayashi_Trek

SerialPort1_DataReceivedイベントは、シリアルポートに最初の１バイト目が受信された時に発生する。
だから、SerialPort1.BytesToReadを取得した瞬間は、まだデータを受信中の可能性がある。
実際に読込んだバイト数は、SerialPort1.Read()の戻り値で確認できる。

お礼

アドバイスありがとうございました。イベントが発生するタイミングがとても重要という事が分かりました。

今後はデータ受信完了フラグの追加などでより完成度の高いものに仕上げて行きたいと思います。