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

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;
           

3、有一个问题一直困惑：通过usb线连接手机报错：unabled delete project-unsigned.apk denied failed。

     做了如下设置后就好了。     

              1）手机端设置。

              2）pc端设置。

4、结果。