本文介绍了一个使用 Delphi 2009 进行 JSON 数据交互的简单示例。通过构建 Server 和 Client 应用，演示了如何利用 DataSnap 技术实现 TCP 服务器上的数据查询与返回。
自从Delphi2009添加了JSON这个特性之后，相信很多人都对它十分感兴趣吧，我抽了个空做一个小小的Demo，演示了JSON传递数据的情况。
首先建立一个Server，放入DSServer, DSServerClass, TCPServerTransport各一个，然后把DSServerClass和TCPServerTransport关联到DSServer。再放入 ADOConnection, ADOQuery, DataSetProvider, ClientDataSet各一个，做好关联。这些组件将完成生成XML数据的作用。
做好后界面如图所示：
然后切换到代码视图，添加一个ServerClass，注意添加支持反射的预处理。
然后实现这个方法，跟据SQL语句查出数据，然后返回相关的XML。
编写DSServerClass的OnGetClass事件。
好了，现在可以编译并执行Server程序。在Server启动着的情况下，进行Client的开发。
首先设计Client的界面，如下图所示：
注意把SqlServerMethod控件关联到SqlConnection控件上，并且SQlConnection控件的Driver属性设置为DataSnap。其他的数据组件按常规的方法进行关联即可。
编写Call按钮的事件，如下：
编写Call按钮的事件，如下：
编译并启动Client，然后点击Call按钮，即可看到数据从Server端返回来了。
到此为止，一个简单的Demo就做好了，但是有一些事情还不简单，如下：
我把Server放到了公网的服务器上，然后用Client去调用，却发生了以下的情况，如图所示，连接超时了
我找了一下，并没有在DataSnap的组件上找到Timeout属性，但是它内定的Timeout时间实在是太短了，在公网上Call几次，成功的几率大概也就是50%，网络状况稍微差一些，就会超时。
这应该是DataSnap组件有所疏漏吧，至少Timeout属性是必须有的，还需要继续等待相关的补丁。
扫一扫
4275
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
