Delphi Alexandria中Windows服务加载动态包触发AV问题求助

核心问题排查方向 #

1. 错误使用LoadLibrary加载Delphi BPL包 #

Delphi的动态包（.bpl）包含特殊的包管理结构和单元初始化逻辑，不能直接用Windows API的LoadLibrary加载，必须使用Delphi自带的LoadPackage函数。LoadLibrary只会加载DLL文件，不会触发Delphi包的依赖解析、单元初始化等流程，导致包内代码运行时依赖缺失，进而引发AV。

解决：

• 替换LoadLibrary为LoadPackage，用UnloadPackage卸载包：

  var
    hPackage: HMODULE;
    MyProc: procedure(); stdcall;
  begin
    hPackage := LoadPackage('MyPackage.bpl');
    if hPackage <> 0 then
    try
      @MyProc := GetProcAddress(hPackage, 'MyMethod');
      if Assigned(MyProc) then
        MyProc();
    finally
      UnloadPackage(hPackage);
    end;
  end;
  

2. 导出函数调用约定不匹配 #

Delphi默认调用约定为register，该约定依赖Delphi寄存器上下文，跨模块调用时会导致栈帧错误引发AV。即使你添加了stdcall，需确保包内导出声明和调用端指针声明完全一致，且导出函数名未被编译器修饰。

解决：

• 包内显式声明导出函数的调用约定，并通过exports子句指定明确的函数名：

  // 包的单元接口部分
  procedure MyMethod; stdcall;
  exports
    MyMethod name 'MyMethod';
  

• 调用端的函数指针必须匹配调用约定：

  var
    MyProc: procedure(); stdcall;
  

3. 服务启动时机过早加载包 #

Windows服务的初始化流程与控制台程序不同，若在服务构造函数、单元initialization等早期阶段加载包，此时服务环境（如系统资源、权限上下文）尚未就绪，会导致包内初始化代码失败，后续调用方法时触发AV。

解决：

• 延迟包加载到服务的OnStart事件触发后执行，此时系统已完成服务的初始化流程：

  procedure TMyService.ServiceStart(Sender: TService; var Started: Boolean);
  begin
    // 在此处加载动态包并调用方法
  end;
  

4. 服务权限或目录访问问题 #

Windows服务默认运行在Local System账户下，若动态包所在目录无访问权限，会导致包加载不完整。移除exports子句后包无需导出函数，初始化逻辑可能简化，因此未触发错误。

解决：

• 将动态包放置在服务程序的同一目录；
• 检查服务的登录账户，确保其拥有包所在目录的读取权限。

内容的提问来源于stack exchange，提问作者Dr. T