Как узнать, есть ли в приёмном буфере RS232 данные

Delphi , Файловая система , RS232

При помощи функции ClearCommError можно узнать, сколько байт данных находится в буфере приёма (и буфере передачи) последовательного интерфейса.

procedure DataInBuffer(Handle: THandle;
var InQueue, OutQueue: integer);
var
  ComStat: TComStat;
  e: integer;
begin
  if ClearCommError(Handle, e, @ComStat) then
  begin
    InQueue := ComStat.cbInQue;
    OutQueue := ComStat.cbOutQue;
  end
  else
  begin
    InQueue := 0;
    OutQueue := 0;
  end;
end;

Переведенный текст:

Код-сниппет написан на языке Pascal и предназначен для проверки наличия данных в буфере приема интерфейса серийной коммуникации (RS232) с помощью функции ClearCommError.

Описание кода:

1. Процедура DataInBuffer принимает два параметра: Handle, представляющий.handle порта, и две переменные InQueue и OutQueue для хранения результатов.
2. Внутри процедуры она проверяет успешность выполнения функции ClearCommError присваивая ее возвращаемое значение переменной e. Если функция выполняется успешно, то продолжает с следующими шагами; иначе, устанавливает оба InQueue и OutQueue в 0.
3. Функция ClearCommError принимает три параметра: Handle, код ошибки (e) и указатель на структуру TComStat, содержащую информацию о состоянии порта серийной коммуникации.
4. Если функция выполняется успешно, то извлекает значения cbInQue (число байтов в буфере приема) и cbOutQue (число байтов в буфере передачи) из структуры TComStat и присваивает их InQueue и OutQueue, соответственно.

Цель этой процедуры, вероятно, заключается в определении наличия входящих данных для обработки в интерфейсе серийной коммуникации. Если InQueue больше 0, то это указывает на то, что есть байты в буфере приема; иначе, он пуст или не доступен.

Альтернативный подход:

Вместо использования функции ClearCommError, можно использовать функцию GetCommModemStatus для получения информации о состоянии порта серийной коммуникации. Функция возвращает структуру, содержащую различные флаги и значения, указывающие на текущее состояние интерфейса серийной коммуникации.

Можно модифицировать процедуру для использования GetCommModemStatus следующим образом:

procedure DataInBuffer(Handle: THandle; var InQueue, OutQueue: integer);
var
  ModemStat: TModemStat;
begin
  if GetCommModemStatus(Handle, @ModemStat) then
  begin
    if (ModemStat.msRcvLineStat <> RCVDS0) then // Проверка наличия входящих данных
      InQueue := ModemStat.cbInQue; // Обновление InQueue с числом байтов в буфере приема
    OutQueue := ModemStat.cbOutQue; // Обновление OutQueue с числом байтов в буфере передачи
  end
  else
  begin
    InQueue := 0;
    OutQueue := 0;
  end;
end;

Этот подход предоставляет больше гибкости и позволяет проверять конкретные условия, связанные со статусом интерфейса серийной коммуникации.

Для определения наличия данных в приёмном буфере RS232 можно использовать функцию ClearCommError, которая возвращает количество байт данных в буфере.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: RS232 ::