Разбор символов перевода строки в сокетах Delphi при использовании протокола ADC

Delphi , Интернет и Сети , Сокеты

Работая над программой на Delphi, предназначенной для соответствия протоколу ADC, разработчики столкнулись с проблемой, связанной с обработкой символов перевода строк. В соответствии с спецификацией протокола ADC, каждая строка должна заканчиваться символом перевода строки, который может быть представлен в виде комбинации символов #10#13 (возврат каретки и перевод строки) или sLineBreak. Однако, при чтении данных из сокета, строки не разделялись, и все данные приходили как одна большая строка. Проблема заключалась в том, что функция Pos(sLineBreak, Buf) возвращала 0, что указывало на отсутствие символов перевода строки в буфере.

Пример кода, который использовался для чтения данных из сокета, выглядел следующим образом:

procedure OnRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  // чтение всех данных из сокета
  while Socket.ReceiveLength > 0 do
    Buf := Buf + Socket.ReceiveText;

  // использование только полных строк
  while Pos(sLineBreak, Buf) > 0 do begin
    // разбор строки
  end;
end;

Сервер может отправлять команды с несколькими вложенными новыми строками, поэтому необходимо читать данные из сокета полностью, а затем разбирать их на отдельные команды вместо предположения, что каждая команда приходит отдельно при каждом чтении сокета.

Подтвержденный ответ:

В спецификации протокола указано, что "каждая сообщение заканчивается переводом строки (кодовая точка 0x0a)", что соответствует одному символу в Delphi. В синтаксисе Delphi это будет #10 или #$a.

Обычное значение для sLineBreak в Windows составляет #13#10 — сначала идет возврат каретки, затем перевод строки. Последовательность #10#13 не является символом перевода строки ни на одной из известных платформ.

Все строки отображаются как одна в вашем компоненте TMemo, потому что вы получаете только символы перевода строки без возврата каретки, а TMemo ожидает оба символа для завершения строки. Это аналогично тому, как если бы вы загрузили текстовый файл в стиле Unix в программу, не предназначенную для этого (например, в Notepad).

Решение проблемы:

Для корректного чтения данных из сокета и разделения их на строки, необходимо учитывать, что перевод строки может быть представлен в виде двух символов. Следовательно, при разборе данных из буфера Buf следует использовать комбинацию #13#10 для определения конца строки. Пример кода для чтения полных строк:

while (Pos(#10, Buf) > 0) and (Pos(#13, Buf[Pos(#10, Buf):PredLen(Buf, Pos(#10, Buf))]) > 0) do
begin
  // Получаем индекс начала следующей строки
  var LineStart := Pos(#10, Buf);
  // Получаем индекс перевода строки (возврат каретки и перевод строки)
  var LineEnd := Pos(#13, Buf[LineStart:PredLen(Buf, LineStart)]);
  // Обработка строки
  var Line := Copy(Buf, LineStart, LineEnd - LineStart + 1);
  // Удаляем обработанную строку из буфера
  Delete(Buf, LineStart, LineEnd + 2);
  // ... дальнейшая обработка строки ...
end;

Таким образом, при чтении данных с использованием сокетов в Delphi и обработке протокола ADC, важно корректно обрабатывать символы перевода строк, учитывая их возможное представление в виде двух символов.

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

Разработчики сталкиваются с необходимостью корректного разбора символов перевода строк при использовании протокола ADC в программе на Delphi, чтобы правильно обрабатывать входящие данные из сокета.

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

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

:: Главная :: Сокеты ::