|
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;
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;
[1] [2] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
