デルファイでのシリアルポートの同期

Question

私はまだTComPortコンポーネントに問題がありますが、今回はコンポーネントそのものがその背後にあるロジックではありません。私はデバイスの魔女がシリアルポート経由でいくつかのASCII文字列を送信する私はそれらの文字列をpraseする必要がありますコンピュータは非常に速く反応するので、文字列の残りの部分だけをキャプチャする覚えているときにそれを解析することは不可能になります。

私は10才以上のシリアルアクティビティがないかどうかを確認してから、バッファに保存している文字列を作成します。しかし、この方法は専門家ではありません私は聞くことができるアイドルイベントの魔女はありません...私の問題のための最善の解決策を待っています。ありがとう。

Answer 1

は、シリアル・ポート・コンポーネントの数を使用した後、私は、CreateFile('\\?\COM1',GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0)を使用してTHandleStreamインスタンスに、そのハンドルを渡し、そこから読み込むための専用のスレッドを開始することにより、今まで最高の結果を持っています。私は、スレッドがイベントハンドラを書くよりももう少し多くの作業を行うことを知っていますが、それでもシリアルポートを使用することから生じる同期の問題を処理する最良の方法です。

Answer 2

OnRXCharイベントの典型的なハンドラ：

procedure XXX.RXChar(Sender: TObject; Count: Integer); 
begin 
    ComPort.ReadStr(s, Count); 
    Accumulator := Accumulator + s; 
    if not AccumContainsPacketStart then 
    Accumulator := '' 
    else if AccumContainsPacketEndAfterStart then begin 
    ExtractFullStringFromAccum; 
    ParseIt; 
    end; 
end; 

Answer 3

注意。 ほとんどのCOMポートコンポーネントは、所有者に報告するときにヒントを得ません。通常、ポートからバイトを収集する責任を負うスレッドには、1つ以上のバイトが処理可能な状態であることがOSによって通知されます。この情報はあなたのレベルまで単純に表示されます。だからあなたは、メッセージが転送されることを期待すると、あなたはOSがあなたに与えているものを得る。

すべての受信文字をグローバルバッファにバッファリングする必要があります。メッセージ文字列の最後の文字を取得したら、メッセージを処理します。

ここでは、メッセージ開始が特殊文字で識別され、メッセージの末尾が別の文字で識別される例を示します。

あなたのメッセージが別の方法で構築されている場合は、コードをどのように適応させるかを理解できます。

var 
    finalBuf: AnsiString; 

{- Checking message } 
Function ParseAndCheckMessage(const parseS: AnsiString) : Integer; 
begin 
    Result := 0; // Assume ok 
    {- Make tests to confirm a valid message } 
    ... 
end; 


procedure TMainForm.ComPortRxChar(Sender: TObject; Count: Integer); 
var 
    i,err: Integer; 
    strBuf: AnsiString; 
begin 
    ComPort.ReadStr(strBuf, Count); 
    for i := 1 to Length(strBuf) do 
    case strBuf[i] of 
     '$' : 
     finalBuf := '$'; // Start of package 
     #10 : 
     begin 
      if (finalBuf <> '') and (finalBuf[1] = '$') then // Simple validate check 
      begin 
       SetLength(finalBuf, Length(finalBuf) - 1); // Strips CR 
       err := ParseAndCheckMessage(finalBuf); 
       if (err = 0) then 
       {- Handle validated string } 
       else 
       {- Handle error } 
      end; 
      finalBuf := ''; 
     end; 
    else 
     finalBuf := finalBuf + strBuf[i]; 
    end; 
end; 

Answer 4

プロトコルに開始/終了マーカーがある場合は、TComDataPacketを使用して、利用可能なときにフルパケットを提供できます。

Answer 5

ある程度の文字の場合、データが完全に送信されることを確認するために、ReadStrの前に数ミリ秒の遅延を使用できます。文字の4量の例：

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); 
var 
    Str: String; 
    tegangan : real; 
begin 
    sleep(100); //delay for 100ms 
    ComPort1.ReadStr(Str, 4); 

...