COM程序编写入门(二)
大型计算机等级站的整理与收集:
COM理论
例如,COM的接口是COM的核心。所有的COM接口都是从IUnknown派生的,I unknown告诉客户那些接口是有效的,也就是已经被实现类理论定义了。它的一般定义如下:
isimple Interface = Interface(I unknown)
函数GetName:String
过程集名(v_Name:String)
结束;
如果在上面的界面中添加这样一行:
isimple Interface = Interface(I unknown)
v _ Name:String;
函数GetName:String
过程集名(v_Name:String)
结束;
这是不允许的,因为我们上面说过接口方法就像一个占位符,需要从实现类派生才有意义。句子v_Name:String只是一个数据成员,永远不会有任何意义。如果要定义,只能在实现类中定义。
现在举一个COM的例子,没有什么实际用途但至少说明了问题:
unit Unit1
连接
使用
窗口、消息、系统、变量、类、图形、控件、表单,
对话框、标准控件。
类型
TForm1 =类(TForm)
label 1:t label;
edit 1:TEdit;
button 1:t button;
button 2:t button;
procedure form create(Sender:to object);
过程按钮1Click(发送方:to object);
过程按钮2Click(发送方:to object);
过程表单关闭(发送方:TObjectvar Action:TCloseAction);
私人的
{私人声明}
公众的
{公开声明}
结束;
isimple Interface = Interface(I unknown)
过程SetValue(v_Value:整数);
函数GetValue:Integer;
结束;
位律师回复
0条评论