Решение проблемы с приемом многострочного текста через сокет в приложениях на Delphi и Pascal

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

Проблема с приемом многострочного текста через сокет в Delphi

При работе с сетевыми приложениями на языке Delphi, разработчики часто сталкиваются с необходимостью отправки и приема текста через сокеты. Одна из распространенных проблем заключается в том, что при отправке нескольких строк текста клиентом, сервер может получать их как одну строку. Это происходит из-за того, что метод SendText компонента TClientSocket не добавляет автоматически разделителей строк, таких как CRLF (Carriage Return Line Feed), которые необходимы для корректного разделения строк на сервере.

Пример кода клиента:

ClientSocket1.Socket.SendText(Edit1.Text + #13#10); // Добавляем CRLF для новой строки
ClientSocket1.Socket.SendText(Edit2.Text + #13#10); // Добавляем CRLF для новой строки

Пример кода сервера:

procedure TForm1.ServerSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  Strm: TMemoryStream;
  RecvLen: Integer;
  StrmSize, I: Int64;
  Ptr: PByte;
  B: Byte;
  s: AnsiString;
begin
  // ... инициализация и чтение данных из сокета ...

  while (Strm.Size - Strm.Position) >= 2 do
  begin
    Strm.ReadBuffer(B, 1);
    if B <> 13 then Continue;

    Strm.ReadBuffer(B, 1);
    if B <> 10 then
    begin
      if B = 13 then
      begin
        Strm.Seek(-1, soCurrent);
        Continue;
      end;
    end;

    SetString(s, PAnsiChar(Strm.Memory), Strm.Position-2);

    // ... обработка полученной строки ...

    Memo1.Lines.Add(S);
  end;
end;

Важно:

• Метод SendText не добавляет разделителей строк автоматически, их нужно добавлять вручную, используя символы #13#10, которые соответствуют CRLF.
• Серверу необходимо обрабатывать полученные данные, учитывая разделители строк, чтобы корректно их разделить на отдельные строки.
• TCP/IP является потоковым протоколом, и сокеты не имеют встроенного механизма определения границ сообщений, поэтому разработчикам необходимо самостоятельно определять эти границы.

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

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

Проблема заключается в необходимости добавления разделителей строк при отправке текста через сокет в Delphi для их корректного разграничения сервером.

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

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

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