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；

结束；