lkJSON-Delphi下使用json数据格式

之前的一个项目要用delphi 做客户端与 python的服务端通信，

之间传输的数据格式为 json 。这里用到 lkJSON这个 delphi 处理json的库。

下边贴下使用方法

program sample1; {$APPTYPE CONSOLE} uses SysUtils, uLkJSON in 'uLkJSON.pas'; var js:TlkJSONobject; ws: TlkJSONstring; s: String; i: Integer; begin js := TlkJSONobject.Create; // js.add('namestring', TlkJSONstring.Generate('namevalue')); js.Add('namestring','namevalue'); // get the text of object s := TlkJSON.GenerateText(js); writeln(s); writeln; writeln('more readable variant:'); // (ver 1.03+) generate readable text i := 0; s := GenerateReadableText(js,i); writeln(s); js.Free; // restore object (parse text) js := TlkJSON.ParseText(s) as TlkJSONobject; // and get string back // old syntax ws := js.Field['namestring'] as TlkJSONstring; s := ws.Value; writeln(s); // syntax of 0.99+ s := js.getString('namestring'); writeln(s); readln; js.Free; end.