Delphi XE2 DataSnap 开发实战 (01)

1：DataSnap服务端的开发

File-->New-->Other-->DataSnap Server 项：DataSnap Server 工程；

配置各项属性如下：

   a:工程类型：VCL Forms Application;  

   b:服务器属性(各项协议)：除 Filters项的 Encryption外，全钩选；

     若钩选 Encryption,将产生：http://q.cnblogs.com/q/42253/ 中所描述的问题；

   c: TCP/IP,HTTP,HTTPS端口，全部默认；

   d:服务器上级类：TDSServerModule

--------------------------------------

在 ServerMethods 单元，添加上 SQLConnection-->SQLDataSet-->DataSetProvider

按 DBExpress 中的方法连接各对象；

可依据个人DEMO 编制的需求，在 Public 下添加自定义的过程或函数；

本人所配置的自定义函数信息如下图：

配置好各项函数及各组件对象的连接方式后，测试服务器的作为 REST 服务器的效果 (RESTful功能)

 

2: DataSnap 客户端的实现

a: 新建一个 VCL Application

b: File --> New --> DataSnap Server 项：DataSnap Client Module

c: 服务器地址: Local Server

d:Server Project type: DataSnap stand alone server

e:Connection Protocol:TCP/IP

f: Port: 211 或你在服务端所配置的 DSTCPServerTransPort 所配置的端口号

g:点 Finish 即可；系统将自动创建所对应的  数据集单元，同时还有提供服务的 ClientClasses单元；

h:自己添加好 DSProviderConnection,ClientDataSet,DataSource,

  各对象的主要属性如下图：

I:在主窗上，按DBExpress 中的方式，配置好显示表格，及相对的按钮，事件：

至此，第一步就算完成了，第一个 DataSnap DEMO就算完成了；

---------------------------------

对于 博问中的问题：http://q.cnblogs.com/q/42253/  需密切关注；