安装控件里面的一段源码,再两个问题.

[internetcsdn]

//控件(ocx)安装后可正常使用.
////////////////////////////////////////////////////////////////////////
type

_DKView = dispinterface;
_DKViewEvents = dispinterface;

KView = _DKView;

PSmallint1 = ^Smallint; {*}

_DKView = dispinterface

procedure EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant); dispid 89;//-------------------对应过程2
end;
{.....................}

TKView = class(TOleControl)
private
function GetControlInterface: _DKView;

public
procedure EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant);//--------------------对应过程1
property DefaultInterface: _DKView read GetControlInterface;
end;

implementation

uses ComObj;

procedure TKView.EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant);//---------------过程2EngineSetSetting
begin
DefaultInterface.EngineSetSetting(dwIdent, dwIndex, value);//--------------过程1EngineSetSetting
end;

end.
////////////////////////////////////////////////////////////////////////

问题是:
问题1;
对于过程2EngineSetSetting的声明,
_DKView = dispinterface
procedure EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant); dispid 89;

其中关键是dispid是说明什么?
后面的89是什么值?

问题2:
过程体
procedure TKView.EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant);
begin
DefaultInterface.EngineSetSetting(dwIdent, dwIndex, value);
end;
实现了什么功能?

//----------------------------------------------------------------------
先谢过各位.

[internetcsdn]

是我表达得不好,

还是大家没有碰过啊.有人 见过这些源码的吗?

[internetcsdn]

当然以上代码并不是控件源码的全部.

[internetcsdn]

这样结不了贴的啊.

[madyak]

这些代码象是系统自己生成的，如果你的单元名称包含'_TLB'这个字，应该是自动生成的代码。

[GoldShield]

搞不懂.
UP一下

[internetcsdn]

楼上:

我所安装的(OCX)控件是用VB,VC写的.

请问,如果控件(OCX)用DELPHI写的,安装后会不会自动生成类似这样的代码啊?

[internetcsdn]

up

[madyak]

用Delphi写的
ocx也会自动生成这种代码

[wychero]

关注了。