李维DelphiXE程序设计系列2.docVIP

李维 Delphi XE程序设计系列 2-开发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，稍后我们将说明这个DataSnap/REST服务器如何同时以传统DataSnap的架构让用户端使用dbExpress组件存取数据，以及如何以REST的架构让客户端存取它提供的服务。 ? ? ? ? ??? 现在编译并且执行这个DataSnap/REST服务器。 ??? 由于现在这个服务器同时