COM开发
unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
ComObj, ActiveX, Project2_TLB, StdVcl, K3BBI_TLB;

type
TTest = class(TAutoObject, IBizConsole)
protected
{ Protected declarations }
end;

implementation

uses ComServ;

initialization
TAutoObjectFactory.Create(ComServer, TTest, Class_Test,
ciInternal, tmApartment);
end.

这里面如何实现 TTest.Func功能 (注:IBizConsole中有一个 Func)

由于是第一次作COM,还没有摸到北!找书也一时找不到!

[解决办法]
type
TTest = class(TAutoObject, IBizConsole)
protected
{ Protected declarations }
function Func: HRESULT;(这里需要实现IBizConsole接口所定义的函数)
end;