Mscommを使用してバイナリデータを受信する方法と文字に変換する方法

前へ 次へ
このQ&Aのポイント
  • Mscommを使用して、バイナリでデータを受信する方法について質問です。受信データは垂れ流しであり、配列に格納する必要があります。
  • 受け取ったバイナリデータをバリアント型の変数に格納し、それを1バイトごとにバイト型の配列に入れていきます。次に、配列内の制御文字を取り除き、データを文字に変換します。
  • バイナリデータをバイト型の配列に格納し、制御文字を取り除いた後、文字に変換してつなげることで、データを受信し変換することができます。受信データが制御文字を含んでいるため、バイナリ形式で受信し、後から文字に変換する必要があります。
回答を見る
  • ベストアンサー

Mscomm を使用してバイナリでデータを受信したい

Mscommを使用して、垂れ流しデーターをバイナリで受信(受信データ長さは変化する)するとき、このデーターをどうやって、配列に格納していけば良いのでしょうか？ (垂れ流しデータ　⇒　< STX >nnn-nnn・・・・< ETX >< CHK >) また、配列に格納したデーターを文字に置き換えるにはどうすれば良いでしょうか？ まず考え方として以下の流れでよいでしょうか？ バイナリデータをバリアント型の変数に入れる。(受信する) 　　　　　↓ このデータを1バイトごとにバイト型変数の配列に入れていく。 　　　　　↓ 格納した配列の中の制御文字を取り除く。( ST、EX ) 　　　　　↓ 配列に入っているデータを文字に変換する。 　　　　　↓ 変換した文字をつなぐ。 受信するデーターが制御文字を含んでいる為、テキストで受信するとおかしな動作をすることがあるので(150バイト程度のデーターを、バッファから変数に移すときに、0.5～2.5秒もかかってしまうし、文字化けも時々起こす。)バイナリで受信してその後文字に変換したいのですが・・・。 宜しくお願い致します。

  • UME3
  • お礼率100% (16/16)

質問者が選んだベストアンサー

  • ベストアンサー
  • TAGOSAKU7
  • ベストアンサー率65% (276/422)
回答No.1

（記憶が薄いので、正確ではありません。） Dim bytAry() as byte として、それに直接受信してあげると必要な領域を勝手にVB側で用意してくれると思いました。 それを Dim strWork as String (1)strWork = strConv(bytAry,vbUnicode) (2)strWork = strConv(bytAry,vbFormUnicode) どっちかで変換だったと思うけど、それでバイナリデータを文字列化します。 そのあと VB6ならReplace関数で制御文字だけを置き換えて使用すると便利かも？ 最初に述べたように、かなり記憶があいまいです。環境がないので性格には答えられません。m(__)m

UME3
質問者

お礼

