Delphi 12 Windows Service中FireDAC连接MySQL失败问题求助

核心原因 #

Windows服务的运行上下文与普通桌面程序存在差异，即便DLL路径正确，也会因权限限制、依赖库缺失或位数不匹配这类隐性问题导致加载失败。

具体解决方案 #

1. 确认编译位数完全匹配 #

确保你的Delphi服务项目编译目标为64位：

• 打开Delphi 12项目选项，在「目标平台」中选择「Windows 64位」
• 验证libmysql.dll确实是64位版本（可通过文件属性→详细信息查看，或用Dependency Walker工具确认）

2. 补齐libmysql.dll的依赖库 #

libmysql.dll并非独立运行，它依赖VC++运行时库（如msvcp140.dll、vcruntime140.dll）以及MySQL加密库（如libcrypto-1_1-x64.dll、libssl-1_1-x64.dll，MySQL 8.0及以上版本必需）：

• 使用Dependency Walker或Process Explorer打开libmysql.dll，列出所有依赖项
• 将所有缺失的依赖库复制到服务EXE所在目录，或确保这些库存在于服务环境可访问的PATH路径中（服务的PATH与桌面环境可能不同）

3. 调整服务运行账号 #

Windows服务默认使用Local System账号，该账号对部分目录存在访问限制：

• 打开服务管理器，找到目标服务，右键→属性→登录
• 选择「此账户」，输入拥有本地文件访问权限的用户账号（如管理员账号）
• 重启服务后重新测试连接

4. 用Process Monitor排查文件访问问题 #

若以上步骤无效，用Process Monitor追踪服务的文件访问行为：

• 过滤服务进程名，查看访问libmysql.dll及依赖库时的返回结果（如NAME NOT FOUND或ACCESS DENIED）
• 根据日志定位具体缺失的文件或权限问题

5. 手动加载DLL定位错误 #

在服务启动时添加手动加载测试代码，获取更精准的错误信息：

var
  hLib: THandle;
  ErrCode: DWORD;
begin
  hLib := LoadLibrary(PChar(FDPhysMySQLDriverLink.VendorLib));
  if hLib = 0 then
  begin
    ErrCode := GetLastError;
    // 可通过FormatMessage获取错误码对应的详细描述，用于定位问题
  end
  else
    FreeLibrary(hLib);
end;

通过GetLastError返回的错误码（如126=找不到指定模块，5=拒绝访问），可直接定位问题类型。

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