来自com组件的delphi tlb_lib文件在接口和对象之间没有连接

Question

将com dll文件导入delphi后，delphi又生成了一个lib_tlb.pas文件。

检查它显示的文件

Iinterface1 = interface(IDispatch)
    function func: Integer; safecall;
    procedure proc(param:Iinterface1);
end;

Cointerface1 = class
  class function Create: Iinterface;
  class function CreateRemote(const MachineName: string): Iinterface1;
end;

Tinterface1 = class(TOleServer)
    function func: Integer;
    procedure proc(param:Iinterface1);
end;

现在可以清楚地看到 Tinterface1 和 Iinterface1 之间没有连接。

当使用 Tinterface1 调用 proc 时，问题就来了。这不会编译 Tinterface1 不继承 Iinterface1。

那么建议做什么？更改自动生成的库？或者当您想将 Tinterface1 传递给 proc 时，您是否有更好的想法。

这个例子是代码的简化，代码中有另一个对象需要传递给proc，但是proc只知道它的接口，这是同样的问题。

更新：com dll文件的手册似乎说proc应该是

    procedure proc(param:^Tinterface1);

界面仅在 delphi 的角度。

Answer 1

TInterface1.Proc() 期望将预先存在的IInterface1 对象作为输入传递给它。使用Cointerface1.Create() 创建该对象，例如：

var
  intf: Iinterface1;
begin
  intf := Cointerface1.Create;
  TheOleServerInstance.proc(intf);
end;

Tinterface1 是 TOleServer 的后代，它不直接从 Iinterface1 继承（但它确实在内部包装了 Iinterface1），因此无论何时你想将它传递给 Iinterface1预计，例如：

var
  intf: Iinterface1;
  svr: Iinterface1;
begin
  intf := Cointerface1.Create;
  if Supports(TheOleServerInstance, Iinterface1, svr) then
    intf.proc(svr);
end;