开发DataSnap_REST服务器.docVIP

Delphi XE程序设计系列 2-开发DataSnap/REST服务器 2012-12-28 14:50:23| 分类： 服务器 | 标签： |举报 |字号大中小 订阅 在上次的文章中讨论了如何把传统的Delphi 主从架构应用程序逐渐转换为DataSnap JSON服务器，在本篇文章中让我们正式讨论如何使用Delphi XE开发DataSnap/REST服务器，由于这其中牵涉到非常多的技术，因此我们将花数篇的篇幅来讨论。现在就让我们从DataSnap/REST服务器开始。 开发DataSnap服务器 Delphi XE版的DataSnap允许开发人员同时在DataSnap服务器中实作RESTful架构的服务器，如此一来DataSnap服务器不但可以在网络内 部做为多层的服务服务器，也可以让网络外部的客户端使用REST的方式来存取服务。 要在Delphi XE中建立DataSnap/REST服务器，请点选Files|New菜单，在DataSnap Server选项中选择DataSnap Server图像，如下图所示: Delphi XE提供三种不同的服务器型态，分别是以VCL应用程序实作的服务器，实作为主控程序的服务器以及实作成Windows服务应用程序的服务器，开发人员可根据自己的需求选择建立适当的服务器型态，在本篇文章中让我们建立VCL应用程序型态的服务器: 点选Next按钮之后DataSnap精灵会如下图询问需要支持的通讯协议，是否使用安全验证功能以及是否要预先建立范例服务方法，让我们点选下方的Select All以选择建立所有的功能，如下图所示: 点选Next按钮，DataSnap精灵会如下图询问TCP/IP和HTTP使用的通信埠，内定上TCP/IP使用211而HTTP则使用 8080，开发人员可根据自己的需求设定这两个通信埠，或是点选Find Open Port按钮让DataSnap精灵帮忙搜寻可使用的通信埠: 接着DataSnap精灵会询问开发人员实作服务方法的类别，开发人员可以选择实作于TComponent类别，TDataModule类别或是TDSServerModule类别，在本文章中我们选择实作于TDSServerModule: 点选Finish按钮之后，Delphi XE便会建立相对应的项目，我们开启ServerContainerUnit的话就可以看到其中包含了如下组件，其中的 TDSServer，TDSTCPServerTransport以及TDSServerClass类别组件在Delphi 2010中就存在了，新的TDSHTTPService类别组件则提供了HTTP/HTTPS通讯协议的支持，而新的 TDSAuthenticationManager类别组件则提供安全验证功能，在稍后的文章中我们会说明如何使用它。 现在DataSnap精灵会在项目的ServerMethodsUnit程序单元中产生两个范例方法，EchoString和ReverseString。现在让我们在这个程序单元中加入一个新的服务方法『取得部落格文章名称』，如下所示: public { Public declarations } function EchoString(Value: string): string; function ReverseString(Value: string): string; function 取得部落格文章名称 : TJSONArray; 接着实作『取得部落格文章名称』方法，如下所示: function TServerMethods2.取得部落格文章名称: TJSONArray; begin Result := TJSONArray.Create; Result.AddElement(TJSONString.Create(‘Delphi XE程序设计系列 1-主从架构, 多层到JSON和REST’)); Result.AddElement(TJSONString.Create(‘从原生API到REST API – 使用C++Builder XE开发REST应用程序’)); Result.AddElement(TJSONString.Create(‘Delphi XE程序设计系列 2-DataSnap/REST服务器’)); end; 『取得部落格文章名称』方法建立TJSONArray对象，并且把三篇文章名称以TJSONString对象储存在元素中，最后回传TJSONArray对象给客户端。 最后开启ServerMethodsUnit程序单元的设计接口，在其中放入dbExpress组件以存取储存在MS SQL Server数据库中的范例数据表FishFacts，