如何在Delphi 10.2的DUnit中创建COM类并调用Invoke方法？

1. 先确认COM对象的注册状态 #

• 确保COM DLL已正确注册：
  • 用管理员权限打开命令提示符，切换到COM DLL所在目录，执行 regsvr32 YourComDll.dll
  • 注意位数匹配：如果是64位COM，要调用C:\Windows\System32下的64位regsvr32.exe；32位COM则用C:\Windows\SysWOW64下的版本，同时DUnit测试程序的位数必须和COM对象一致。

2. 调整COM初始化逻辑，避免冲突 #

你的COM对象在单元初始化节做COM初始化，很可能和DUnit的运行环境冲突——DUnit框架自身可能已经调用了CoInitialize/CoInitializeEx，重复调用会引发异常。

• 方案一：把COM初始化移到COM对象内部
  修改COM对象代码，将初始化逻辑从单元初始化节移到构造函数，销毁时释放：

  constructor TYourComObject.Create;
  begin
    inherited;
    // 根据你的COM线程模型选择参数，比如多线程用COINIT_MULTITHREADED
    CoInitialize(nil);
  end;
  
  destructor TYourComObject.Destroy;
  begin
    CoUninitialize;
    inherited;
  end;
  

• 方案二：在DUnit测试代码中统一管理
  在测试类的SetUp方法中初始化COM，TearDown中释放，确保每个测试用例的COM环境干净：

  procedure TYourTestClass.SetUp;
  begin
    inherited;
    CoInitialize(nil);
  end;
  
  procedure TYourTestClass.TearDown;
  begin
    CoUninitialize;
    inherited;
  end;
  

  注意：如果DUnit启用多线程测试，每个测试线程都需要单独执行一次COM初始化，不要跨线程共享COM对象。

3. 正确创建COM实例的两种方式 #

方式一：用类型库生成的类直接创建 #

如果你已经导入了COM的类型库，直接用生成的包装类创建实例，这是最可靠的方式：

var
  ComObj: IYourComInterface;
begin
  ComObj := CoYourComClass.Create;
  ComObj.Invoke(/* 传入你的参数 */);
end;

方式二：手动指定CLSID/ProgID创建 #

如果必须用CreateCOMObject或CreateOLEObject，要确保CLSID/ProgID完全正确：

// 用CreateCOMObject的示例
var
  ComObj: IYourComInterface;
  CLSID: TCLSID;
begin
  CLSID := StringToGUID('{你的COM类的CLSID}');
  ComObj := CreateCOMObject(CLSID) as IYourComInterface;
  ComObj.Invoke(/* 参数 */);
end;

// 用CreateOLEObject的示例
var
  ComObj: Variant;
begin
  ComObj := CreateOLEObject('YourComLib.YourComClass'); // 替换为实际ProgID
  ComObj.Invoke(/* 参数 */);
end;

4. 排查“Error Loading type DLL”错误 #

这个错误是类型库加载失败，常见原因和解决方法：

• 类型库文件（.tlb）和COM DLL不在同一目录，或者测试程序无法找到它，把tlb文件复制到测试程序运行目录
• 类型库未注册，执行 regtlib.exe YourTypeLib.tlb 重新注册
• COM DLL依赖的其他库缺失，用Dependency Walker工具检查COM DLL的依赖项，确保所有依赖DLL都在可访问路径中

5. 解决访问冲突问题 #

访问冲突通常由以下原因导致：

• 线程模型不匹配：比如COM对象是单线程公寓（STA），但测试程序在多线程环境下创建实例，需要确保测试线程的COM模型和COM对象一致
• COM对象内部初始化错误：检查初始化节中的代码，是否在DUnit环境下执行了非法内存操作
• 野指针问题：确保COM接口变量使用后被正确释放（Delphi接口是引用计数，一般会自动释放，但手动操作引用计数时要注意）

6. 调试辅助技巧 #

• 把DUnit测试程序设为调试模式，在COM对象的构造函数、初始化代码处加断点，追踪执行流程
• 查看Windows事件查看器的应用程序日志，里面会有更详细的COM错误详情，帮助定位问题

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