mormot2 json操作
mormot2 json操作
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | procedure Tcrud. select ; var db: Tdb; pool: Tdbpool; jo: Tdocvariantdata; i: integer; begin jo.init; try try pool := GetDBPool(DBID); db := pool.Lock; for i := 0 to high(sqls) do begin DB. select (sqls[i]); jo.AddItem(_json(DB.qry.tojsonarraystring)); end; ctxt.SetOutJson(jo.ToJson); except on E: Exception do begin ctxt.SetOutJson(error(E.Message)); WriteLog( 'db.tables.crud.select()' + E.Message); end; end; finally pool.Unlock(db); end; end; |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | procedure Tcrud. select ; var db: Tdb; pool: Tdbpool; jo: variant; i: integer; begin Tdocvariant.NewFast(jo); try try pool := GetDBPool(DBID); db := pool.Lock; for i := 0 to high(sqls) do begin DB. select (sqls[i]); jo.r := _json(DB.qry.tojsonarraystring); //dataset-->json end; ctxt.SetOutJson(variantsavejson(jo)); except on E: Exception do begin ctxt.SetOutJson(error(E.Message)); WriteLog( 'db.tables.crud.select()' + E.Message); end; end; finally pool.Unlock(db); end; end; |
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/18370309
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· DeepSeek 开源周回顾「GitHub 热点速览」
· 物流快递公司核心技术能力-地址解析分单基础技术分享
· .NET 10首个预览版发布:重大改进与新特性概览!
· AI与.NET技术实操系列(二):开始使用ML.NET
· 单线程的Redis速度为什么快?
2022-08-20 GO基于结构的CRUD(PROTOBUF)
2022-08-20 go基于结构的CRUD(JSON)
2022-08-20 delphi基于结构的CRUD(JSON)
2022-08-20 delphi基于结构的CRUD(protobuf)
2022-08-20 go protobuf使用
2021-08-20 fundamentals5 protobuf使用
2021-08-20 REST 与 gRPC:API 之战