ab.com コミュニティ

by **DriedPlum** » 2006年7月13日(木) 17:28

String変数宣言に間違いがあったとは。
ご指摘ありがとうございます。

GetLastError関数も調べてみます。ありがとうございます。

by **ノッチ** » 2006年7月13日(木) 10:51

ステップ３はなにが原因かわからないのでとりあえずステップ４から解決しましょう。
もしかしたらこれでステップ３も解決するかもしれません。

> ステップ４　？ReadFileも変
> ReadFile関数を実行すると、「関数の帰り値」では成功になっているが、　　受信した値は全て0000・・・・（null文字）
> 何秒待っても、受信バッファー文字数が「0」のままだから、データが全然来ていない。

コード: 全て選択

> '読んでみると？
> Dim rChr As String
> Dim rLen As Long
> 
> dummy  = ReadFile(hComm, VarPtr(rChr), 110, VarPtr(rLen), ByVal 0)    
>  Print dummy ;rLen

N88はどうかわかりませんが、ABのString型は宣言しただけではバッファが確保
されていません。
ですので、

Dim rChr As String
rChr=ZeroString(110）

のようにしてしようします。

ちなみにAPIが失敗した場合は
GetLastError()
という関数を使用すればエラーコードが取得できます。
エラーコードの詳細は以下
http://homepage3.nifty.com/aokura/tips/e000000.html
等で調べられますので。

by **DriedPlum** » 2006年7月13日(木) 03:39

N88ＢＡＳＩＣの文法が使える！につられてABを勉強しはじめ、ヘルプを見ながらなんとか、下記のようなモジュールを作りました（掲載されている皆様のプログラムを切り貼りしただけですが・・）。でも、正常に動作してくれないのです。
なぜ動かないのかについて、ヒントを頂きたく、よろしくお願いします。

最終目標　ＧＰＳアンテナ出力データ（ＡＳＣＩＩ）を受け取り、内容をちょこっと加工してから地図アプリに渡したい。

ＧＰＳアンテナの仕様；１秒おきに、現在座標と速度、向いている方向を、こちらの都合にお構いなく、強制的に送信してくる。このため、バッファーオーバーフローに注意＆対処する必要がある。
この装置はハイパーターミナル（9600ボー、データ８ビット、ノンパリ、ストップビット１　の設定）で正常に動くことを、ターゲットパソコン（ノート；winXp）で確認済み。

現在組んだコードのエラー状況；

ステップ１　○
CreateFile関数はOKらしい　（COM7）

ステップ２　○
通信設定SetCommState関数もOKらしい　（9600ボー、８ビット）
GetCommState関数で見ると、９６００とか、設定値がきちんと帰ってくる。

ステップ３　×
ClearCommError関数が変　
６秒待ってさえ、受信バッファーは、　「lpStat.cbInQue＝0」　。何も入っていない

ステップ４　？ReadFileも変
ReadFile関数を実行すると、「関数の帰り値」では成功になっているが、　　受信した値は全て0000・・・・（null文字）
何秒待っても、受信バッファー文字数が「0」のままだから、データが全然来ていない。

ということで、解決のヒントを頂けると、とても嬉しいです。

以下、コードです。

[ここをクリックすると内容が表示されます]

コード: 全て選択

　　
#N88BASIC

' DCB構造体の定義
Type DCB
        DCBlength As Long            '構造体のサイズ
        BaudRate As Long             'ボーレイト（bps）の設定
        fBitFields As Long           'ビット単位のフィールド定義
        wReserved As Integer         '予約（0をセットする）
        XonLim As Integer            '受信バッファ中のデータが何バイトになったらXon文字を送るかを指定
        XoffLim As Integer           '受信バッファの空きが何バイトになったらXoff文字を送るかを指定
        ByteSize As Byte             '1データのビット数を指定
        Parity As Byte               'パリティの方式を指定
        StopBits As Byte             'ストップビット数を指定
        XonChar As Byte              'Xon文字を指定
        XoffChar As Byte             'Xoff文字を指定
        ErrorChar As Byte            'パリティエラーの場合に使う文字を指定
        EofChar As Byte              '非バイナリモードの場合のデータ終了文字の指定
        EvtChar As Byte              'イベントを生成する文字を指定
End Type

' COMMTIMEOUTS構造体の定義
Type COMMTIMEOUTS
        ReadIntervalTimeout As Long          '文字の読み込みの待ち時間
        ReadTotalTimeoutMultiplier As Long   '読み込みの１文字あたりの時間
        ReadTotalTimeoutConstant As Long     '読み込みの定数時間
        WriteTotalTimeoutMultiplier As Long  '書き込みの１文字あたりの時間
        WriteTotalTimeoutConstant As Long    '書き込みの定数時間
End Type

Type COMSTAT
 fCoBitFlds As Long 'See Comment in Win32API.Txt
 cbInQue As Integer
 cbOutQue As Integer
End Type 

'シリアルポートの設定関数の定義
Declare Function SetCommState Lib "kernel32" (ByVal hCommDev As Long,ByRef lpDCB As DCB) As Long

'タイムアウトの設定関数の定義
Declare Function SetCommTimeouts Lib "kernel32" (ByVal hFile As Long,ByRef lpCommTimeouts As COMMTIMEOUTS) As Long

'エラー調査の関数の定義
Declare Function ClearCommError Lib "kernel32" (ByVal hCommDevs As Long, ByRef lpErrors As Long, ByRef lpStat As COMSTAT) As Integer 

'************************
'    グローバル変数
'************************
Dim hComm As Long                'COMポートハンドル
Dim stDCB As DCB                '通信ポート情報
Dim timeOut As COMMTIMEOUTS        '通信タイムアウト設定

Dim StrComNom As String
Dim StrComNo As BytePtr
Dim dummy As Integer
Dim dumm2 As Integer
Dim lpErrors As Long
Dim lpStat As COMSTAT
Dim i As Integer

StrComNom="COM7"

'StrComNo=VarPtr(StrComNom)
'Print StrComNo
'Print StrComNom

'COMポートオープン
    hComm = CreateFile("COM7", GENERIC_READ Or GENERIC_WRITE, 0, ByVal 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
    If hComm = -1 Then  
   		Print StrComNom; "が使えません"
'        MsgD = lstrcat(comname , "が使えません")            'ポートのオープン失敗時
'        MsgBox 0, MsgD  		'警告メッセージ アイコンを表示
    	dummy = CloseHandle(hComm)                              'シルアルポートを閉じる
		Sleep(7999)
        End                                                 '強制終了
    End If

		'通信規約の設定
        stDCB.BaudRate = 9600
        stDCB.ByteSize = 8                           'ビット長の指定
        stDCB.fBitFields = &H0001                    'バイナリモードのフラグを有効にし
                                                     'RTSの制御を設定する（それ以外はFalseにする）
        stDCB.Parity = 0                             'パリティの設定（パリティなし）
        stDCB.StopBits = 0                           'ストップビット数を指定(1ビット)
        dummy = SetCommState(hComm, stDCB)           '必要な部分だけ書き換える

        'タイムアウトの設定
        timeOut.ReadIntervalTimeout = 000            '文字の読み込み待ち時間（500ms）
        timeOut.ReadTotalTimeoutMultiplier = 30        '読み込みの１文字あたりの時間
        timeOut.ReadTotalTimeoutConstant = 1        '読み込みの定数時間（500ms）
        timeOut.WriteTotalTimeoutMultiplier = 0        '書き込みの１文字あたりの時間
        timeOut.WriteTotalTimeoutConstant = 500        '書き込みの定数時間（500ms）
        dummy = SetCommTimeouts(hComm, timeOut)        'タイムアウトの設定

'読んでみると？
Dim rChr As String
Dim rLen As Long

dummy  = ReadFile(hComm, VarPtr(rChr), 110, VarPtr(rLen), ByVal 0)    
 Print dummy ;rLen
dummy  = ReadFile(hComm, VarPtr(rChr), 110, VarPtr(rLen), ByVal 0)    
 Print dummy ;rLen

'発生しているエラーを消してみる

dummy=ClearCommError(hComm, lpErrors, lpStat)
Print dummy;"Zero is fail"
Print "lperrors";Hex$(lpErrors)
Print "cbinque";lpStat.cbInQue
Print "Bitfiels";Hex$(lpStat.fCoBitFlds)
Print "cboutque";lpStat.cbOutQue
dumm2= lpStat.cbInQue

dummy=ClearCommError(hComm, lpErrors, lpStat)
Print dummy;"Zero is fail"
Print "lperrors";Hex$(lpErrors)
Print "cbinque";lpStat.cbInQue
Print "Bitfiels";Hex$(lpStat.fCoBitFlds)
Print "cboutque";lpStat.cbOutQue
dumm2= lpStat.cbInQue
 

' rChrは受信した文字列が入ります。
'　110 は受信する文字数
' rLenには受信した文字数が入ります。

'エラー解消後。また読んでみると？

dummy  = ReadFile(hComm, VarPtr(rChr), 110, VarPtr(rLen), ByVal 0)    
 Print dummy ;rLen
dummy  = ReadFile(hComm, VarPtr(rChr), 110, VarPtr(rLen), ByVal 0)    
 Print dummy ;rLen

dummy = CloseHandle(hComm)                   'シルアルポートを閉じる
Sleep(799999)
End

ab.com コミュニティ

RS232C通信関係が、うまく動きません。

返信する

展開ビュートピックのレビュー: RS232C通信関係が、うまく動きません。

ヒントありがとうございます

Re: RS232C通信関係が、うまく動きません。

RS232C通信関係が、うまく動きません。

RS232C通信関係が、うまく動きません。

返信する

展開ビュー トピックのレビュー: RS232C通信関係が、うまく動きません。

ヒントありがとうございます

Re: RS232C通信関係が、うまく動きません。

RS232C通信関係が、うまく動きません。

展開ビュートピックのレビュー: RS232C通信関係が、うまく動きません。