体验 Delphi2009 的 JSON

自从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的界面，如下图所示：

编译并启动Client，然后点击Call按钮，即可看到数据从Server端返回来了。

到此为止，一个简单的Demo就做好了，但是有一些事情还不简单，如下：
我把Server放到了公网的服务器上，然后用Client去调用，却发生了以下的情况，如图所示，连接超时了

我找了一下，并没有在DataSnap的组件上找到Timeout属性，但是它内定的Timeout时间实在是太短了，在公网上Call几次，成功的几率大概也就是50%，网络状况稍微差一些，就会超时。
这应该是DataSnap组件有所疏漏吧，至少Timeout属性是必须有的，还需要继续等待相关的补丁。