Ошибки чтения данных на сервере Delphi: как корректно обрабатывать байты и переводы строк

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

При разработке клиент-серверных приложений на языке Delphi часто возникают проблемы с чтением и обработкой данных, особенно когда дело доходит до работы с текстом и переводами строк. В данной статье мы рассмотрим типичную проблему, с которой сталкиваются разработчики: некорректное чтение данных сервером, приводящее к тому, что не все байты получаются корректно. Рассмотрим, как правильно настроить процесс чтения, чтобы избежать подобных ошибок.

Описание проблемы

Разработчик столкнулся с проблемой, когда клиент отправляет текст на сервер, а сервер не получает все байты. Клиент использует функцию Write, которая добавляет перевод строки к тексту перед отправкой. Функция WriteBuffer корректно возвращает количество отправленных байтов. Однако, при чтении данных на стороне сервера, функция ReadLn получает только часть данных, после чего recv не возвращает новые данные, так как буфер уже пуст.

Подтвержденное решение

Проблема заключается в том, что начиная с RAD Studio 2009, строки в Delphi представлены в виде WideChar, то есть каждый символ занимает 2 байта. Это приводит к тому, что при чтении строки, сервер получает не байты, а символы, что и вызывает путаницу с нулевыми байтами в буфере.

Для корректной работы с байтами и строками, рекомендуется использовать класс TEncoding для преобразования строк в байты и наоборот. Пример отправки строки на клиенте:

procedure TTCPConnection.Write(S: String);
var
  buff: TBytes;
begin
  buff := TEncoding.UTF8.GetBytes(S + EOL); // Преобразование строки в байты с использованием UTF-8
  WriteBuffer(buff, Length(buff));
end;

Пример чтения данных на стороне сервера:

procedure TForm3.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
var
  a: array[0..255] of byte;
  b: TBytes;
  i, n: integer;
  s: string;
begin
  n := ClientSocket.ReceiveBuf(a, 255, 0);
  SetLength(b, n);
  for i := Low(b) to High(b) do b[i] := a[i]; // Копирование из буфера приема
  s := TEncoding.UTF8.GetString(b);           // Преобразование байтов в строку
  // Обработка полученной строки
end;

Альтернативный ответ

Помимо использования TEncoding.UTF8, разработчику следует также учитывать особенности работы с разными кодировками, в частности, с UTF-16 и проблемами с порядком байт (endianness), если это необходимо. Рекомендуется использовать UTF-8, так как он проще в обработке и не требует учета endianness.

Заключение

При работе с байтами и текстом в Delphi важно понимать, как данные представлены в памяти и как они преобразовываются при чтении и записи. Использование TEncoding позволяет правильно обрабатывать данные, избегая ошибок, связанных с некорректным представлением символов и байтов в буфере.

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

Проблема связана с некорректным чтением данных сервером на Delphi, вызванным неправильной обработкой байтов и переводов строк, и предлагается решение с использованием класса `TEncoding` для корректного преобразования строк в байты и обратно.

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

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

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