如何在IUnknown中实现Delphi字节

Question

我正在Delphi中创建一个ActiveX服务器，以取代在Delphi中创建的本地DLL，以便在.NET中调用它(我是Delphi新手，更像是一个C#家伙)

原始DLL源中的过程原型是：

procedure Log(Device: byte); StdCall;

使用Delphi中的设计面板，我得到了一个扩展.ridl的IUnkown：

interface IDelphiCom: IUnknown
  {
    [id(0x00000065)]
    HRESULT _stdcall Log([in] byte Device);
  };

为了执行，我有以下几点：

interface
type
  TTestCom = class(TTypedComObject, IDelphiCom)
  protected
    function Log(Device: byte ): HResult; StdCall;
 end;

implementation
function TTestCom.Log(Device: byte): HRESULT; StdCall;
begin
  result:=0;
end;

我在.ridl和实现中尝试了许多不同的数据类型组合，但始终得到日志函数未实现的错误消息：

dcc32错误单元1.PAS(12)：E2291缺少接口方法IDelphiCom.Log的实现

有什么办法可以解决这个问题吗？是否有人有交叉引用IUnkown数据类型和Delphi数据类型的表？是否有像ReSharper这样的Delphi/Rad的附加组件来实现接口成员的存根？我已经算出了几个数据类型转换，但我仍然停留在最简单的字节上。

Answer 1

我发现我需要在.ridl中使用.ridl，在实现中使用byte。我找到了答案这里，以及更多关于API和Delphi 这里的一般信息。