COM程序编写入门(全文-2)
来源:互联网 发布:2017网络法律法规 编辑:程序博客网 时间:2024/05/03 16:42
以实例来讲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(实现类)几乎定义都差不多,但是我要强调的是,接口定义是为了实现方式的访问,而实现类的定义,是接口功能的实现。两者在功能和实现上都是有区别的。
- COM程序编写入门(全文-2)
- COM程序编写入门(全文-2)
- COM程序编写入门(全文-2)
- COM程序编写入门(全文-1)
- COM程序编写入门(全文-3)
- COM程序编写入门(全文-1)
- COM程序编写入门(全文-3)
- COM程序编写入门(全文-1)
- COM程序编写入门(全文-3)
- COM入门第二部分 - 编写COM Server
- Linux编写程序入门
- Lucene&Solr(之一)-全文索引、入门程序
- Hibernate入门HelloWorld程序编写
- VS2005调用Delphi编写的COM程序
- 图文并茂 delphi 编写你的com程序
- 蓝牙4.0入门(2)开始程序编写(一)编写第一个亮灯程序
- 蓝牙4.0入门(2)开始程序编写(二)一般单片机程序的编写
- PB中如何编写COM和COM+程序.
- 日语天天读20070227000
- 什么是SLA 续
- Beast终于提供了本地化支持
- 日语天天读20070227001
- 都市里的感动与宁静——《我们俩》
- COM程序编写入门(全文-2)
- JAR 文件揭密
- VC++入门程序详解
- SLA:服务客户的利器
- 转贴:Apple操作系统的历史
- Warning C4150的原因和解决办法
- C++ 模板编译
- 快乐的IT时代
- 使用 .NET 和后台智能传输服务 API 来编写自动更新应用程序。