델파이의 시리얼 포트 동기화

Question

아직 TComPort 컴포넌트에 문제가 있지만 이번에는 컴포넌트 자체가 로직이 아닙니다. 장치 마녀 직렬 포트를 통해 일부 아스키 문자열을 보냅니다 그 문자열을 prase 필요가 문제는 컴퓨터가 너무 빨리 사건의 이벤트를 문자열의 나머지 부분 만 캡처 나중에 문자열의 나머지 부분은 ... 그것이 암시 될 때 그것을 파싱하는 것은 불가능하게 만듭니다.

10 미터 이상의 연속적인 활동이 없는지 확인하고 버퍼에 저장하고있는 문자열을 초기화하십시오. 하지만이 방법은 전문가가 아닙니다. 유휴 이벤트 마녀가 아니에요. 내 문제를 해결하기 위해 최선의 해결책을 기다리고 있습니다. 감사. OnRXChar 이벤트

Answer 1

는 직렬 포트 구성 요소의 수를 사용한 후, 나는이 THandleStream 인스턴스에 처리 전달 CreateFile('\\?\COM1',GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0)을 사용하고 그것에서 읽을 수있는 전용 스레드를 시작하여, 지금까지 가장 좋은 결과를 가지고있다. 스레드가 이벤트 핸들러를 작성하는 것보다 조금 더 많은 작업을한다는 것을 알고 있지만 직렬 포트를 사용하여 발생하는 모든 동기화 문제를 처리하는 가장 좋은 방법입니다.

Answer 2

일반 핸들러 :

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

참고. 대부분의 컴 포트 구성 요소는 소유자에게 다시보고 할 때 단서가 없습니다. 일반적으로 포트에서 바이트를 수집하는 스레드는 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보다 몇 밀리 초 지연을 사용하여 데이터가 완전히 전송되도록 할 수 있습니다.

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

...