64位Windows运行32位Delphi应用时DBX错误求解

核心问题定位 #

这类错误本质是32/64位程序与Oracle客户端的位数不匹配、驱动版本兼容问题，或系统路径/注册表配置冲突，以下是针对性的修复步骤：

1. 严格匹配程序与Oracle客户端位数 #

• 32位Delphi应用必须搭配32位Oracle Instant Client，64位应用必须搭配64位Oracle Instant Client，不可混用；
• 确保客户端版本与Oracle服务器版本兼容（Oracle 12c客户端可连接12/19c服务器，19c客户端也向下兼容12c），推荐使用与Delphi Berlin 10.1同期发布的Oracle Instant Client 12.2.0.1.0，兼容性最优。

2. 修正系统PATH优先级 #

64位Windows中，32位程序的PATH解析逻辑独立于64位程序，需做以下配置：

• 32位应用：将32位Oracle Instant Client的安装路径（如C:\oracle\instantclient_12_2_32）添加到系统PATH的最前端，避免被其他Oracle组件（如残留的64位客户端）干扰；
• 64位应用：同理，将64位Client路径放到系统PATH最前端；
• 验证：打开对应位数的命令提示符（32位用C:\Windows\SysWOW64\cmd.exe，64位用C:\Windows\System32\cmd.exe），执行echo %PATH%确认路径优先级，再执行tnsping <你的Oracle服务名>，确保TNS解析正常。

3. 正确注册DBX驱动DLL #

• 32位应用仅需注册32位版本的DLL，且必须使用Delphi安装目录下的对应版本文件（避免系统目录中版本不匹配的文件）：

  C:\Windows\SysWOW64\regsvr32 "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\midas.dll"
  C:\Windows\SysWOW64\regsvr32 "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\dbxora.dll"
  

  （注：你之前的命令中dbxora.dl少了末尾的l，这是部分用户修复失败的直接原因）
• 64位应用注册64位DLL：

  C:\Windows\System32\regsvr32 "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin64\midas.dll"
  C:\Windows\System32\regsvr32 "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin64\dbxora.dll"
  

4. 清理残留Oracle配置 #

如果用户机器曾安装过其他Oracle组件，需彻底清理：

• 删除系统PATH中无关的Oracle路径；
• 删除注册表项HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Oracle（32位配置）和HKEY_LOCAL_MACHINE\SOFTWARE\Oracle（64位配置）；
• 删除用户目录下的tnsnames.ora、sqlnet.ora等残留配置文件。

5. 排查DBX连接字符串与日志 #

• 确保连接字符串配置正确：DriverName设为Oracle，Database使用完整TNS别名或EZConnect格式（如//192.168.1.100:1521/ORCL），避免留空；
• 启用DBX日志定位具体错误：在代码中添加日志输出，查看驱动加载细节：

  var
    LogWriter: TStreamWriter;
  begin
    LogWriter := TStreamWriter.Create('dbx_connection_log.txt');
    try
      SQLConnection1.LogFile := LogWriter;
      SQLConnection1.LoginPrompt := False;
      SQLConnection1.Open;
    finally
      LogWriter.Free;
    end;
  end;
  

6. 权限与文件完整性检查 #

• 确保用户对Oracle Instant Client目录有读写权限（客户端需生成临时文件）；
• 重新解压官方Oracle Instant Client包，验证核心文件（oci.dll、oraociei.dll、oraons.dll）是否完整；
• 临时关闭杀毒软件/防火墙的实时防护，避免其拦截DLL加载。

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