Решение проблем с получением данных от микроконтроллера ATMEL через TCP/IP

Delphi , Интернет и Сети , TCP/IP

Решение проблем с получением данных от микроконроллера ATMEL через TCP/IP

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

Шаг за шагом:

1. Использование TMemoryStream:

Создаём объект TMemoryStream, который будет служить буфером для полученных данных:

pascal private FDataBuffer: TMemoryStream;

Инициализируем поток в конструкторе класса, где он используется:

pascal constructor Create(LoadInterval: Cardinal; SyncInterval: Cardinal = 25); begin // ... FDataBuffer := TMemoryStream.Create; end;

1. Сохранение данных:

При получении новых данных, сохраняем их в поток:

pascal procedure TForm1.trCItcReceive(ASender: TIdConnectionIntercept; var ABuffer: TArray<System.Byte>); begin if FDataBuffer <> nil then FDataBuffer.WriteBuffer(ABuffer[0], Length(ABuffer)); end;

1. Чтение данных:

Разрабатываем процедуру для чтения полных пакетов из потока:

```pascal procedure Load(iStream: TMemoryStream); var iData: TBytes; vsp, buflen: Integer; begin SetLength(iData, iStream.Size div SizeOf(Byte)); iStream.ReadBuffer(iData[0], Length(iData)); vsp := 9; // Позиция валидационной строки buflen := 30; // Ожидаемая длина пакета

 if (Length(iData) = buflen) And (iData[0] = $40) And (iData[vsp] = $41) And (iData[vsp + 1] = $42) And (iData[vsp + 2] = $43) Then
   SetStatus(iData)
 else // Очистка потока, если данные не соответствуют формату пакета
   iStream.Clear;

end;

procedure SetStatus(AData: TBytes); begin // Код для обработки статуса устройства... end; ```

1. Обработка данных:

В цикле чтения из потока, вызываем процедуру Load до тех пор, пока не будет прочитан весь буфер:

pascal procedure TForm1.ReadLoop; begin while FDataBuffer.Size >= buflen do Load(FDataBuffer); end;

1. Обновление интерфейса чтения данных:

Изменяем процедуру trCItcReceive для активации цикла чтения при получении новых данных:

```pascal procedure TForm1.trCItcReceive(ASender: TIdConnectionIntercept; var ABuffer: TArray); begin // Сохранение данных в буфер... FDataBuffer.WriteBuffer(ABuffer[0], Length(ABuffer));

 // Циклическое чтение из потока, пока возможно:
 ReadLoop;

end; ```

1. Управление ресурсами:

Не забываем освободить используемые ресурсы в деструкторе класса:

pascal destructor Destroy; override; begin if FDataBuffer <> nil then FDataBuffer.Free; inherited; end;

Примечание:

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

Использование TMemoryStream позволяет эффективно собирать и обрабатывать данные от микроконтроллера, обеспечивая их целостность даже при возникновении временного разрыва связи.

Создано по материалам из источника по ссылке.

Решение проблемы с получением данных от микроконтроллера ATMEL через TCP/IP включает использование TMemoryStream для буферизации и корректного чтения разделённых на пакеты данных.

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

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

:: Главная :: TCP/IP ::