实现局域网中客户端序的自动分发与更新.docVIP

实现局域网中客户端程序的自动分发与更新 什么是Active Form？Active Form也是ActiveX控件。不同的是，一般的ActiveX控件是单 一的控件，只能从一个VCL控件转换而来，而Active Form可以把一个或多个VCL控件转换为 一个复合的ActiveX控件。 在接下来的Active Form Winzard对话框中New AcitveX Name项目中输入要创建的控件名如DownClient，其它默认。点击“确定”按钮后，Delphi中就创建了ActiveForm。从【SyStem】组件面板中拖入一个DdeClientConv组件，以实现关闭打开的浏览器。从【Indy Clients】组件面板中拖入一个idHTTP控件，以实现文件下载。 2．为ActiveForm添加一个方法 点击菜单栏中【View】→【Type Library】给当前控件添加一个方法，以接收需要下载文件的URL。在打开的类型库编辑窗口中点击“New Method”按钮，取名为GetDownUrl。 在右边窗口中选中“Parameters”选项页，在此定义一个参数。参数名DownUrl,类型定义为BSTR。定义好后，还必须在该窗口中工具栏上点击“Register Type Library”按钮以注册该方法。系统会弹击一个注册成功的消息框，如下图。 点击“OK”按钮，关闭类型库编辑窗口，在unit DownClientImpl1单元中，可以看到系统自动添加的过程GetDownUrl(const DownUrl: WideString)。 3．添加代码 procedure TDownClient. GetDownUrl(const DownUrl: WideString); var source，dest：string； DDE：TDDEClientConv； WinDir：Pchar； MyStream；TMemoryStream； begin try //获取系统目录 GetMem(WinDir,256)； getwindowsdirectory(WinDir,128)； IF FileExists(Windir+＼Client.exe) then DeleteFIle(Windir+＼Client.exe)；// 删除客户端文件 MyStream：= TMemoryStream.Create；//下载客户端文件Client.exe Source：= DownUrl +Client.exe； Dest：=Windir+＼Client.exe； IdHTTP1.Get( Source,MyStream )； MyStream.SaveToFile(Dest)； MyStream.Free； //释放 //执行客户端EXE文件 winexec(pchar(Windir+＼Client.exe),SW_SHOWNORMAL)； Finally //关闭当前打开的IE浏览器 DDE：=TDDEClientConv．Create(self)； //创建DDE客户端 If DDE．etLink(iexplore，WWW_Exit) then //建立DDE连接 DDE．RequestData(WWW_Exit)； //关闭IE DDE．Free; end; end; 4．编译ActiveForm 设计好ActiveForm后，还需要正确设置相关的选项：使用【Project】→ 【Web Deployment Options】 菜单命令打开对话框，指定输出路径。 Target Dir：用于指定要发布的ActiveForm在Web服务器上的路径。如：C:＼inetpub＼wwwr oot Target URL：用于指定要发布的ActiveForm在Web服务器上的URL 。 如http://localhostHTML dir ：用于指定生成的样本HTML文件的路径，该文件包括对ActiveForm的引用，做测试用。 使用【Project】→ 【Web Deploy】来编译该ActiveForm。Delphi在指定的目录下生成一个Web页和一个ActiveX控件DownClientProj1.ocx。 下面是产生的样本Web页： HTML H1 Delphi 7 ActiveX Test Page /H1p You should see your Delphi 7 forms or controls embedded in the form below. HRcenterP OBJECT classid=clsid:BA667154-2695-4319-868A-14216279740E