"Сериализация структурных типов в Delphi: передача данных через сетевые потоки с использованием NetworkStream"

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

Сериализация структурных типов в Delphi: передача данных через сетевые потоки с использованием NetworkStream

В статье рассматривается процесс сериализации и десериализации записей (structs) на языке Object Pascal, используемом в среде разработки Delphi. Основное внимание уделяется решению задачи по передаче структурированных данных через сетевой поток с использованием класса NetworkStream. Это может быть полезно для реализации различных сетевых приложений, включая клиент-серверные системы и распределенные вычисления.

Проблема

Разработчики часто сталкиваются с необходимостью передавать данные между машинами через сеть. В контексте Object Pascal это может быть запись (record) или структура данных, которая требует сериализации для последующей отправки по сети и десериализации при получении.

Пример записи в Delphi:

TRemoteRecord = record
  command: TRemoteCommand;
  status: TRemoteStatus;
  signame: string;
  rvalue: Double;
  ivalue: LongInt;
end;

Однако, попытка напрямую записать данные через NetworkStream вызывает исключение, поскольку требуется преобразование структуры в массив байтов (bytes[]).

Решение

Для решения проблемы необходимо сериализовать запись в последовательность байтов. Существуют различные подходы к сериализации, включая использование DataContractSerializer из .NET Framework или другие специализированные библиотеки.

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

Подтвержденный ответ предлагает начать с изучения методов сериализации и десериализации заданного типа. Также упоминается статья, которая может помочь в реализации данной задачи (NB: обратите внимание на обработку строк переменной длины и пользовательских типов).

Пример кода

uses
  System.SysUtils,
  System.Generics.Collections;

// Функция сериализации записи в массив байтов
function TForm1.SerializeRecord(const ARecord: TRemoteRecord): TArray<Byte>;
var
  MemStream: TMemoryStream;
  BStream: TByteStream;
begin
  // Создание потока для хранения данных
  MemStream := TMemoryStream.Create;

  try
    // Сериализация в поток
    Result := TBinaryWriter.Wrap(MemStream).WritePackedRecord(ARecord, True);
    if Length(Result) = 0 then
      Exit;

    // Перемещение данных из потока памяти в массив байтов для передачи через сеть
    SetLength(Result, MemStream.Size);
    BStream := TBinaryReader.Wrap(MemStream);

    try
      BStream.ReadBytes(Result[1], Length(Result));
    finally
      BStream.Free;
    end;

  finally
    // Освобождение потока памяти
    MemStream.Free;
  end;
end;

// Функция для отправки данных через NetworkStream
procedure TForm1.SendRecordToNetworkStream(const ARecord: TRemoteRecord);
var
  Stream: TNetworkStream;
begin
  // Предполагается, что объект TcpClient уже подключен к серверу
  Stream := new TNetworkStream(Socket);

  try
    // Сериализация записи в массив байтов для отправки по сети
    Stream.WriteBytes(SerializeRecord(ARecord));
  finally
    // Освобождение сетевого потока
    Stream.Free;
  end;
end;

Заключение

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

Приведенный выше пример кода демонстрирует базовый процесс сериализации записи в Delphi. Важно помнить о необходимости обработки специфических типов данных (например, строк) и корректной реализации протоколов передачи данных для обеспечения стабильной работы сетевых приложений.

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

Процесс сериализации структурных типов в Delphi для передачи данных через сетевые потоки с использованием NetworkStream.

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

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

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