首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

COM开发,该怎么解决

2012-03-07 
COM开发unitUnit1{$WARNSYMBOL_PLATFORMOFF}interfaceusesComObj,ActiveX,Project2_TLB,StdVcl,K3BBI_TLB

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;

热点排行