Синхронизация последовательного порта в Delphi

Question

У меня все еще возникают проблемы с компонентом TComPort, но на этот раз не сам компонент, а логика. У меня есть устройство, которое посылает некоторые строки ascii через последовательный порт. Мне нужно прогнать эти строки, проблема в том, что компьютер реагирует очень быстро, поэтому в случае char он захватывает только часть строки, остальная часть строки возвращается позже ... поэтому синтаксический анализ, когда он получен, делает невозможным.

Я думал о написании таймера, проверяющего, не было ли последовательной активности 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

Примечание. Большинство компонентов компрометирования не имеют понятия, когда следует сообщать об этом владельцу. Обычно поток, ответственный за сбор байтов от порта, сообщает ОС, что один или несколько байтов готовы к обработке. Затем эта информация просто появляется на вашем уровне. Поэтому, когда вы ожидаете передачи сообщения, вы получаете то, что дает вам ОС.

Необходимо буферизировать все входящие символы в глобальном буфере. Когда вы получите окончательный символ в строке сообщения, обработайте сообщение.

Вот пример, когда начало сообщения идентифицируется специальным символом, а конец сообщения идентифицируется другим символом.

Если ваше сообщение построено по-другому, я уверен, что вы можете выяснить, как адаптировать код.

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); 

...