Com接口入门细详(二)

时间:2010-02-03 12:46:39  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:r />Com即然提供其中的类方法给客户程序,那么把将要生成的dll文件,com对象表示为服务端(为人民服务嘛,呵呵)当然建com服务器新建activeX library在其中新建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对象文件
"Com接口入门细详(二)"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12758.html


关键字:

关于《Com接口入门细详(二)》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td