自动化是从一个应用程序内部自动控制另一个应用程序的方法,例如下面的代码.
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,选择其属性为Read
关键词：用DELPHI开发自动化服务器