Разбор форматов данных в буфере входного потока с использованием Delphi Indy и TcpClient

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

В статье рассматривается проблема идентификации типов данных, поступающих через сетевой канал в контексте использования компонентов Delphi Indy для работы с TCP-клиентом. Основное внимание уделяется методам определения, является ли полученный пакет данных потоком файла или просто последовательностью байтов.

Проблема

Разработчики часто сталкиваются с задачей различения типов данных, передаваемых по сети, особенно когда речь идет о небольших пакетах байт и потоках файлов. Вопрос заключается в том, как определить, что именно пришло на вход: файловый поток или просто последовательность байтов.

Решение

Для решения этой задачи необходимо разработать протокол обмена данными, который позволит клиенту понимать тип поступающих данных. Один из способов - использование протокола TLD (Type-Length-Data), где сначала передается идентификатор типа данных, затем его длина, и после этого сам набор байтов.

Пример кода

program TcpClientProtocolExample;

{$APPTYPE CONSOLE}

uses
  IdTCPClient,
  SysUtils;

// Протокол TLD: тип данных (byte), длина сообщения (int64), данные.
type
  PACKEDrecord
    TDType: Byte;
    TDLength: Int64;
    TDData: array of byte; // Содержимое, соответствующее типу и длине
  end;

var
  Client: TIdTCPClient;
  ReceivedPacket: TDType = nil;
  DataArray: TArray<byte>;
  PacketType: Byte;
  PacketLength: Int64;
  i: Integer;

begin
  // Инициализация TCP клиента
  Client := TIdTCPClient.Create(nil);
  try
    Client.Connect('127.0.0.1', 12345);

    // Чтение пакета данных
    SetLength(DataArray, Client.IOHandler.ReadBytes(SizeOf(TDType) + SizeOf(Int64)));
    ReceivedPacket := TDType(DataArray[0]);
    Assign(ReceivedPacket.Data, @DataArray[SizeOf(TDType) + SizeOf(Int64)], Length(DataArray) - (SizeOf(TDType) + SizeOf(Int64)));

    // Разбор заголовка пакета
    PacketType := ReceivedPacket.TDType;
    PacketLength := ReceivedPacket.TDLength;

    // Обработка данных в зависимости от типа и длины
    case PacketType of
      1:
        begin
          // Действия для обработки файлового потока, например.
        end;
      2:
        begin
          // Действия для обработки байтовых пакетов, например.
        end;
    else
      begin
        // Обработка неизвестного типа данных.
      end;

    // Проверка корректности длины полученных данных
    if Length(ReceivedPacket.Data) <> PacketLength then
      begin
        // Вывод ошибки при несоответствии ожидаемой и фактической длины
      end;
  finally
    Client.Free;
  end;
end.

В примере кода представлена структура пакета, содержащая идентификатор типа данных (PacketType), его длину (PacketLength) и непосредственно данные. Клиент должен уметь корректно читать эти заголовки и обрабатывать содержимое в соответствии с полученными параметрами.

Заключение

Использование протокола обмена данными позволяет клиенту точно идентифицировать тип поступающих данных, что критично для предотвращения ситуаций "out of sync". Разработчикам важно понимать, что обработка входящих пакетов полностью зависит от правильно реализованного и соблюдаемого протокола на стороне клиента.

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

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

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

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

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