体验 Delphi2009 的 JSON

 

自从Delphi2009添加了JSON这个特性之后，相信很多人都对它十分感兴趣吧，我抽了个空做一个小小的Demo，演示了JSON传递数据的情况。

首先建立一个Server，放入DSServer, DSServerClass, TCPServerTransport各一个，然后把DSServerClass和TCPServerTransport关联到DSServer。再放入 ADOConnection, ADOQuery, DataSetProvider, ClientDataSet各一个，做好关联。这些组件将完成生成XML数据的作用。

做好后界面如图所示：

 

 

然后切换到代码视图，添加一个ServerClass，注意添加支持反射的预处理。

 

1. {$MethodInfo ON}
3. TServerDemo =class(TPersistent)
4. public
5.   function GetData(aSql:string):string;
6. end;
8. {$MethodInfo OFF}

然后实现这个方法，跟据SQL语句查出数据，然后返回相关的XML。

 

 

1. function TServerDemo.GetData(sSql:string):string;
2. begin
3.   CoInitialize(nil);
4.   Form1.ADOConnection1.Close;
5.   Form1.ADOConnection1.connectionString :=
6.     'Provider = Microsoft.Jet.OLEDB.4.0;'+
7.     'Data Source = DelphiNotes.mdb;'+
8.     'Persist Security Info = False ';
9.   Form1.ADOConnection1.Open;
10.   Form1.ADOQuery1.SQL.Text := aSql;
11.   Form1.ADOQuery1.Open;
12.   Form1.ClientDataSet1.Open;
13.   Result := Form1.ClientDataSet1.XMLData;
14.   CoUninitialize;
15. end;

编写DSServerClass的OnGetClass事件。

 

1. procedure TForm1.DSServerClass1GetClass(DSServerClass:TDSServerClass;
2.     var PersistentClass:TPersistentClass);
3. begin
4.   PersistentClass :=TServerDemo;
5. end;

好了，现在可以编译并执行Server程序。在Server启动着的情况下，进行Client的开发。
首先设计Client的界面，如下图所示：

 

 

注意把SqlServerMethod控件关联到SqlConnection控件上，并且SQlConnection控件的Driver属性设置为DataSnap。其他的数据组件按常规的方法进行关联即可。
编写Call按钮的事件，如下：

 

 

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

 

 

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

 

 

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