用DELPHI开发自动化服务器

日期：2007年7月23日作者：查看:[大字体中字体小字体]

自动化是从一个应用程序内部自动控制另一个应用程序的方法,例如下面的代码.
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;
[1] [2] [3] 下一页
用DELPHI开发自动化服务器相关文章：
·在IE浏览器中正确显示PNG透明图片
·Flash制作交互动画教程星座查询器
·上网冲浪选谁更好七款主流网页浏览器评测
·多亮点极速新版极速浏览器试用
·防止对WEB应用服务器的三种攻击
·详解服务器集群系统实现方案
·VC资源更新器让电驴更快一些
·Win2000下PHP服务器安装攻略
·制作有趣的星座查询器Flash教程
·交换机DHCP服务器中继代理配置
用DELPHI开发自动化服务器相关软件
·《泰坦之旅之不朽王座》新+14修改器
·NDS《旋转滚球》模拟器
·NDS《神奇四侠2 银影侠》模拟器
·NDS模拟器NO$GBA 2.4b
·游戏马—边锋记牌器
·游戏马-QQ记牌器
·《医院大亨》属性修改器
·CPS3街机模拟器
·NDS《新彩虹岛中文汉化版》模拟器
·《猎杀潜航3》修改器修正版

上一篇:用Delphi轻松实现字数统计

下一篇:用Delphi开发简单的WebMail程序

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用DELPHI开发自动化服务器

精品推荐

热点TOP10

特别推荐