Как корректно передать данные от сервера клиенту в клиент-серверном приложении на Delphi XE с использованием App tethering

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

При разработке клиент-серверных приложений на Delphi XE с использованием технологии App tethering важно правильно организовать процесс передачи данных от сервера к клиенту. Вопрос пользователя касается именно этой проблемы: у него есть серверное и клиентское приложение, и он столкнулся с трудностями при передаче данных от сервера к клиенту через компоненты TetheringManager и TetheringAppProfile.

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

Пользователь имеет серверное приложение с двумя кнопками: одна для отображения данных на сервере, вторая для отправки данных клиенту. Он использует компоненты FDQuery1, StringGrid1, TetheringManager1 и TetheringAppProfile1. Клиентское приложение содержит одну кнопку для подключения и также использует StringGrid1, TetheringManager1 и TetheringAppProfile1. Клиент сначала подключается к серверу, после чего сервер отправляет данные клиенту.

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

procedure TForm1.Button2Click(Sender: TObject);
var
  rec: Integer;
begin
  FDQuery1.SQL.Text := 'SELECT * FROM names';
  FDQuery1.Open;
  rec := FDQuery1.RecordCount;
  FDQuery1.First;

  if rec > 0 then
  begin
    while not FDQuery1.Eof do
    begin
      TetheringAppProfile1.Resources.FindByName('Vefa').Value := FDQuery1.FieldByName('Name').AsString;
      FDQuery1.Next;
    end;
  end;
end;

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

procedure TForm2.TetheringAppProfile1Resources1ResourceReceived(
  const Sender: TObject; const AResource: TRemoteResource);
var
  i: Integer;
begin
  for i := 0 to TetheringAppProfile1.Resources.Count do
    StringGrid1.Cells[1, i] := AResource.Value.AsString;
end;

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

Подсказка от сообщества

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

Пример использования TStringList на сервере

procedure TServerForm.btnSendDataClick(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Add(StringGrid1.Cells[1, 1]);
    sl.Add(StringGrid1.Cells[1, 2]);
    sl.Add(StringGrid1.Cells[1, 3]);
    TetheringAppProfile1.Resources.FindByName('NameList').Value := sl.Text;
  finally
    sl.Free;
  end;
end;

Пример обработки данных на клиенте

procedure TClientForm.TetheringAppProfile1Resources2ResourceReceived(
  const Sender: TObject; const AResource: TRemoteResource);
var
  sl: TStringList;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    sl.Text := AResource.Value.AsString;
    for i := 0 to sl.Count - 1 do
      StringGrid1.Cells[1, i + 1] := sl[i];
  finally
    sl.Free;
  end;
end;

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

Дополнительные замечания

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

Заключение

В данной статье был рассмотрен пример корректной передачи данных от сервера клиенту в клиент-серверном приложении на Delphi XE с использованием App tethering. Приведены примеры кода для обработки и отправки данных в виде TStringList, что может помочь избежать типичных ошибок при работе с данными.

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

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

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

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

:: Главная :: TStringGrid и TDrawGrid ::