考试大计算机等级站整理收集：

　　COM的理论

　　以实例来讲COM的接口（Interface）是COM的核心，所有的COM接口都是通过IUnknown派生出来的，它告知客户那些接口是有效的，即已经被实现类说定义。它定义的一般方式如下：

　　ISimpleInterface=Interface(IUnknown)

　　Function GetName:String

　　Procedure SetName(v_Name:String)

　　End;

　　如果在上面的接口中加入这样一行：

　　ISimpleInterface=Interface(IUnknown)

　　V_Name:String;

　　Function GetName:String

　　Procedure SetName(v_Name:String)

　　End;

　　这样是不被允许的，因为上面我们说到接口方法就像是一个占位符，需要实现类引出才有实际意义，v_Name:String这一句只是一个数据成员将永远无任何意义，如果要定义也只能在实现类中定义。

　　现在举一个COM的例子，没有什么实际用处但至少说明问题：

　　unit Unit1;

　　interface

　　uses

　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

　　Dialogs, StdCtrls;

　　type

　　TForm1 = class(TForm)

　　Label1: TLabel;

　　Edit1: TEdit;

　　Button1: TButton;

　　Button2: TButton;

　　procedure FormCreate(Sender: TObject);

　　procedure Button1Click(Sender: TObject);

　　procedure Button2Click(Sender: TObject);

　　procedure FormClose(Sender: TObject; var Action: TCloseAction);

　　private

　　{ Private declarations }

　　public

　　{ Public declarations }

　　end;

　　ISimpleInterface=Interface(IUnknown)

　　Procedure SetValue(v_Value:Integer);

　　Function GetValue:Integer;

　　End;