自动化是从一个应用程序内部自动控制另一个应用程序的方法
例如下面的代码
procedure CreateNewWord;
var
WordObj: Variant;
begin
WordObj := CreateOleObject(WordBasic); {此函数声明于ComObj单元}
WordObjAppShow;
WordObjFileNew;
end;
这段代码将会打开WORD并自动建立一个新的文档(当然前提是你的机子上安装了WORD)这看来很有趣也是一种非常有用的功能那么如何让我们的程序也拥有类似WORD等的自动化功能并能让其它任何语言开发的程序对我们的程序进行自动化呢?用DELPHI来实现非常简单
这篇文章将会以实例形式一步步的来说明如何开发一个简单的自动化服务器
新建一个普通的应用程序将工程保存为AutoSrvbpr在主窗体上放一个Edit控件并保存为MainFormpas在这里我们打算给这个程序加上对窗口标题窗体颜色和Edit控件文本的自动化控制(当然这实现的功能很少但对于讲解如何开发自动化服务器程序足够了)在主窗口中加入如下代码:(注意:请自行将这些函数和过程的声明加入TForm的public区)
function TFormGetCaption: string;
begin
result := SelfCaption;
end;
procedure TFormSetCaption(ACaption: string);
begin
SelfCaption := ACaption;
end;
procedure TFormSetColor(AColor: TColor);
begin
SelfColor := AColor;
end;
procedure TFormSetEditText(AText: string);
begin
SelfEditText := AText;
end;
然后我们来给这个程序加上自动化的功能点击New Items按钮在弹出的New Items窗口中点击ActiveX选项卡选择Automation Object点击OK按钮在弹出的Automation Object Wizard窗口中CoClass Name一项中输入MyAutoSrv Delphi就会自动生成一个AutoSrv_TLBpas文件(类库)和实现类库接口类的单元将这个新的单元保存为AutoSrvClasspas．
现在这个程序已经成为一个自动化服务器了我们再来为其加上自动化的接口函数:
()点击View>Type Libray菜单在Type Library Editor选择IMyAutoSrv接口点击New Property选择其属性为Read|Write并把其命名为CaptionType设定为BSTR
()点击New Method将其命名为SetColor点击右边的Parameters选项卡点击ADD为新添的接口函数添加一个参数将参数名设为AColor参数Type设为OLE_COLOR
()再次点击New Method将其命名为SetEditText以上面的方法为其添加一个参数将参数名设为AText参数Type设为BSTR
最后添加上接口函数的实现代码就OK了:
在AutoSrvClasspas的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 TMyAutoSrvGet_Caption: WideString;
begin
Result := FormGetCaption;
end;
procedure TMyAutoSrvSet_Caption(const Value: WideString);
begin
FormSetCaption(Value);
end;
procedure TMyAutoSrvSetColor(AColor: OLE_COLOR);
begin
FormSetColor(AColor);
end;
procedure TMyAutoSrvSetEditText(const AText: WideString);
begin
FormSetEditText(AText);
end;
initialization
TAutoObjectFactoryCreate(ComServer TMyAutoSrv Class_MyAutoSrv
ciMultiInstance tmApartment);
end
运行这个程序一次将会自动注册为自动化服务器可以在注册表中的HKEY_CLASSES_ROOT主键下面找到其相关的注册信息
上面演示了如何开发一个自动化服务器在这里我们将调用它
新建一个程序添加一个Button在其VAR区声明一个Variant变量: AutoSrv: variant
再在Button中添加如下代码
procedure TFormButtonClick(Sender: TObject);
begin
AutoSrv := CreateOleObject(AutoSrvMyAutoSrv); {这个字符串就是自动化服务器的工程名加上CoClass Name}
SelfCaption := AutoSrvCaption;
AutoSrvCaption := HEHE;
AutoSrvSetColor(CLRed);
AutoSrvSetEditText(HAHA);
end;
其中的CreateOleObject函数将会返回一个IDispatch类型的接口正是IDispatch接口让我们的程序可以对自动化服务器接口的调用进行后期连接比如我们在上面添加一句AutoSrvHello程序也能被编释通过但在执行时就会出错 使用Variant在执行效率上会比直接使用接口声明要慢一些
运行并点击按钮可以看到自动化服务程序被加载并按我们的代码设置了窗体色和EDIT中的字串呵呵是不是很简单啊?
用其它语言也可以调用这个自动化服务器比如VCVB或包含脚本的网页例如网络蚂蚁也是实现为自动化服务器来取得点击的网址地址
