DataSnap与JSON序列化（1）

delphi12开始提供JSON支持。我在delphi15测试datasnap REST服务器。

先看看JSON序列化的能力：

type TtmObject=class private FName: string; FAge: integer; FBirthday: TDate; FSchool:Variant; FClasses: TClassArray; {published property Name:string read FName; property Age:integer read FAge; property Birthday:TDate read FBirthday; property School:Variant read FSchool; property Classes:TClassArray read FClasses;} end; procedure TForm1.Button3Click(Sender: TObject); var J:TJSONObject; P:TJSONPair; A:TJSONArray; B:TBytes; S:string; JM:TJSONMarshal; JUM:TJSONUnMarshal; O:TtmObject; V:TJSONValue; begin JM:=TJSONMarshal.Create; O:=TtmObject.Create; O.FName:='wxh'; O.FAge:=35; O.FSchool:=VarArrayOf(['wxh',23]); SetLength(O.FClasses,3); O.FClasses[0]:='shanghai'; O.FClasses[1]:='chongqing'; O.FClasses[2]:='beijing'; O.FBirthday:=StrToDate('1973/11/29'); V:=JM.Marshal(O); S:=V.ToString; ShowMessage(S); V.Free; O.Free; JM.Free; JUM:=TJSONUnMarshal.Create; J:=TJSONObject.Create; J.Parse(TEncoding.ASCII.GetBytes(S),0); O:=TtmObject(JUM.Unmarshal(J)); J.Free; JUM.Free; ShowMessage(DateToStr(O.FBirthday)); O.Free; end;

RTTI很强大了，连Private部分的也进入了RTTI，而且不用调用RegisterClass(TtmObject)，在反序列化时也能创建出TtmObject元件。

还是不支持Variant类型，如果自己需要，需要修改DBXJSONReflect.pas的MarshalSimpleField函数，遗憾的是这些函数都不是虚函数，否则可以继承。当然，理论上你不需要支持variant，完全可以用Object作为property，即以嵌套的形式实现异质资料的组合效果。

我注意到序列化后的结果：{"type":"UnitClient.TtmObject","id":1,"fields":{"FName":"wxh","FAge":35,"FBirthday":26997,"FClasses":["shanghai","chongqing","beijing"]}}

其中日期类型是编码为JSON的Number，不同语言的日期起点可能不一样，所以如果跨语言使用，这里需要注意。

但是，我发现在ServerMethod中如果返回TDateTime，却是以string来编码的，如：

function TERP_Order.GetServerTime: TDateTime; begin Result:=Now; end; 客户端通过http get调用结果 {"result":["2010-10-12 08:22:27.633"]}

注意TJSONARRAY的destroy，每个Element预设会被释放：

constructor TJSONAncestor.Create; begin inherited Create; FOwned := True; end; destructor TJSONArray.Destroy; var Element: TJSONAncestor; I: Integer; begin if FElements <> nil then begin for i := 0 to FElements.Count - 1 do begin Element := TJSONAncestor(FElements[I]); if Element.GetOwned then Element.Free; end; FreeAndNil(FElements); end; inherited Destroy; end;

因此需要当心，创建了TJSONValue然后加到JSONArray后，不要再自己释放，如果自己要释放，那么加入前先把Owned置为false。

所以在ServerMethod处理CallBack的时候，同样要注意这个问题：

function TERP_Order.TestCallBack(ACallback: TDBXCallback): string; var S:TJSONString; begin //Result:=ACallback.ClassName; Result:=TDBXCallbackDelegate(ACallback).Delegate.ClassName; S:=TJSONString.Create('Hello'); try //S.Owned:=false; ACallback.Execute(S); finally //S.Free; //会自己释放 end; end;

应该自己用try finally来释放比较安全，因为难保在ACallBack.Execute里面，在释放你的S前出现Exception，那么就会出现内存泄漏了，因此我建议Delphi不要这样处理，留下陷阱，要么是完整的垃圾回收，要么让程序员自己回收。

CallBack功能很棒，原来在DCOM的时候有CallBack，WebService的时候又没有了。

另一个问题是，如果使用http get，当ServerMethod出现av错误时，客户端得不到明确的错误信息，只会得到：

HTTP/1.1 500 Internal Server Error.