delphi - 如何从 TComObjectFactory.CreateComObject(const Controller : IUnknown): TComObject

Question

我有一个自定义 COM 服务器实现。服务器正在使用 TComObjectFactory 来创建用于客户端连接的 COM 对象。

我是这样写的:

function TPsOPCProviderClientFactory.CreateComObject(const Controller:
    IUnknown): TComObject;
begin
  FStartupCompleteEvent.WaitFor(INFINITE);
  if Provider.State = OPC_STATUS_SUSPENDED then // Server already shutdown
    raise EAbort.Create('Server shut down.');
  Result := inherited CreateComObject(Controller);
  (Result as TPsOPCProviderClient).Provider := Provider;
end;

FStartupCompleteEvent 用于确保应用程序在第一个连接通过之前准备就绪，Provider.State 用于在服务器即将关闭时禁用客户端连接。

现在看来，这不是取消对象创建的正确方法:如果引发异常，它将在屏幕上弹出一个带有“DAX 错误”的消息对话框，并且客户端可能会崩溃。

导致对象创建失败的正确方法是什么 - 或者是否必须始终成功？

该代码用于组件框架，该框架可用于 Delphi 5 以来的所有 Delphi/C++Builder 版本。

Answer 1

你不应该让任何异常从你的 DllGetClassObject 中逃脱COM 入口点。相反，您应该捕获此异常并返回适当的 HResult 值(可能是 E_UNEXPECTED)。

它可能看起来类似于:

function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult;
begin
  try
    Result := ComServ.DllGetClassObject(CLSID, IID, Obj);
  except
    Pointer(Obj) := nil;
    Result := E_UNEXPECTED;
  end;
end;

编辑:或者，修改 CreateComObject 方法以返回 nil 而不是引发异常会更简单。在这种情况下，ComServ 中的默认 DllGetClassObject 实现将返回 CLASS_E_CLASSNOTAVAILABLE。