快讯

	首页 > 软件 > 开发特区 > 开发语言 > Delphi > 正文	世界杯

一个实际的OLE服务器的开发

2004-02-14 09:34 出处：PConline 作者：hkbarton/CSDN 责任编辑：linjixiong

在本页浏览全文

　　　begin 　　　　messagebox(CustForm.Handle,'你在客户程序指定的商品类型并不存在！','CustProOLE常规错误',MB_ICONWARNING); 　　　　CustForm.ProductEdit.ItemIndex:=0; 　　　　end; 　　　　end; 　　　　procedureTCustFormOLE.Set_ProductNum(Value:Integer); 　　　　begin 　　　　CustForm.ProNumEdit.Value:=Value; 　　　　end; 　　　　procedureTCustFormOLE.Set_Remark(constValue:WideString); 　　　　begin 　　　　CustForm.Memo1.Lines.Text:=Value; 　　　　end; 　　initialization 　　　　TAutoObjectFactory.Create(ComServer,TCustFormOLE,Class_CustFormOLE, 　　　　ciMultiInstance,tmApartment); 　　　　end. 　　现在我们就可以实际的测试和使用这个服务器了，我们可以新建立一个工程，选择Project-->ImportTypeLibrary…可以发现这里已经有我们刚才建立的服务器信息了（当然前提是你已经运行过服务器程序），然后CreateUnit将相应的类型文件所生成的pascal文件加入我们的工程中，一但我们启动了服务器我们就可以很轻松的使用接口中的属性和方法了：　　functionTForm1.GetDefaultInterface:ICustFormOLE; 　　　　begin 　　　　ifnotassigned(FInterface)then 　　　　FInterface:=CoCustFormOLE.Create;//注意这里，你可以在类型库文件产生的pascal文件中找到CoCustFormOLE的含义　　　　result:=FInterface; 　　　　end; 　　　　由于篇幅原因，我们不能给出测试程序的全部代码（事实上有了服务器程序，我们的测试客户程序想要处理SQLServer中的相应数据就相当的简单了。），可以照后文的地址向我索取（说明一下，本文中的数据库用到SQLServer，所以我发给你们的程序中你们需要还原其中的数据库备份到你们的SQLServer，并修改相应的连接字符串，否则程序不能运行）。　　　　在本文的最后，我们介绍一种更简单的使用我们刚才所开发的服务器的方法，那就是把它封装为delphi中的组件，选择Project-->ImportTypeLibrary…中我们开发的服务器，然后Install将它安装到一个已经存在的包或你新建的组件包中，delphi将为我们做很多工作，最后你可以从你指定的面板找到安装的新的组件，现在你就可以象使用普通VCL组件一样使用我们开发的服务器了。（注意，delphi为我们定义了一个继承自ToleContol的类，这一切复杂的工作都是由delphi在背后为我们完成的，如果你有兴趣，建议研究一下这个组件中delphi自动为我们生成的大量代码）。　　　　索取地址：hk.barton@sohu.com 　　　　　　希望看到更多更经典的开发技巧，请随时刷新《开发特区》栏目。

察看评论详细内容我要发表评论