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

2016-01-29 14:11 11 1 收藏

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

【 tulaoshi.com - Delphi 】

 
先行知识:Delphi/COM/OLEAutomation/SQLServer

  难度:★★☆☆☆

  在前几篇文章中我们已经讨论过关于VCL和OLE的知识。在这篇文章中我们将完成一个比较有实际意义的OLEAutomation服务器程序,最后我们把他们封装为Delphi中使用的VCL组件。

  首先我们来做一个实际的程序,在它没有变为服务器之前,这是个用来管理客户购买记录的程序(它自己与SQLServer连接),它可以录入和删除客户的购买记录并直观的显示出来,所有的数据都存放在SQLServer中。我们将它做为OLEAutomation出于这样一种考虑,假设我们是一家大型的供货公司,我们可能有很多系统需要使用这个客户购买记录程序并用它处理SQLServer中相应的数据,但我们不愿意每次都重复的编写同样的处理代码,我们更希望能把这个处理程序独立出来,并向其它程序提供服务。那么在下面的工作中我们完成了这个服务器程序,界面如下:(注意,这仅仅是一个例子,我们不评价其数据库设计的好坏J)
  
  我们不过多的讨论这个程序的代码(因为这和开发一般的程序没有任何不同,你可以按照最后的地址给我来信索取这篇文章的全部代码)。然后我们来把它变为一个服务器。选择FileàNewàOthersàActiveXàAutomationObject。接下来delphi为我们定义了类型库和实现文件,我们要做的只是在类型库中添加相应的我们要用到的服务器属性和事件。我们简单的给出定义这个OLEAutomation功能的接口(来自类型库所产生的ObjectPascal代码):
  
  ICustFormOLE=interface(IDispatch)
  
  ['{D7AE75F9-F838-4702-A8EB-EAD0EED242DE}']
  
  functionGet_CustName:WideString;safecall;
  
  procedureSet_CustName(constValue:WideString);safecall;
  
  functionGet_ProductName:WideString;safecall;
  
  procedureSet_ProductName(constValue:WideString);safecall;
  
  functionGet_ProductNum:Integer;safecall;
  
  procedureSet_ProductNum(Value:Integer);safecall;
  
  functionGet_Remark:WideString;safecall;
  
  procedureSet_Remark(constValue:WideString);safecall;
  
  //下面的方法和属性都对应着原程序中相应的方法和属性
  
  procedureAddToData;safecall;
  
  procedureDelData;safecall;
  
  propertyCustName:WideStringreadGet_CustNamewriteSet_CustName;
  
  propertyProductName:WideStringreadGet_ProductNamewriteSet_ProductName;
  
  propertyProductNum:IntegerreadGet_ProductNumwriteSet_ProductNum;
  
  propertyRemark:WideStringreadGet_RemarkwriteSet_Remark;
  
  end;
  

 ICustFormOLEDisp=dispinterface
  
  ['{D7AE75F9-F838-4702-A8EB-EAD0EED242DE}']
  
  propertyCustName:WideStringdispid201;
  
  propertyProductName:WideStringdispid202;
  
  propertyProductNum:Integerdispid203;
  
  propertyRemark:WideStringdispid204;
  
  procedureAddToData;dispid205;
  
  procedureDelData;dispid206;
  
  end;
  
  我们现在回到接口的实现文件,注意代码中的注释,事实上这段代码相当的简单:
  
  unitCustOLEImpUnit;
  
  {$WARNSYMBOL_PLATFORMOFF}
  
  interface
  
  uses
  
  ComObj,ActiveX,CustViewOLE_TLB,StdVcl,windows;
  
  type
  
  TCustFormOLE=class(TAutoObject,ICustFormOLE)
  
  //注意这里实现了我们在前面定义的ICustFormOLE接口
  
  protected
  
  functionGet_CustName:WideString;safecall;
  
  functionGet_ProductName:WideString;safecall;
  
  functionGet_ProductNum:Integer;safecall;
  
  functionGet_Remark:WideString;safecall;
  
  procedureAddToData;safecall;
  
  procedureDelData;safecall;
  
  procedureSet_CustName(constValue:WideString);safecall;
  
  procedureSet_ProductName(constValue:WideString);safecall;
  
  procedureSet_ProductNum(Value:Integer);safecall;
  
  procedureSet_Remark(constValue:WideString);safecall;
  
  end;
  
  implementation
  
  usesComServ,CustFormUnit;
  
  functionTCustFormOLE.Get_CustName:WideString;
  
  begin
  
  result:=CustForm.CustomEdit.Text;
  
  //可以看到,我们只是用了最初程序窗体的控件和属性,这里的接口实现相当于

来源:http://www.tulaoshi.com/n/20160129/1492710.html

延伸阅读
OLE自动化是不同应用程序之间进行通讯的一个标准。OLE自动化的工作方式是:通讯被动方(OLE服务器)应用程序向通讯主动方(OLE客户机)应用程序提供一个以上可供其调用的OLE自动化对象类型,OLE客户机通过引用这些对象实现对OLE服务器的调用,然后通过设置对象的属性和使用对象的方法操纵OLE服务器应用程序,完成两者之间的通讯。 Visu...
       Squid -- Linux下的一个优秀代理服务器软件使用详解   · 闫建勇·CPCW       做为眼下最流行的操作系统,Linux已经越来越受到世人的关注。虽然目前Linux的软件还不是很丰富,替代WINDOWS作为普通PC机操作系统还为时过早,但是在服务器领域,Linux的稳定性,可操...
标签: ASP
  使用索引服务器的对象 你可以象使用其它数据库一样使用索引服务器,也就是Index Server,它是IIS4中包含的内容索引引擎。你可以对它进行ADO调用并搜索你的站点,它为你提供了一个很好的web 搜索引擎。 它非常容易使用。你只需要声明对象,然后对引擎进行调用,然后引用你所请求的属性、栏和值。 那么,怎样做以上这些工...
标签: ASP
  在进入我们需习的第一个组件之前,小虎首先得说明一下,由于小虎的水平有限,可能在下面的这些说明过程中存在 不少错误,希望大家提出指证,在这里我希望能与大家分享一下ASP的学习经验,小虎的这个网站推耸的是原创精神,很多 东西都是DIY,因此程序编写过程中也会染上小虎本身不良的编程习惯。而且整个教学网站也只有小虎一个维护,因...
标签: 服务器
在CentOS服务器上配置NTP服务器的教程   网络时间协议(NTP)用来同步网络上不同主机的系统时间。你管理的所有主机都可以和一个指定的被称为 NTP 服务器的时间服务器同步它们的时间。而另一方面,一个 NTP 服务器会将它的时间和任意公共 NTP 服务器,或者你选定的服务器同步。由 NTP 管理的所有系统时钟都会同步精确到毫秒级。 ...

经验教程

136

收藏

41
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部