第一个rio编写的连接xdata服务端的Android手机端程序

最新推荐文章于 2025-09-16 14:05:54 发布

原创最新推荐文章于 2025-09-16 14:05:54 发布 · 433 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#android #firemonkey #xdata #tms

delphi rio 同时被 2 个专栏收录

89 篇文章

订阅专栏

TMS

21 篇文章

订阅专栏

本文介绍如何使用RESTful API进行数据交互，并通过多设备程序中的ListView组件展示数据。详细步骤包括使用REST Debugger工具、创建多设备程序、设置ListView组件属性及编写代码实现数据填充。同时解决了一个关于USB连接手机的常见错误。

1、服务端，参看前一篇博客文章。

2、客户端。

1）打开tools中的REST Debugger工具。（http://121.228.166.58:2001/tms/xdata/persons）

2）新建一个multidevice程序，粘贴以下组件。

3）所有组件如下。

获得字段名称

listview右击。

4）其中listview组件的属性如下。

procedure TForm1.CreateComponents;
var
  ListView1: TListView;
begin
  //ListView1
  ListView1 := TListView.Create(Self);

  //ListView1
  ListView1.Name := 'ListView1';
  ListView1.Parent := Self;
  ListView1.ItemAppearanceClassName := 'TImageListItemBottomDetailAppearance';
  ListView1.ItemEditAppearanceClassName := 'TImageListItemBottomDetailShowCheckAppearance';
  ListView1.HeaderAppearanceClassName := 'TListHeaderObjects';
  ListView1.FooterAppearanceClassName := 'TListHeaderObjects';
  ListView1.Align := Client;
  ListView1.Size.Width := 640.000000000000000000;
  ListView1.Size.Height := 432.000000000000000000;
  ListView1.Size.PlatformDefault := False;
  ListView1.TabOrder := 5;
end;

5)代码。

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  LItem: TListViewItem;
  I: Integer;
begin
  Self.RESTRequest1.Execute;
  FDMemTable1.First;
  ListView1.BeginUpdate; //提高效率
  try
    for I := 0 to FDMemTable1.RecordCount - 1 do
    begin
      LItem := ListView1.Items.Add;
      LItem.Text := self.FDMemTable1.FindField('name').AsString;
      LItem.Detail:= self.FDMemTable1.FindField('url').AsString;
      FDMemTable1.Next
    end;
  finally
    ListView1.EndUpdate;
  end;
end;