lkJSON-Delphi下使用json数据格式

最新推荐文章于 2021-02-27 12:20:34 发布

jondynet

最新推荐文章于 2021-02-27 12:20:34 发布

阅读量5.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi / Win32SDK 文章标签： json delphi object string python

本文链接：https://blog.youkuaiyun.com/jondynet/article/details/4282786

Delphi / Win32SDK 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一个使用Delphi作为客户端与Python服务端进行JSON格式数据通信的项目案例。通过LKJSON库，演示了如何创建、解析JSON对象，并实现跨语言的数据交换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

之前的一个项目要用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.