MSComm; 必要なファイル、設定

質問

VB6で、ActiveXファイルを作成しています。
デバッカーでは、問題なく動作します。
CABファイルを作成して、ファイルをダウンロードさせて動作させると
データ送信は、できるのですが受信データが取得できません。
Do - Loop処理を繰り返しているようです。

必要なファイル、プロパティ設定などございますか?
ご意見をお願いします。

CABの中身;
TEST.OCX
ASYCFILT.DLL
COMCAT.DLL
MSMASK32.OCX
MSMSKjp.DLL
MSPRPJP.DLL
msstdfmt.dll
MSSTKPRP.DLL
MSVBVM60.DLL
OLEAUT32.DLL
OLEPRO32.DLL
VB6JP.DLL

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True

MSComm1.InBufferCount = 0
MSComm1.InputLen = 1

'-----Outputプロパティによるデータ受信

MSComm1.Output = (STX) & "CMD" & (CR)

'-----Inputプロパティによるデータ受信

Dim Buffer$
Do
DoEvents
If MSComm1.InBufferCount Then
Buffer$ = Buffer$ & MSComm1.Input
Select Case Buffer$
Case Chr(13)
Exit Do
Case Else
End Select
End If
Loop

回答No.5

tsunji · ベストアンサー

あなたが書いたプログラムは30回forループした後受信バイト数に関わらず、すぐに抜けています。
なのでデータを受信しないことがあります。

30バイト受信するまで待つのであれば以下の方法にした方がいい。

Dim Buffer$
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 30
Buffer$ = MSComm1.Input

お礼

ありがとうございました。

回答No.4

tsunji

>１．
>＞DoEventsは高速で回るforループ内で使うと不具合の元なので注意してください。
>どのような不具合が考えられるのでしょうか?
>DoEvents()は使用しないほうが良いのですか?

どんな症状だったか忘れましたが、不具合は有りました。

>２．
>申し訳ございません。

>下例で、先頭から30桁までのデータを取得したいのですができません。
>30桁目のデータは不定です。
>対策はございますか?
>

不定というのがどういう意味なのかわかりませんが、
テキストデータ以外のバイナリデータをあつかうなら
MSComm1.InputMode = comInputModeBinary
を追加してください。

補足

返信が遅れて申し訳ございません。
扱うのはテキストデータだけです。

パーフォマンスを良くする為に、下例のように必要データだけを取りたいのですが1桁もデータ取得できません。
どこがいけないのでしょうか?
ターミネータは、50桁目です。

MSComm1.InBufferCount = 0
MSComm1.InputLen = 1

Dim Buffer$
Dim I As Integer

For I = 0 To 29
DoEvents
If MSComm1.InBufferCount Then
Buffer$ = Buffer$ & MSComm1.Input
End If
Next

回答No.3

tsunji

いつ受信するかわからない場合、タイマーイベントの中に受信ルーチンを書きます。
Buffer$はグローバル化し、送信前にBuffer$ = ""でバッファをクリアとタイマーを起動してから送信処理。
タイムアウトは、タイマーイベントに入った回数でカウントして、タイマーを停止しタイムアウト処理ルーチンを実行する。

イメージ的にはこんな感じ↓タイムアウト処理等は追加してません。
Private Buffer$ As String

Private Sub Timer1_Timer()

Dim i As Integer

If MSComm1.InBufferCount <> 0 Then
　Buffer$ = Buffer$ & MSComm1.Input
　I = InStr(Buffer$, Chr(3))

　Select Case i
　Case i <> 0
　Case Else
　End Select
End If

End Sub

あと、DoEventsは高速で回るforループ内で使うと不具合の元なので注意してください。

補足

ありがとうございました。

１．
＞DoEventsは高速で回るforループ内で使うと不具合の元なので注意してください。
どのような不具合が考えられるのでしょうか?
DoEvents()は使用しないほうが良いのですか?

２．
申し訳ございません。

下例で、先頭から30桁までのデータを取得したいのですができません。
30桁目のデータは不定です。
対策はございますか?

MSComm1.InBufferCount = 0
MSComm1.InputLen = 1

Dim Buffer$
Dim I As Integer

For I = 0 To 29
DoEvents
If MSComm1.InBufferCount Then
Buffer$ = Buffer$ & MSComm1.Input
End If
Next

回答No.2

tsunji

通信プログラムの場合は、1バイト以上受信してもいいようにプログラムするのが基本です。
そのへんを考えてcase文を組み直した方がいい。

あとテキストボックスとか表示出来るのであれば、タイムアウト後に受信内容を表示するようにしておけば、どうしてダメなのかがわかるはず。

2.デバッガが良くて、というのはコンパイルしたとき最適化されるかというオプションにチェックが入っていると、ありえる話です。最適化をしない様にしてコンパイルしてみてください。

補足

ありがとうございました。

１.
□通信プログラムの場合は、1バイト以上受信してもいいようにプログラムするのが基本です。
□文字を検索するのであればInstr関数を使うべき。
下例のようなすれば良いですか?

Dim Buffer$
Dim i As Integer
Do

DoEvents
If MSComm1.InBufferCount <> 0 Then
Buffer$ = Buffer$ & MSComm1.Input
I = InStr(Buffer$, Chr(3))

Select Case i
Case i <> 0
Exit Do
Case Else
End Select
End If

If Timer > .....'1秒待ち
Exit Do
End If

Loop

２．
パフォーマンスを良くしたいのですが、InputLen = 0なので、一括受信して、1文字ずつコードを判定すれば良いのですか?
イメージが湧かないのでサンプルコードなどございますか?
ご意見をお聞かせ下さい。

回答No.1

tsunji

Buffer$ = Buffer$ & MSComm1.Input
Buffer$に受信文字列を格納しているのに、SelectでBuffer$を指定してCaseで1文字しか判定していない。
Buffer$にゴミが入っていたらその時点でアウト。

文字を検索するのであればInstr関数を使うべき。
またVBで待ちループするのであれば、timerイベントを使った方がいい。

補足

ありがとうございます。
説明不足で申し訳ございません、Timer()を使用して1秒待ちして、Do-Loopを抜けるようにしてあります。

1.
コミとは、IsNullで定義しておけば良いでしょうか?

Dim Buffer$
Do
DoEvents
If MSComm1.InBufferCount Then
Buffer$ = Buffer$ & MSComm1.Input
Select Case Buffer$
Case Chr(13)
Exit Do
Case IsNull
Exit Do
Case Else
End Select
End If
Loop

If Timer > .....'1秒待ち
Exit Do
End If

２．
分からないことが、１つございますので質問させてください。

デバッカーでは、問題なく動作します。
ボタンクリック後、実行するとデータ受信ができません。
ボタン関数中で、このデータ送受信の関数をコールすれば良いのでしょうか?
この点、何かございますでしょうか?

以上
宜しくお願い致します。