TAGOSAKU7さん、回答ありがとうございます。 私の考え方が間違っていたようです。 バイナリデータも文字列と同じように、いったん受信しから配列に割り振らないとダメかと思っていました。(^^ゞ 何もせずに配列に入ってくれるとは・・・。 おかげ様でうまくバイナリデータを受信することが出来ました。 ありがとうございました。　　　UME3　m(__)m

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • MSCommについて

    ↓例の桁数、データブロックが不定で連続して受信されます。 最後の1桁は(ETX)です。 (STX)XXXXXX...(ETX)(STX)XXXXX...(FS)XXXXX...(ETX)(STX)XXXXX.......(FS)XXXX...............(ETX) すべての桁数、データブロックが対象なので一度に受信します。 １． 質問はInputプロパティで1桁ずつデータをREC変数に読み込んで、ある条件で、Loop分を抜けたいのですが、 VB6の定義方法がわかりません。 １－１．最後の(ETX)の読み込み １－２．先頭30桁　 MSComm1.InBufferCount = 0 MSComm1.InputLen = 1 Dim REC As String Do DoEvents If MSComm1.InBufferCount Then REC = REC & MSComm1.Input If ..... '最後の(ETX)の読み込み '先頭30桁 Exit Do End If 　　End If Loop ２． スピート重視で処理するために、InBufferCountに値があったら、すべての受信データをRECにいれたいのですが 取得できていません。 アドバイスはございますか? MSComm1.InBufferSize = 2048 MSComm1.InBufferCount = 0 MSComm1.InputLen = 0 Dim REC As String Do DoEvents If MSComm1.InBufferCount >= 1 Then Exit Do End If Loop REC = MSComm1.Input

  • MSCommを用いたRS-232-Cデータ転送

    Visual Basic ver.6を用いてRS-232-Cデータ転送のプログラムを書いています。 転送には，MSComm controlを用いています。 コンピューター側から命令コードを測定器側に送信すると（例えば，MSComm1.OutPut = "F,3,300," & Chr(13)のように），測定器側からは次のようなテキストデータの転送が指定された回数だけ起こります： @C/R 数値データC/R 数値データC/R ・・・・ ・・・・ （指定回数繰り返す） そこで，質問ですが，このデータをMSComm1.Inputを介してきちんと取得する方法をお教えください。私がよく理解できいない部分は，「どのような形でbufferにデータが落ちているのか？」という部分と「繰り返し処理をどう記述するのか？」という部分です。多分後者は配列型変数を用いて「指定回数」だけ繰り返すことになると思いますが・・・・。 なお，データ転送の制御フォーマットはデータのみの転送で，STXもETXも使用していません。

  • バイナリデータの取り方

    ＶＢ６を使用して、バイナリファイルをバイナリデータとして文字列にとりたいのですが、全角文字が絡んだ時の処理がうまくいきません。 バイナリファイルをＳｔｒｉｎｇ型の変数に丸ごと読み込んで、後は何バイトから何バイト目を抜き取り数値に変換…という処理をしようとしています。 本来は、バイナリでファイルをオープンして、Ｇｅｔコマンドで取得するのが手っ取り早いのですが、ファイルアクセス回数を減らすため、このような面倒な方法をとっております。 そこで仮に、 dim test as string dim i as integer test = "aあ" & chr(1) & "0 " For i = 1 to 6 Debug.Print Asc(Strconv( _ MidB(Strconv(test,vbFromUnicode),i,1), _ vbUnicode)) Next のようなソースを作ってみました。(本来は文字列は数100KByte…) しかしながら、この方法ですと上の例では2Byte目、つまり「あ」の文字の1Byte目が「&H00」になってしまいます。その次は「&HA0」、他の箇所も問題ないのですが… おそらくは根本的に違う方法で解決すべきではないかと思うのですがその方法がわかりません。 なお、この格納データはバイナリデータなので、意図的に全角文字にしていくてもその値によって(偶然)全角文字になったり制御文字になったりしますので前もって全角文字に対する処理は難しいと考えてます。 質問の仕方が良くなく、質問の内容がなかなかご理解いただけないとは思いますが、ご存知の方、ご経験者の方、ご教授お願いいたします。

  • こんにちは、VBはじめたての初心者です。MSCommコマンドを利用して

    こんにちは、VBはじめたての初心者です。MSCommコマンドを利用してマイコンと 通信するプログラムを作成中なのですが、わからないことがあるので質問させていただきます。 public aub form_load() MSComm1.CommPort = 3 'ポート番号設定 MSComm1.Settings = "115200,N,8,1" '設定 MSComm1.PortOpen = True 'ポートオープン MSComm1.Handshaking = comNone 'フロー制御無し MSComm1.RTSEnable = False 'RTS制御無し MSComm1.RThreshold = 1 '１バイト受信毎にOnCommイベント発生 Dim txBuffer As String End sub 'テキストに表示した受信文字列を変数に格納、さらに必要な文字列だけ抽出する Private Sub botan_Click() txBuffer = Text2.Text x = InStr(1, txBuffer, "e" & vbCrLf, 1) txBuffer = Mid(txBuffer, x + 3, (Len(txBuffer) - (x + 2))) Text1.Text = txBuffer 'txBufferの内容確認用 End Sub Private Sub cmdr_Click() Text2.Text = "" MSComm1.Output = "r a0 s 00 j ff" & Chr(13) 'マイコンのデータを読み込むコマンド End Sub Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvReceive Buffer = MSComm1.Input Text2.Text = Text2.Text & Buffer ・ ・ ・ End Select End Sub おおざっぱですがこのようなプログラムをつくりました。 目的は受信された文字列（テキストに表示）を変数に格納、さらに必要な文字列だけ抽出する ことなのですが、このプログラムだとデータを読み込むコマンドを送るボタンとそのデータを 変数に格納して必要な部分を抽出するボタンを二回押さなければならず面倒なので、botan_Click() の中の命令をそのままcmdr_Click()に入れたのですが、そうするとエラーが出てしまいます。 いろいろと試したのですがどうやらtxBufferの中に受信データが入ってくれないみたいです。 原因は何か。何かいい方法がないかアドバイスいただけたら幸いです。 やりたいことは、一回のボタンクリックで変数に受信データのほしいとこだけを格納させることです。 よろしくお願いします。

  • RS-232Cでバイナリデータを受信する方法

    ２台のPCを使用しバイナリファイルをRS232Cを使用し1台目のPCは送信専用、2台目のPCは受信専用で、送信側のPCから出したデータを受信側PCでデータの内容を判断し集計するプログラムを作ろうとしています。 送信側のPCでは、"AAB9AAC2AACC01D8AAE2・・・”といった内容のバイナリファイルの内容を1バイトずつ読み込み、それをMsCommを用いてバイナリモードで送信させて、EOFになるまで永遠とそれを繰り返します。 問題は受信側で、たとえば上記のデータの中の"AAB9"ならばカウントを1つ上げる、"AACC01D8"ならばカウントを1つ下げ、それを表示するといったような処理をリアルタイムで行いたいのですが、どうしてもデータの取りこぼしが発生します。 また、データの意味合いとしては、必ず"AA"という１バイトのデータから始まり、それに1バイトから5バイトまでのデータが可変長で付いてきて次の"AA"までが1つの意味となります。 通信パラメータは9600、8ビット、ストップビット１、パリティなしで、その他の制御線は一切使用しないという条件です（要するにRxD、GND線のみの最低限の条件） 受信側のバッファは1024バイトで、MSComm1.RThreshold = 1でOnCommを発生させています。また、送信側のファイルの大きさは1kバイトほどです 正直なところ、このようなことが可能なのかどうかもわからない状況なのですが、現状ではデータを数バイト取りこぼしているだけのようなのでできないことはないのではないか？と考えています。 どなたか、参考文献、ホームページ、プログラム、考え方等を何でもかまいませんん！ぜひ、ご教授願います！！また、現在はVBにて開発中ですが、最悪、言語は問いません。よろしくお願いいたします。

  • バイナリ5バイトを文字10バイトに変換

    バイナリ5バイトを文字10バイトに変換 いつもお世話になっています。 Ｃ＋＋初心者です。 12 34 56 78 90(バイナリ5バイト)を 1234567890(文字10バイト)に変換する方法はありますか？ バイナリで読み込んだデータがあり、特定箇所に、数字１０桁が格納されてます。 下記イメージです。 12 34 56 78 90(バイナリ5バイト) それを文字１０バイトで処理するしたいのですが、変換方法がネットで探せませんでした。 お知恵をお貸しください。 環境はVC++6 です。 よろしくお願いします。

  • C#でバイナリデータをテキストフォームへ表示させるには？

    C#でバイナリデータをテキストフォームへ表示させるには？ C#でバイナリファイルをテキストへ変換するツールを作成しています。 バイナリデータを配列へ格納し、その配列をテキスト変換してテキストフォームへ出力させるという処理を作成したいのですが、どうすれば良いのかどうしてもわかりません。 どのようなコードをどのようにして書けばよいのか、ご教示いただけないでしょうか。 よろしくお願いします。 （ちなみにC#を始めて1週間ほどです）

  • rs232cでの受信データ(mscomm)の受信方法ＶＢ６

    ＶＢ６で、シリアル通信プログラムを作っています。 機器からレスポンスが、02 00 44 03 61 62 63 03 72 0Dと９バイトくるのですが、 ８バイト受信した後に、また、最後の0Dを１バイト目として受信しているので困っています。 ｏｎ　ｃｏｍｍイベントで以下のようにして受信データをテキストボックスに表示しているのですが、 Select Case MSComm1.CommEvent 　　Case comEvReceive 　　　　　　Dim Buffer() As Byte 　　　　　　Buffer() = MSComm1.Input 　　　　　　For t = 0 To 6 + Buffer(3)　　,BUffer(3)はデータ長です。 　　　　　　Text1.Text = Text1.Text & Hex$(Buffer(t)) & Chr(&H3A) 　　　　　　Next t ８バイト表示した後、１バイト受信が起こるので、Buffer(3)が範囲外となりエラーが起こります。 inputLenは0にしています。 この問題は解決するにはどうしたらよいでしょうか？ 0Dは終了コードです。0Dを受信するまで、きちんと１バイトづづ格納していくなどというようにできたらよいのですが、、、 他にも簡単な方法があったらよいのですが、、、 よろしくお願いいたします。

  • バイナリデータの検索(VB.NET2008)

    バイナリファイルを読込み、バイト配列に格納しています。 aaa(0) = 0 aaa(1) = 90 aaa(2) = 0 aaa(3) = 255 aaa(4) = 255 aaa(5) = 0 aaa(6) = 255 この配列から、「FFFF」が見つかった位置を検索したいと考えています。 (上の例で言うと3を取得したい) 現在は配列の最初から最後まで1バイトずつずらして読込み、見つかった場所を特定しています。16進表記の文字列に変換し、文字列として検索する方法も考えましたが、どちらも非効率な気がしています。 他のやり方を知っている方がいましたら教えてください。 [環境] VB2008,XP32SP3

  • 高速シリアル通信での大容量のデータ転送について(mscomm)

    現在高速シリアル通信のプログラムを作成しています。なかなか検索で いろいろと探しているのですがデータ容量が増えるとどうしてもサンプル プログラムで同じ結果になってしまいます。 どういう現象かといいますと10000バイトぐらいのデータを転送するとどう してもデータ上のかけ落ちが発生します。 ボーレート：38400 or 19200bps データビット：８Bit　パリティ：なし　ストップビット：１Bit フロー制御：XonXoffRTSCTSあり　データはバイナリィ転送です。 ==>送信側のプログラムでは以下通りです。 　　'バイナリデータファイルを読み込み For i& = LBound(bytBuf) To UBound(bytBuf) bytedata(LineCnt) = bytBuf(i&) If (LineCnt < 255) Then　'255バイトずつ分割して送信 bytedata(LineCnt) = bytBuf(i&) Else 'タイマー処理（wait制御） MSComm1.Output = bytedata LineCnt = 0 bytedata(LineCnt) = bytBuf(i&) End If LineCnt = LineCnt + 1 Next i& 'WAIT掛けたり分割してデータを転送したり一括でデータを転送したり 行っています。 ==>受信側では以下の通りとなっております。 Select Case MSComm1.CommEvent 　　 Case comEvReceive '受信データの取得 Buffer = MSComm1.Input　'あとはバイトデータを結合させて 　　　　　　　　　　　　　　　　　　　'おります。 データの送信や受信について教えていただきたいのですが特に受信側で 私が思うのでは送信データが早すぎて受信側が追いついていない状態 と思うのですが・・・ なにかいい方法や参考になるホームページ等がありましたら伝授お願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する