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 加持,快人一步