用DELPHI开发自动化服务器

自动化是从一个应用程序内部自动控制另一个应用程序的方法,例如下面的代码.
procedure CreateNewWord;
var
  WordObj: Variant;
begin
  WordObj := CreateOleObject('Word.Basic'); {此函数声明于ComObj单元}
  WordObj.AppShow;
  WordObj.FileNew;
end;
  这段代码将会打开WORD,并自动建立一个新的文档(当然前提是你的机子上安装了WORD),这看来很有趣,也是一种非常有用的功能.那么如何让我们的程序也拥有类似WORD等的自动化功能并能让其它任何语言开发的程序对我们的程序进行自动化呢?用DELPHI来实现非常简单.

  这篇文章将会以实例形式一步步的来说明如何开发一个简单的自动化服务器.

  新建一个普通的应用程序,将工程保存为AutoSrv.bpr.在主窗体上放一个Edit控件,并保存为MainForm.pas,在这里我们打算给这个程序加上对窗口标题,窗体颜色,和Edit控件文本的自动化控制(当然这实现的功能很少,但对于讲解如何开发自动化服务器程序足够了),在主窗口中加入如下代码:(注意:请自行将这些函数和过程的声明加入TForm1的public区)
function TForm1.GetCaption: string;
begin
  result := Self.Caption;
end;

procedure TForm1.SetCaption(ACaption: string);
begin
  Self.Caption := ACaption;
end;

procedure TForm1.SetColor(AColor: TColor);
begin
  Self.Color := AColor;
end;

procedure TForm1.SetEditText(AText: string);
begin
  Self.Edit1.Text := AText;
end;
  然后我们来给这个程序加上自动化的功能,点击New Items按钮,在弹出的New Items窗口中点击ActiveX选项卡,选择Automation Object点击OK按钮,在弹出的Automation Object Wizard窗口中CoClass Name一项中输入MyAutoSrv, Delphi就会自动生成一个AutoSrv_TLB.pas文件(类库)和实现类库接口类的单元,将这个新的单元保存为AutoSrvClass.pas

  现在这个程序已经成为一个自动化服务器了,我们再来为其加上自动化的接口函数:
(1)点击View->Type Libray菜单,在Type Library Editor选择IMyAutoSrv接口,点击New Property,选择其属性为ReadWrite,并把其命名为Caption,Type设定为BSTR.
(2)点击New Method,将其命名为SetColor,点击右边的Parameters选项卡,点击ADD为新添的接口函数添加一个参数,将参数名设为AColor,参数Type设为OLE_COLOR.
(3)再次点击New Method,将其命名为SetEditText,以上面的方法为其添加一个参数,将参数名设为AText,参数Type设为BSTR.

  最后添加上接口函数的实现代码就OK了:
在AutoSrvClass.pas的Uses部分添加上MainForm,并将其代码改为如下代码.
unit AutoSrvClass;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, AutoSrv_TLB, StdVcl, MainForm;

type
  TMyAutoSrv = class(TAutoObject, IMyAutoSrv)
  protected
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const Value: WideString); safecall;
    procedure SetColor(AColor: OLE_COLOR); safecall;
    procedure SetEditText(const AText: WideString); safecall;

  end;

implementation

uses ComServ;

function TMyAutoSrv.Get_Caption: WideString;
begin
  Result := Form1.GetCaption;

[1] [2] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:用Delphi开发数据库程序经验三则

下一篇:用delphi批量导入某子目录下所有JPG图片文件到数据库