如何在Delphi中通过FireDAC或CMD实现PostgreSQL数据库备份恢复？

完全可以在Delphi应用中实现PostgreSQL的备份与恢复，CMD调用官方工具和FireDAC辅助实现这两种方式都可行，下面分别给出具体实现方案：

一、CMD调用pg_dump/pg_restore（推荐，全库备份更可靠） #

PostgreSQL自带的pg_dump（备份）和pg_restore（恢复）是最稳定的全库备份工具，Delphi可以通过调用CMD执行这些命令来完成操作。

完整实现代码 #

1. 数据库备份示例

procedure TForm1.btnBackupClick(Sender: TObject);
var
  CmdLine: string;
  PgDumpPath: string;
  BackupFile: string;
  DBName, DBUser, DBPass: string;
begin
  // 配置参数
  PgDumpPath := 'C:\Program Files\PostgreSQL\15\bin\pg_dump.exe'; // 替换为你的pg_dump实际路径
  DBName := 'mydatabase';
  DBUser := 'postgres';
  DBPass := 'mypassword';
  BackupFile := 'D:\backups\mydb_backup_' + FormatDateTime('yyyyMMdd_hhmmss', Now) + '.sql';

  // 构造命令行：通过环境变量传递密码，避免明文暴露
  CmdLine := Format(' /C set PGPASSWORD=%s && "%s" -U %s -d %s -f "%s"',
    [DBPass, PgDumpPath, DBUser, DBName, BackupFile]);

  // 执行命令，SW_HIDE隐藏CMD窗口
  if ShellExecute(0, nil, 'cmd.exe', PChar(CmdLine), nil, SW_HIDE) <= 32 then
    ShowMessage('备份失败，请检查路径、权限或数据库配置！')
  else
    ShowMessage('备份完成，文件路径：' + BackupFile);
end;

2. 数据库恢复示例

procedure TForm1.btnRestoreClick(Sender: TObject);
var
  CmdLine: string;
  PgRestorePath: string;
  BackupFile: string;
  DBName, DBUser, DBPass: string;
begin
  // 配置参数
  PgRestorePath := 'C:\Program Files\PostgreSQL\15\bin\pg_restore.exe'; // 替换为你的pg_restore实际路径
  DBName := 'mydatabase';
  DBUser := 'postgres';
  DBPass := 'mypassword';
  BackupFile := 'D:\backups\mydb_backup_20240520_143000.sql'; // 替换为实际备份文件路径

  // 构造命令行：恢复前需确保目标数据库已创建
  CmdLine := Format(' /C set PGPASSWORD=%s && "%s" -U %s -d %s -f "%s"',
    [DBPass, PgRestorePath, DBUser, DBName, BackupFile]);

  // 执行命令
  if ShellExecute(0, nil, 'cmd.exe', PChar(CmdLine), nil, SW_HIDE) <= 32 then
    ShowMessage('恢复失败，请检查路径、权限或备份文件完整性！')
  else
    ShowMessage('数据库恢复完成！');
end;

关键注意事项 #

• 路径处理：如果pg_dump/pg_restore路径或备份文件路径包含空格，必须用双引号包裹，避免命令解析错误。
• 密码安全：优先用PGPASSWORD环境变量传递密码，也可以配置PostgreSQL的pgpass.conf文件实现无密码验证，禁止在命令行明文写密码。
• 权限要求：Delphi程序需要有备份目录的读写权限，PostgreSQL用户需具备数据库备份/恢复的权限。

二、FireDAC实现方案（适合表级备份或轻量场景） #

FireDAC本身没有直接的全库备份API，但可以通过两种方式实现备份恢复：

1. 调用系统命令（与CMD方式本质一致，用FireDAC组件封装） #

使用TFDShellCommand组件执行pg_dump命令，无需直接调用ShellExecute：

procedure TForm1.btnFDBackupClick(Sender: TObject);
var
  FDShell: TFDShellCommand;
begin
  FDShell := TFDShellCommand.Create(nil);
  try
    FDShell.Executable := 'C:\Program Files\PostgreSQL\15\bin\pg_dump.exe';
    FDShell.Parameters.Add('-U postgres');
    FDShell.Parameters.Add('-d mydatabase');
    FDShell.Parameters.Add('-f "D:\backups\fd_backup.sql"');
    // 设置密码环境变量
    FDShell.Environment.Add('PGPASSWORD=mypassword');
    
    if not FDShell.Execute then
      ShowMessage('备份失败：' + FDShell.ErrorMessage)
    else
      ShowMessage('FireDAC备份完成');
  finally
    FDShell.Free;
  end;
end;

2. 表级数据导出/导入（用PostgreSQL COPY命令） #

如果仅需备份单个或多个表，可以用FireDAC执行PostgreSQL原生的COPY命令：

// 导出表数据到CSV文件
procedure TForm1.ExportTableToCSV;
var
  FDCommand: TFDCommand;
begin
  FDCommand := TFDCommand.Create(nil);
  try
    FDCommand.Connection := FDConnection1; // 已建立的FireDAC数据库连接
    FDCommand.CommandText.Text := 'COPY mytable TO ''D:\backups\mytable.csv'' WITH CSV HEADER';
    FDCommand.Execute;
    ShowMessage('表数据导出完成');
  finally
    FDCommand.Free;
  end;
end;

// 从CSV文件导入表数据
procedure TForm1.ImportTableFromCSV;
var
  FDCommand: TFDCommand;
begin
  FDCommand := TFDCommand.Create(nil);
  try
    FDCommand.Connection := FDConnection1;
    FDCommand.CommandText.Text := 'COPY mytable FROM ''D:\backups\mytable.csv'' WITH CSV HEADER';
    FDCommand.Execute;
    ShowMessage('表数据导入完成');
  finally
    FDCommand.Free;
  end;
end;

内容的提问来源于stack exchange，提问作者user21123633