如何通过Inno Setup实现Firebird从2.5到4.0的升级迁移？

需求说明 #

我有一个基于Firebird RDBMS 2.5版本的应用，需要升级到Firebird RDBMS 4.0版本，希望在安装过程中自动完成以下操作：

• 备份现有数据库（命令示例：FirebirdDir\gbak -user xxx -password yyy dbSource dbDestination）
• 卸载Firebird 2.5
• 安装Firebird 4.0
• 恢复数据库（命令示例：FirebirdDir\gbak -rep -user xxx -password yyy dbDestination dbSource）

我不清楚如何实现这些步骤，请求帮助。根据收到的建议，我编写了以下Inno Setup脚本的代码部分：

[code]
function VersioneFirebirdServerCheck(Versione: string; var AFirebirdDir: string): Boolean;
var
  Key, Istanza: string;
  success: boolean;
begin
  Key := 'SOFTWARE\Firebird Project\Firebird Server\Instances';
  if RegQueryStringValue(HKLM64, Key, 'DefaultInstance', Istanza) or 
     RegQueryStringValue(HKLM32, Key, 'DefaultInstance', Istanza) then
    Result := Pos(Versione, Istanza) > 0;
  if Result then
    AFirebirdDir := Istanza;
end;

function InitializeSetup(): boolean; 
  var AFirebirdDir: string; 
begin
 if (VersionFirebirdServerCheck('_2_5', AFirebirdDir)) then
   begin 
     MsgBox('接下来将备份当前数据库并卸载Firebird 2.5', mbInformation, MB_OK); 
     if Exec (AFirebirdDir + 'gbak.exe', '-user xxx - password yyy dbSource dbDestination', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then 
       if Exec (AFirebirdDir + 'unins000.exe', '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then ... 
   end 
  else Result := True; 
end;

脚本修正与完善 #

你的原始脚本存在几处问题（函数名拼写错误、命令参数格式错误、缺少后续流程等），以下是完整的可运行脚本示例，包含所有升级步骤的实现：

[Setup]
AppName=你的应用名称
AppVersion=1.0
DefaultDirName={pf}\你的应用名称
OutputDir=Output
PrivilegesRequired=admin

[Files]
; 嵌入Firebird 4.0的安装程序（根据实际安装包类型调整）
Source: "Firebird-4.0.4.2975-0_x64.exe"; DestDir: "{tmp}"; Flags: nocompression

[Code]
var
  BackupPath: string;
  DBPath: string;
  FBUser: string;
  FBPass: string;

function VersioneFirebirdServerCheck(Versione: string; var AFirebirdDir: string): Boolean;
var
  Key, Istanza: string;
begin
  Key := 'SOFTWARE\Firebird Project\Firebird Server\Instances';
  Result := False;
  // 检查64位和32位注册表项
  if RegQueryStringValue(HKLM64, Key, 'DefaultInstance', Istanza) or 
     RegQueryStringValue(HKLM32, Key, 'DefaultInstance', Istanza) then
  begin
    Result := Pos(Versione, Istanza) > 0;
    if Result then
      AFirebirdDir := Istanza;
  end;
end;

function InitializeSetup(): Boolean;
var
  AFirebirdDir: string;
  ResultCode: Integer;
  FB4Installer: string;
begin
  Result := True;
  // 配置参数：替换为实际的数据库路径、备份路径、用户名和密码
  DBPath := 'C:\你的应用路径\your_database.fdb';
  BackupPath := '{tmp}\your_database_backup.fbk';
  FBUser := 'sysdba';
  FBPass := 'masterkey';

  // 检查是否安装了Firebird 2.5
  if VersioneFirebirdServerCheck('_2_5', AFirebirdDir) then
  begin
    if MsgBox('检测到Firebird 2.5，即将执行备份并卸载旧版本。是否继续？', mbConfirmation, MB_YESNO) = IDNO then
    begin
      Result := False;
      Exit;
    end;

    // 执行数据库备份
    if not Exec(AFirebirdDir + 'gbak.exe', Format('-user %s -password %s "%s" "%s"', [FBUser, FBPass, DBPath, BackupPath]), '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
    begin
      MsgBox('数据库备份失败，错误代码：' + IntToStr(ResultCode), mbError, MB_OK);
      Result := False;
      Exit;
    end;

    // 卸载Firebird 2.5（静默模式）
    if not Exec(AFirebirdDir + 'unins000.exe', '/silent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
    begin
      MsgBox('Firebird 2.5卸载失败，错误代码：' + IntToStr(ResultCode), mbError, MB_OK);
      Result := False;
      Exit;
    end;
  end;

  // 安装Firebird 4.0（静默安装参数根据实际安装包调整）
  FB4Installer := ExpandConstant('{tmp}\Firebird-4.0.4.2975-0_x64.exe');
  if not Exec(FB4Installer, '/VERYSILENT /SUPPRESSMSGBOXES /NORESTART', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
  begin
    MsgBox('Firebird 4.0安装失败，错误代码：' + IntToStr(ResultCode), mbError, MB_OK);
    Result := False;
    Exit;
  end;

  // 恢复数据库到Firebird 4.0
  if FileExists(BackupPath) then
  begin
    // 获取Firebird 4.0的安装路径
    if not VersioneFirebirdServerCheck('_4_', AFirebirdDir) then
    begin
      MsgBox('无法检测到Firebird 4.0安装路径，数据库恢复失败', mbError, MB_OK);
      Result := False;
      Exit;
    end;

    // 执行恢复命令
    if not Exec(AFirebirdDir + 'gbak.exe', Format('-rep -user %s -password %s "%s" "%s"', [FBUser, FBPass, BackupPath, DBPath]), '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
    begin
      MsgBox('数据库恢复失败，错误代码：' + IntToStr(ResultCode), mbError, MB_OK);
      Result := False;
      Exit;
    end;

    MsgBox('Firebird升级完成，数据库已恢复', mbInformation, MB_OK);
  end;
end;

关键说明 #

1. 参数配置：请将脚本中的DBPath、BackupPath、FBUser、FBPass替换为实际环境的参数
2. 静默安装参数：Firebird安装包的静默参数可能因版本而异，请参考对应版本的官方文档调整
3. 错误处理：脚本添加了每一步的失败检测和提示，避免流程异常中断
4. 注册表检测：同时支持32位和64位系统的Firebird注册表项查询

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