一个多星期的审讯后,我感到很沮丧与的DataSnap。
今天,我又遇到了一个问题,
我的Android(Java)的客户需要从DataSnap服务器(XE6)的数据集,但服务器返回一个空的结果:
{ “结果”:[{ “表”:[]}]}
这里是服务器的代码:
function TServerMethods1.GetDataset(cmdstr: string): TDBXReader;
var
CMD: TDBXCommand;
begin
SQLConnection1.Open;
CMD := SQLConnection1.DBXConnection.CreateCommand;
CMD.CommandType := TDBXCommandTypes.DbxSQL;
CMD.Text := cmdstr;
if not CMD.IsPrepared then
CMD.Prepare;
Result := CMD.ExecuteQuery;
CMD.Free; // If this line is commented out, it will memory leaks and return an exception.
end;
[更新-----------------]
今天我改变了DB访问组件FireDAC:
{$METHODINFO ON}
TServerMethods1 = class(TDataModule)
Sqlite_demoConnection: TFDConnection;
FDQuery1: TFDQuery;
FDGUIxWaitCursor1: TFDGUIxWaitCursor;
FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink;
private
{ Private declarations }
public
{ Public declarations }
function EchoString(Value: string): string;
function ReverseString(Value: string): string;
function GetDataSet: TDataset;
end;
{$METHODINFO OFF}
function TServerMethods1.GetDataSet: TDataset;
begin
FDQuery1.SQL.Clear;
FDQuery1.SQL.Text := 'select EmployeeID, LastName, FirstName, BirthDate from Employees';
FDQuery1.Open();
Result := FDQuery1;
end;
德尔福的客户可以得到结果,并对其进行分析。 但是Java客户端(安卓)无法解析的结果:
DSRESTConnection aConn = new DSRESTConnection();
DSProxy.TServerMethods1 aProxy = new DSProxy.TServerMethods1(conn);
aConn.setHost("192.168.0.240");
aConn.setPort(8080);
aConn.setProtocol("http");
try {
TDataSet rd = aProxy.GetDataSet();
int FieldCount = rd.getColumns().size();
Log.i("FieldCount:", String.valueOf(FieldCount)); // get 4
//rd.reset();
while (rd.next()) // rd.next() get exception and return false
{
Log.i("EmployeeID", rd.getValue("EmployeeID").GetAsString());
Log.i("LastName", rd.getValue("LastName").GetAsString());
}
} catch (DBXException e) {
e.printStackTrace();
}
更新2 -------------------
OK,我可以得到结果。 谢谢MartynA和J__。
我发现为什么rd.next()返回false:
从服务器返回的数据集,包括时间字段 。 的DataSnap它转换为JSON:
"BirthDate":["1948-12-08.0","1952-02-19.0","1963-08-30.0"]
每日期值追加一个” .0" 的尾巴。 因此,Java可以不变换回日期类型:
com.embarcadero.javaandroid.DBXException: Unparseable date: "1948-12-08.0" (at offset 10)
然后,我添加了一个新的服务器的方法来测试返回TDateTime类型类型:
function TServerMethods1.GetDateTime: TDateTime;
begin
Result := int(Now);
end;
的DataSnap也把它到下面的风格:
{"result":["2014-06-27.0"]}
哦,我的上帝。 如何解决这一问题? 在服务器端? 在客户端?