WEB开发网
开发学院软件开发Delphi Com接口入门细详(二) 阅读

Com接口入门细详(二)

 2006-02-04 13:53:32 来源:WEB开发网   
核心提示: Com接口入门细详(二)上一篇,简单的详细了com的应用,Com接口入门细详(二),不过那不是com接口发挥作用所在,要不这种东东早就淘汰了,com的接口真正作用其实就是提供实现对象给客户程序利用,当然注册这个dll依照这个guid值的来的,这是唯一的,而com又可分为进程内com(dll文件),进程外com(exe
 
Com接口入门细详(二)
上一篇,简单的详细了com的应用,不过那不是com接口发挥作用所在,要不这种东东早就淘汰了,com的接口真正作用其实就是提供实现对象给客户程序利用,而com又可分为进程内com(dll文件),进程外com(exe文件).
现在让我们来了解一下进程内com接口的应用。
Com即然提供其中的类方法给客户程序,那么把将要生成的dll文件,com对象表示为服务端
(为人民服务嘛,呵呵)
当然建com服务器
新建activeX library
在其中新建com对象,这基本应该大家会的吧。
主要还是分析代码
unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
 Windows, ActiveX, Classes, ComObj;

type
 ICalculator= interface
 ['{214C8A93-C235-45DB-BEDB-460DA54F3B01}']
 function Add(x,y:Integer):Integer;safecall;
 function Mult(x,y:Integer):Integer;safecall;
 end;
 TCalculator = class(TComObject, ICalculator)
 PRotected
 {Declare ICalculator methods here}
 function Add(x,y:Integer):Integer;safecall; // 加法运算
 function Mult(x,y:Integer):Integer;safecall; // 乘法运算
 end;


const
 Class_Calculator: TGUID = '{E81D22BE-7203-4447-B65C-6FF4CFA7E982}';//声明guid值这是唯一的。

implementation

uses ComServ;
 function TCalculator.Add(x, y: Integer): Integer;
 begin
 Result:= x+y ;//
 end;
 function TCalculator.Mult(x, y: Integer): Integer;
 begin
 Result:= x*y ;
 end;
initialization
 TComObjectFactory.Create(ComServer, TCalculator, Class_Calculator,
'Calculator', '', ciMultiInstance, tmApartment);//初始化建立唯一的guid值的com对象

end.
―――――――

客户端当然来利用这个dll文件。
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls,ActiveX;
 const
  Class_Calculator: TGUID='{E81D22BE-7203-4447-B65C-6FF4CFA7E982}';//跟服务端值一样下面我们注册对象,依这个值向注册表寻找guid值  
 type
  ICalculator= interface
  ['{214C8A93-C235-45DB-BEDB-460DA54F3B01}']
  function Add(x,y:Integer):Integer;safecall;
  function Mult(x,y:Integer):Integer;safecall;
 end;

 TForm1 = class(TForm)
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Edit4: TEdit;
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
  FCal:ICalculator;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
uses ComServ;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit3.Text:= IntToStr(FCal.Add(StrToInt(Edit1.Text), StrToInt(Edit2.Text)));
 Edit4.Text:= IntToStr(FCal.Mult(StrToInt(Edit1.Text), StrToInt(Edit2.Text)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 CoCreateInstance(Class_Calculator,nil,CLSCTX_INPROC_SERVER,ICalculator,FCal);//建立com对象实例
end;

end.
――――――――――――――――――――――――――――――――――――
搞定当然我们要向系统注册这个com对象文件,要不客户如何应用,
当然注册这个dll依照这个guid值的来的,这是唯一的,
注册com对象文件
Regsvr32 dll文件路径
――――――――――――――――
对于上一篇的代码还不够简单,让大家再简单的com接口应用
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;
  ipggpjj= Interface(IUnknown)
  procedure pggpjj1;
nd;
 
Tpggpjj=class(TInterfacedObject,Ipggpjj)
public
procedure pggpjj1;
end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure Tpggpjj.pggpjj1;
begin
showmessage('成功');
end;
procedure TForm1.Button1Click(Sender: TObject);
var pggpjj:ipggpjj;

begin
pggpjj:=Tpggpjj.Create;
pggpjj.pggpjj1;

end;

Tags:Com 接口 入门

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接