Delphi中实现带IEnumerator/IEnumerable接口的COM对象报错求助

1. 确认RIDL中的继承声明无误 #

先检查你的RIDL文件，确保ITrackingRatesCol明确继承自IEnumerable，示例如下：

[
  uuid(xxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx),
  dual,
  oleautomation
]
interface ITrackingRatesCol : IEnumerable {
    // 自定义接口方法声明
};

重新生成_tlb.pas文件，确认生成的ITrackingRatesCol接口正确包含了IEnumerable的方法声明。

2. 修正实现类的接口映射与方法实现 #

Delphi的TAutoObject需要通过COM接口映射机制处理IEnumerable，不能仅靠类继承列表声明。按以下方式调整你的实现类：

type
  [ComInterfaces(ITrackingRatesCol, IEnumerable)]
  TTrackingRatesCol = class(TAutoObject, ITrackingRatesCol, IEnumerable)
  protected
    // 实现ITrackingRatesCol的自定义方法
    // 实现IEnumerator返回逻辑
    function GetEnumerator: IEnumerator; stdcall;
    // 显式实现IEnumerable原始接口的GetEnumerator（返回IUnknown）
    function IEnumerable_GetEnumerator: IUnknown; stdcall;
  end;

implementation

function TTrackingRatesCol.GetEnumerator: IEnumerator;
begin
  // 返回你自定义的枚举器实例
  Result := TTrackingRatesEnumerator.Create(Self);
end;

function TTrackingRatesCol.IEnumerable_GetEnumerator: IUnknown;
begin
  // 将IEnumerator包装为IUnknown返回，匹配IEnumerable的原始定义
  Result := GetEnumerator;
end;

initializer
  TAutoObjectFactory.Create(ComServer, TTrackingRatesCol, Class_TrackingRatesCol, ciMultiInstance, tmApartment);
end.

核心点：IEnumerable的原始GetEnumerator返回IUnknown，而Delphi泛型中的IEnumerable返回IEnumerator，因此需要显式实现两个版本的方法，并通过[ComInterfaces]属性告知COM框架同时支持这两个接口。

3. 确保枚举器类实现合规 #

自定义枚举器需正确实现IEnumerator接口，且继承自支持IUnknown的类（如TInterfacedObject），示例：

type
  TTrackingRatesEnumerator = class(TInterfacedObject, IEnumerator)
  private
    FOwner: TTrackingRatesCol;
    FCurrentIndex: Integer;
    function GetCurrent: OleVariant; stdcall;
  public
    constructor Create(AOwner: TTrackingRatesCol);
    function MoveNext: Boolean; stdcall;
    procedure Reset; stdcall;
    property Current: OleVariant read GetCurrent;
  end;

{ TTrackingRatesEnumerator }
constructor TTrackingRatesEnumerator.Create(AOwner: TTrackingRatesCol);
begin
  inherited Create;
  FOwner := AOwner;
  FCurrentIndex := -1;
end;

function TTrackingRatesEnumerator.MoveNext: Boolean;
begin
  Inc(FCurrentIndex);
  Result := FCurrentIndex < FOwner.Count; // 假设你的集合有Count属性
end;

procedure TTrackingRatesEnumerator.Reset;
begin
  FCurrentIndex := -1;
end;

function TTrackingRatesEnumerator.GetCurrent: OleVariant;
begin
  if (FCurrentIndex >= 0) and (FCurrentIndex < FOwner.Count) then
    Result := FOwner.Items[FCurrentIndex] // 返回集合中的元素
  else
    Result := Unassigned;
end;

如果是自动化COM对象，Current属性需返回OleVariant类型，符合OLE自动化规范。

4. 验证接口映射 #

如果未使用[ComInterfaces]属性，需手动重写QueryInterface方法，确保能正确返回IEnumerable接口：

function TTrackingRatesCol.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
    Result := S_OK
  else if IID = IID_IEnumerable then
    Result := inherited QueryInterface(IID, Obj)
  else
    Result := E_NOINTERFACE;
end;

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