FireDAC 和 Sqlite 五：备份、整理碎片

Firedac是Delphi开发跨平台的数据库应用程序的通用数据访问组件，同样适用于C++ Builder和FreePascal。这里是Firedac操作Sqlite的学习笔记。文中代码在Delphi 11中编译通过。

先将“FireDAC 和 Sqlite 一 ：基本控件和设置”一篇中提到的常用控件加入Form，并做好关联。

一. 备份

先向Form中加入FDSQLiteBackup控件，位置在FireDAC Services里。

procedure TForm1.Button1Click(Sender: TObject);
begin
  //先建立一个空的数据库，即要生成的备份文件
  FDConnection1.DriverName := 'SQLite';
  FDConnection1.Params.Add('Database=D:\SQLite\FireDAC_Bak.db');
  FDConnection1.Open();
  
  //备份
  FDSQLiteBackup1.DriverLink := FDPhysSQLiteDriverLink1; //也可以在该控件的属性里设置
  FDSQLiteBackup1.Database := 'D:\SQLite\FireDAC.db'; //需要备份的数据库，支持 Url
  FDSQLiteBackup1.DestDatabaseObj := FDConnection1.CliObj;
  FDSQLiteBackup1.Backup;
end;

二. 整理碎片

先向Form中加入FDSQLiteValidate控件，位置在FireDAC Services里。

procedure TForm1.Button1Click(Sender: TObject);
begin
  FDSQLiteValidate1.DriverLink := FDPhysSQLiteDriverLink1;//也可以在该控件的属性里设置
  FDSQLiteValidate1.Database := 'D:\SQLite\FireDAC.db';
  FDSQLiteValidate1.Sweep;
end;