Question

我正在尝试使用delphi使用SQLite数据库部署应用程序以在Android模拟器上运行，并使用查询结果填充组合框。

我测试了Win32应用程序上的所有代码，一切都按预期工作，但是当我部署SQLite数据库并尝试在模拟器上运行应用程序时，我引发了带有“带消息的TDBXError”的异常，并且ErrorMessage包含'没有这样的表：汽车'

以下是我的表单的代码。

    var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Populate Manufacturer box
  SQLConnection1.Connected := True;
  SQLQuery1.SQL.Clear;
  SQLQuery1.Close;
  SQLQuery1.SQL.Add('SELECT DISTINCT manufacturer FROM cars');
  try
    SQLQuery1.Open;
    cbManufac.Items.Clear;
    while not SQLQuery1.Eof do
    begin
      cbManufac.Items.Add(SQLQuery1.Fields[0].AsString);
      SQLQuery1.Next;
    end;
  finally
    SQLQuery1.Close;
  end;
end;

procedure TForm1.SQLConnection1BeforeConnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  SQLConnection1.Params.Values['ColumnMetadataSupported'] := 'False';
  SQLConnection1.Params.Values['Database'] :=
      System.IOUtils.TPath.Combine(TPath.GetDocumentsPath, 'cars.sqlite');
  {$ENDIF}
end;

end.

我已确保将System.IOUtils添加到用途中，并在我的项目部署设置下添加了我的数据库文件。

如果我激活Win32并测试应用程序，组合框条目就会添加得很好。

在表单设计器上我使用TSQLConnection和TSQLQuery

任何人都可以指出我正确的方向。

由于

Answer 1

在Deployment Manager中，将数据库的远程路径设置为assets\external。（有关assets\internal和assets\external之间的差异，请参阅documentation here。）

将您的BeforeConnect事件代码更改为：

procedure TForm1.SQLConnection1BeforeConnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  SQLConnection1.Params.Values['ColumnMetadataSupported'] := 'False';
  SQLConnection1.Params.Values['Database'] :=
      TPath.Combine(TPath.GetSharedDocumentsPath, 'cars.sqlite');
  {$ENDIF}
end;

要查看TPath.GetSharedDocumentsPath和其他位置的实际位置，请参阅Standard RTL Path Functions Across the Supported Target Platforms。

使用Delphi FireMonkey将SQLite数据库部署到Android

1 个答案: