Delphi XE5 Android Dev“无法打开数据库文件”

Question

我一步一步按照本教程进行操作Mobile Tutorial: Using SQLite (iOS and Android)，但是当我在我的 android 设备上部署我的应用程序并尝试添加一个条目时，我收到以下错误 “无法打开数据库文件”

这是我的代码的 sn-p：

procedure TForm1.rappadAfterConnect(Sender: TObject);
begin
      rappad.ExecuteDirect('CREATE TABLE IF NOT EXISTS notes(ID INTEGER PRIMARY KEY, title TEXT NOT NULL, content TEXT NOT NULL);');
end;

procedure TForm1.rappadBeforeDisconnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  rappad.Params.Values['ColumnMetadataSupported'] := 'False';
  rappad.Params.Values['Database'] :=
      TPath.Combine(TPath.GetDocumentsPath, 'rappad.s3db');
  {$ENDIF}
end;

有谁知道为什么会发生这种情况？谢谢！

Answer 1

rappadBeforeDisconnect 中的代码需要在 BeforeConnect 中。在您断开连接之前告诉连接数据库的位置是没有意义的。

procedure TForm1.rappadBeforeConnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  rappad.Params.Values['ColumnMetadataSupported'] := 'False';
  rappad.Params.Values['Database'] :=
      TPath.Combine(TPath.GetDocumentsPath, 'rappad.s3db');
  {$ENDIF}
end;