使用 FireDAC 组件库实现 MySQL 数据库备份

好的，以下是使用 FireDAC 组件库实现 MySQL 数据库备份的示例代码：

uses
System.SysUtils, FireDAC.Stan.Intf, FireDAC.Phys.MySQLDef, FireDAC.Phys.MySQL, FireDAC.Comp.Client;
procedure BackupMySQLDatabase(Host, Username, Password, Database, BackupPath: string);
var
Conn: TFDConnection;
Query: TFDQuery;
Script: TStrings;
BackupFile: string;
begin
// 创建连接
Conn := TFDConnection.Create(nil);
Conn.DriverName := 'MySQL';
Conn.Params.Add('Server=' + Host);
Conn.Params.Add('Database=' + Database);
Conn.Params.Add('User_Name=' + Username);
Conn.Params.Add('Password=' + Password);
try
Conn.Open;
// 创建查询
Query := TFDQuery.Create(nil);
Query.Connection := Conn;
// 获取备份SQL脚本
Script := TStringList.Create;
Query.SQL.Text := 'SHOW CREATE DATABASE `' + Database + '`';
Query.Open;
Script.Add(Query.Fields[1].AsString);
Query.Close;
Query.SQL.Text := 'SHOW TABLES';
Query.Open;
while not Query.Eof do
begin
Query.Close;
Query.SQL.Text := 'SHOW CREATE TABLE `' + Query.Fields[0].AsString + '`';
Query.Open;
Script.Add(Query.Fields[1].AsString);
Query.Close;
Query.SQL.Text := 'SELECT * INTO OUTFILE "' + BackupPath + Query.Fields[0].AsString + '.sql" FROM `' + Query.Fields[0].AsString + '`';
Query.ExecSQL;
Query.Close;
Query.SQL.Text := 'SELECT "' + Query.Fields[0].AsString + '.sql" AS "table"';
Query.Open;
BackupFile := Query.Fields[0].AsString;
Script.Add('SOURCE ' + QuotedStr(BackupFile));
Query.Close;
Query.Next;
end;
Script.SaveToFile(BackupPath + 'backup.sql');
// 释放资源
Script.Free;
Query.Free;
finally
if Conn.Connected then
Conn.Close;
Conn.Free;
end;
end;

说明：

- `Host`：MySQL 服务器地址；

- `Username`：MySQL 登录用户名；

- `Password`：MySQL 登录密码；

- `Database`：要备份的数据库名称；

- `BackupPath`：备份文件存储路径。

该函数会将备份文件存储到指定的路径下，文件名为 `backup.sql`，并且将数据库结构和表结构以及数据导出的 SQL 语句保存到 SQL 脚本中。最后在备份 SQL 脚本中添加 `SOURCE` 命令载入这些 SQL 文件。