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;