一个实际的OLE服务器的开发和使用
2008-04-30 13:14
656 查看
一个实际的OLE服务器的开发和使用
先行知识:Delphi /COM/OLE Automation/ SQL Server难度:★★☆☆☆ 在前几篇文章中我们已经讨论过关于VCL和OLE的知识。在这篇文章中我们将完成一个比较有实际意义的OLE Automation服务器程序,最后我们把他们封装为Delphi中使用的VCL组件。首先我们来做一个实际的程序,在它没有变为服务器之前,这是个用来管理客户购买记录的程序(它自己与SQL Server连接),它可以录入和删除客户的购买记录并直观的显示出来,所有的数据都存放在SQL Server中。我们将它做为OLE Automation出于这样一种考虑,假设我们是一家大型的供货公司,我们可能有很多系统需要使用这个客户购买记录程序并用它处理SQL Server中相应的数据,但我们不愿意每次都重复的编写同样的处理代码,我们更希望能把这个处理程序独立出来,并向其它程序提供服务。那么在下面的工作中我们完成了这个服务器程序,界面如下:(注意,这仅仅是一个例子,我们不评价其数据库设计的好坏J)我们不过多的讨论这个程序的代码(因为这和开发一般的程序没有任何不同,你可以按照最后的地址给我来信索取这篇文章的全部代码)。然后我们来把它变为一个服务器。选择FileàNewàOthersàActiveXàAutomation Object。接下来delphi为我们定义了类型库和实现文件,我们要做的只是在类型库中添加相应的我们要用到的服务器属性和事件。我们简单的给出定义这个OLE Automation功能的接口(来自类型库所产生的Object Pascal代码): ICustFormOLE = interface(IDispatch) ['{D7AE75F9-F838-4702-A8EB-EAD0EED242DE}'] function Get_CustName: WideString; safecall; procedure Set_CustName(const Value: WideString); safecall; function Get_ProductName: WideString; safecall; procedure Set_ProductName(const Value: WideString); safecall; function Get_ProductNum: Integer; safecall; procedure Set_ProductNum(Value: Integer); safecall; function Get_Remark: WideString; safecall; procedure Set_Remark(const Value: WideString); safecall; //下面的方法和属性都对应着原程序中相应的方法和属性 procedure AddToData; safecall; procedure DelData; safecall; property CustName: WideString read Get_CustName write Set_CustName; property ProductName: WideString read Get_ProductName write Set_ProductName; property ProductNum: Integer read Get_ProductNum write Set_ProductNum; property Remark: WideString read Get_Remark write Set_Remark; end; ICustFormOLEDisp = dispinterface ['{D7AE75F9-F838-4702-A8EB-EAD0EED242DE}'] property CustName: WideString dispid 201; property ProductName: WideString dispid 202; property ProductNum: Integer dispid 203; property Remark: WideString dispid 204; procedure AddToData; dispid 205; procedure DelData; dispid 206; end;我们现在回到接口的实现文件,注意代码中的注释,事实上这段代码相当的简单:unit CustOLEImpUnit; {$WARN SYMBOL_PLATFORM OFF} interface uses ComObj, ActiveX, CustViewOLE_TLB, StdVcl,windows; type TCustFormOLE = class(TAutoObject, ICustFormOLE)//注意这里实现了我们在前面定义的ICustFormOLE接口 protected function Get_CustName: WideString; safecall; function Get_ProductName: WideString; safecall; function Get_ProductNum: Integer; safecall; function Get_Remark: WideString; safecall; procedure AddToData; safecall; procedure DelData; safecall; procedure Set_CustName(const Value: WideString); safecall; procedure Set_ProductName(const Value: WideString); safecall; procedure Set_ProductNum(Value: Integer); safecall; procedure Set_Remark(const Value: WideString); safecall; end; implementation uses ComServ,CustFormUnit; function TCustFormOLE.Get_CustName: WideString;begin result:=CustForm.CustomEdit.Text; //可以看到,我们只是用了最初程序窗体的控件和属性,这里的接口实现相当于 //只是简单的封状了我们的原始程序,下面的代码情况类似。end; function TCustFormOLE.Get_ProductName: WideString;begin result:=CustForm.ProductEdit.Text;end; function TCustFormOLE.Get_ProductNum: Integer;begin result:=CustForm.ProNumEdit.Value;end; function TCustFormOLE.Get_Remark: WideString;begin result:=CustForm.Memo1.Lines.Text;end; procedure TCustFormOLE.AddToData;begin CustForm.AddButton.Click;end; procedure TCustFormOLE.DelData;begin CustForm.DelButton.Click;end; procedure TCustFormOLE.Set_CustName(const Value: WideString);begin CustForm.CustomEdit.Text:=Value;end; procedure TCustFormOLE.Set_ProductName(const Value: WideString);var i:integer;begin i:=CustForm.ProductEdit.Items.IndexOf(Value); if i<>-1 then CustForm.ProductEdit.ItemIndex:=i else begin messagebox(CustForm.Handle,'你在客户程序指定的商品类型并不存在!','CustProOLE常规错误',MB_ICONWARNING); CustForm.ProductEdit.ItemIndex:=0; end;end; procedure TCustFormOLE.Set_ProductNum(Value: Integer);begin CustForm.ProNumEdit.Value:=Value;end; procedure TCustFormOLE.Set_Remark(const Value: WideString);begin CustForm.Memo1.Lines.Text:=Value;end; initialization TAutoObjectFactory.Create(ComServer, TCustFormOLE, Class_CustFormOLE, ciMultiInstance, tmApartment);end.现在我们就可以实际的测试和使用这个服务器了,我们可以新建立一个工程,选择Project-->Import Type Library…可以发现这里已经有我们刚才建立的服务器信息了(当然前提是你已经运行过服务器程序),然后Create Unit将相应的类型文件所生成的pascal文件加入我们的工程中,一但我们启动了服务器我们就可以很轻松的使用接口中的属性和方法了:function TForm1.GetDefaultInterface:ICustFormOLE;begin if not assigned(FInterface) then FInterface:=CoCustFormOLE.Create;//注意这里,你可以在类型库文件产生的pascal文件中找到CoCustFormOLE的含义 result:=FInterface;end; 由于篇幅原因,我们不能给出测试程序的全部代码(事实上有了服务器程序,我们的测试客户程序想要处理SQL Server中的相应数据就相当的简单了。),可以照后文的地址向我索取(说明一下,本文中的数据库用到SQL Server,所以我发给你们的程序中你们需要还原其中的数据库备份到你们的SQL Server,并修改相应的连接字符串,否则程序不能运行)。在本文的最后,我们介绍一种更简单的使用我们刚才所开发的服务器的方法,那就是把它封装为delphi中的组件,选择Project-->Import Type Library…中我们开发的服务器,然后Install将它安装到一个已经存在的包或你新建的组件包中,delphi将为我们做很多工作,最后你可以从你指定的面板找到安装的新的组件,现在你就可以象使用普通VCL组件一样使用我们开发的服务器了。(注意,delphi为我们定义了一个继承自TOLEContol的类,这一切复杂的工作都是由delphi在背后为我们完成的,如果你有兴趣,建议研究一下这个组件中delphi自动为我们生成的大量代码)。索取地址:hk.barton@sohu.com相关文章推荐
- 一个实际的OLE服务器的开发和使用
- ... 作为 input type="button/submit/reset"的一个代替者,功能更强大, 标签的语义也更明确 是实际开发中推荐使用的一个html标签.
- 推荐一个前端开发的使用服务器环境开源项目 D2Server 可替代Apache
- Netty学习(一)使用官网例子快速开发一个服务器
- 由于最近开发服务器送修,临时需要在windows7 下搭建一个CVS, 使用CVSNT, 但是发现安装后CVSNT Contral Panel无法使用。
- 使用go语言开发的一个异步服务器
- 关于怎么让多个程序搭建在一个服务器上,搭建一个适合与架构师使用的开发与实现环境
- 使用OpenGL开发一个指南针 (http://www.hiapk.com/thread-513153-1-1.html)
- 使用Django开发一个图书管理系统 03----迈出第一步,建立项目
- 【VS开发】使用WinPcap编程(4)——把网络数据包存储到一个文件中
- 使用ATL开发一个ActiveX控件
- 一个苹果证书供多台电脑开发使用——导出p12文件
- 如何将一个Android项目使用本地服务器运行
- ios开发UI篇—使用纯代码自定义UItableviewcell实现一个简单的微博界面布局
- h5 app开发使用cordova调用相册、相机、文件系统或录音录视频,并上传到服务器
- 使用UDP实现一个时钟服务器
- 网络游戏服务器开发:脚本系统的制作,linux下使用tolua制作Lua脚本系统(不需要PKG文件)
- spring,springMVC的优点和区别 spring 是是一个开源框架,是为了解决企业应用程序开发,功能如下 ◆目的:解决企业应用开发的复杂性 ◆功能:使用基本的JavaBean代替EJB,并
- 一个OLE_DB高速访问数据库类,现已公开,强烈推荐使用
- 使用 MEAN 进行全栈开发基础篇——2、弄一个简单的用户管理试试