COM程序编写入门(全文-2)

最新推荐文章于 2013-09-15 17:05:20 发布

原创最新推荐文章于 2013-09-15 17:05:20 发布 · 1.2k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#integer #interface #string #function #button

delphi-com 专栏收录该内容

8 篇文章

订阅专栏

本文通过一个简单的示例介绍了COM接口的基本概念及其实现方式。解释了接口如何作为占位符存在，并强调其实现必须在具体的类中完成。通过具体代码展示了ISimpleInterface接口的定义与TSimpleImple类的实现过程。

以实例来讲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;

TSimpleImple=Class(TInterfacedObject,ISimpleInterface)
Public
    Value:Integer;
    Procedure SetValue(v_Value:Integer);
    Function GetValue:Integer;
End;

var
Form1: TForm1;
v_Obj:TSimpleImple;
implementation

{$R *.dfm}

{ TSimpleImple }

function TSimpleImple.GetValue: Integer;
begin
Result:=Value;
end;

procedure TSimpleImple.SetValue(v_Value: Integer);
begin
Value:=v_Value;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
v_Obj:=TSimpleImple.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
v_Obj.SetValue(StrToInt(Edit1.Text));
Edit1.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(v_Obj.GetValue);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
v_Obj.Free;
end;

end.
蓝色字样即定义了一个接口，在形式上在ISimpleInterface（接口定义）和TSimpleImple（实现类）几乎定义都差不多，但是我要强调的是，接口定义是为了实现方式的访问，而实现类的定义，是接口功能的实现。两者在功能和实现上都是有区别的。