Сервер-Клиент: Эффективная Передача Динамических Данных через Сокеты в Delphi

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

Оригинальный заголовок:

Сервер-Клиент: Передача Динамических Массивов через Сокеты в Delphi

Введение

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

Проблема

Разработчик столкнулся с необходимостью передачи записи с динамическим массивом элементов TValue через сокет. Однако, в записи должны быть только фиксированные размеры, что не подходит для динамических данных. Как решить эту проблему, сохраняя возможность передачи переменного числа аргументов в будущем?

Решение

Для решения этой проблемы необходимо сериализовать данные перед их передачей и десериализовать после получения. Вместо использования динамических массивов в записи, следует передавать их размер и элементы отдельно.

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

procedure TServerClass.SendBufToSocket(const vmName: TVMNames; const vmArgs: Array of TValue);
var
  s: string;
  i: integer;
begin
  // Преобразование перечисления в строку
  s := GetEnumName(TypeInfo(TVMNames), Integer(vmName));
  // Отправка строки, содержащей имя метода
  SendString(s);
  // Отправка количества аргументов
  SendInteger(Length(vmArgs));
  // Отправка каждого аргумента
  for i := Low(vmArgs) to High(vmArgs) do
    SendString(vmArgs[i].ToString);
end;

Пример кода для отправки целого числа:

procedure SendInteger(Value: Integer);
begin
  Value := htonl(Value);
  SendRaw(@Value, SizeOf(Value));
end;

Пример кода для отправки строки:

procedure SendString(const Value: string);
var
  Len: Integer;
begin
  Len := Length(Value);
  SendInteger(Len);
  SendRaw(PAnsiChar(Value), Len);
end;

Пример получения данных на стороне клиента:

procedure TClientClass.ReadBufFromSocket(var vmName: TVMNames; var vmArgs: TValueArray);
var
  i, Cnt: integer;
  Tmp: string;
begin
  // Получение строки, содержащей имя метода
  vmName := TVMNames(GetEnumValue(TypeInfo(TVMNames), ReadString));
  // Получение количества аргументов
  Cnt := ReadInteger;
  // Получение аргументов
  SetLength(vmArgs, Cnt);
  for i := 0 to Cnt-1 do
  begin
    Tmp := ReadString;
    // Преобразование строки обратно в TValue
    vmArgs[i] := TValue.ToValue(Tmp);
  end;
end;

Пример получения целого числа:

function ReadInteger: Integer;
begin
  ReadRaw(@Result, SizeOf(Result));
  Result := ntohl(Result);
end;

Пример получения строки:

function ReadString: string;
var
  S: UTF8String;
  Len: Integer;
begin
  Len := ReadInteger;
  SetLength(S, Len);
  ReadRaw(PAnsiChar(S), Len);
  Result := S;
end;

Анализ и Подтверждение Решения

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

Альтернативные решения

Для упрощения процесса сериализации и десериализации можно использовать сторонние библиотеки, такие как kbLib, которые предоставляют необходимые инструменты для этих операций без необходимости написания собственного кода.

Заключение

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

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

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

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

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

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