\u670d\u52a1\u5668\u8981\u652f\u6301Http\u534f\u8bae\uff0c\u6253\u7b97\u91c7\u7528Http+JSON\u7684\u65b9\u5f0f\u6765\u4ea4\u6362\u6570\u636e\u3002\u4e00\u5f00\u59cb\u8003\u8651\u4f7f\u7528superobject\uff0c\u56e0\u4e3a\u4ee5\u524d\u4f7f\u7528\u6bd4\u8f83\u591a\uff0c\u6bd4\u8f83\u719f\u6089\u3002<\/p>\n
\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n
class function FDQueryToSJSON(aQuery : TFDQuery) : string;\r\n \r\n class function TFDQueryJSONReflect.FDQueryToSJSON(aQuery: TFDQuery): string;\r\n var\r\n sj,aj,sj2,aj2:ISuperObject;\r\n i:Integer;\r\n Fieldtyp,JsonTyp:string;\r\n List:TStringList;\r\n aField : TField;\r\n Fields : string;\r\n begin\r\n \/\/ \u5f97\u5230\u4e00\u4e2aJSON\u5bf9\u8c61\r\n sj := SO();\r\n \/\/\u521b\u5efa\u5217\r\n aj := SA([]);\r\n List := TStringList.Create;\r\n try\r\n List.Sorted := True;\r\n \r\n Fields := '{';\r\n for i := 0 to aQuery.FieldCount - 1 do\r\n begin\r\n sj2 := SO();\r\n GetFieldTypeInfo(aQuery.Fields[i],Fieldtyp,JsonTyp);\r\n \r\n sj2.S[cstFieldName] := aQuery.Fields[i].FieldName;\r\n sj2.S[cstFieldType] := Fieldtyp;\r\n sj2.S[cstJsonType] := JsonTyp;\r\n sj2.I[cstFieldSize] := aQuery.Fields[i].Size;\r\n sj2.B[cstRequired] := aQuery.Fields[i].Required;\r\n sj2.I[cstFieldIndex] := aQuery.Fields[i].Index;\r\n aj.AsArray.Add(sj2);\r\n List.Add(aQuery.Fields[i].FieldName+'='+JsonTyp);\r\n Fields := Fields+aQuery.Fields[i].FieldName+':'+'0'+',';\r\n end;\r\n Fields := Fields.TrimRight([',']);\r\n Fields := Fields+'}';\r\n \r\n sj.O['Fields'] := SO(Fields);\r\n sj.O['Cols'] := aj;\r\n \/\/\u521b\u5efa\u6570\u636e\u96c6\u7684\u6570\u636e\r\n aQuery.DisableControls;\r\n aQuery.First;\r\n \r\n aj2 := SA([]);\r\n while not aQuery.Eof do\r\n begin\r\n sj2 := SO();\r\n for i := 0 to List.Count - 1 do\r\n begin\r\n aField := aQuery.Fields.FindField(List.Names[i]);\r\n \r\n if VarIsNull(aField.Value) then\r\n sj2.O[aField.FieldName] := SO(Null)\r\n else\r\n begin\r\n CreateJsonValueByField(sj2,aField);\r\n end;\r\n end;\r\n aj2.AsArray.Add(sj2);\r\n aQuery.Next;\r\n end;\r\n \r\n sj.O['Data'] := aj2;\r\n Result := sj.AsString;\r\n finally\r\n List.Free;\r\n aQuery.EnableControls;\r\n end;\r\n end;\r\n<\/pre>\n <\/p>\n
class function CreateJsonValueByField(Json:ISuperObject;Field:TField):Boolean; overload;\r\n \r\n class function TFDQueryJSONReflect.CreateJsonValueByField(Json: ISuperObject;\r\n Field: TField): Boolean;\r\n begin\r\n Result := False;\r\n if (Field Is TDateTimeField) or (Field is TSQLTimeStampField) then\r\n Json.O[Field.FieldName] := SO(Field.AsDateTime)\r\n else if Field is TBlobField then\r\n Json.S[Field.FieldName] := EncodeString(Field.AsString)\r\n else\r\n Json.O[Field.FieldName] := SO(Field.Value);\r\n Result := True;\r\n end;<\/pre>\n\u8fd9\u6837\u5199\uff0c\u6ca1\u95ee\u9898\uff0c\u53ef\u4ee5\u5f97\u5230\u7ed3\u679c\uff0c\u4f46\u662f\u6211\u89c9\u5f97\u5197\u4f59\u7684\u6570\u636e\u6bd4\u8f83\u591a\uff0c\u6709\u4e9b\u4fe1\u606f\u662f\u4e0d\u9700\u8981\u6bcf\u884c\u90fd\u8fd4\u56de\u7684\u3002\u6bd4\u5982\u5b57\u6bb5\u540d\uff0c\u6bcf\u6761\u8bb0\u5f55\u90fd\u8fd4\u56de\u4e86\u3002<\/p>\n
\u4f46\u662f\u5f53\u6211\u60f3\u53bb\u6389Data\u7684\u5b57\u6bb5\u540d\u65f6\uff0c\u624d\u6ce8\u610f\u5230JSON\u4e32\u91cc\u9762\u7684\u987a\u5e8f\u548c\u5b57\u6bb5\u7684\u987a\u5e8f\u5c45\u7136\u4e0d\u662f\u4e00\u81f4\u7684\uff0c\u65e0\u8bba\u6211\u600e\u4e48\u63d2\u5165\uff0c\u53ea\u8981\u662f\u7528SuperObject\u7684\u63a5\u53e3\u53bb\u751f\u6210JSON\u4e32\uff0c<\/p>\n
\u987a\u5e8f\u90fd\u4f1a\u88ab\u81ea\u52a8\u6309\u7167\u4e00\u79cd\u6211\u76ee\u524d\u6ca1\u7406\u89e3\u7684\u65b9\u5f0f\u6392\u5e8f\u3002\u9664\u975e\u6211\u81ea\u5df1\u7528\u5b57\u7b26\u4e32\u53bb\u62fc\u88c5JSON\u4e32\u3002<\/p>\n
\u8be5\u65b9\u6cd5\u5f97\u5230\u7684\u7ed3\u679c\u5982\u4e0b\uff1a<\/p>\n
{\"Fields\":{\"base_schema_ver\":0,\"sysstat\":0,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":0,\"refdate\":0,\"userstat\":0,\"status\":0,\"crdate\":0,\"xtype\":0,\"indexdel\":0,\"version\":0,\"id\":0,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":0,\"name\":0,\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":0,\"instrig\":0},\"Data\":[{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761910,\"userstat\":1,\"status\":0,\"crdate\":1270198761910,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":3,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysrscols\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761277,\"userstat\":1,\"status\":0,\"crdate\":1270198761277,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":5,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysrowsets\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761273,\"userstat\":1,\"status\":0,\"crdate\":1270198761273,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":7,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysallocunits\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1049764417267,\"userstat\":1,\"status\":0,\"crdate\":1049764417267,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":8,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysfiles1\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198762227,\"userstat\":1,\"status\":0,\"crdate\":1270198762227,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":17,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"syspriorities\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761840,\"userstat\":1,\"status\":0,\"crdate\":1270198761840,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":18,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysdbfrag\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761853,\"userstat\":1,\"status\":0,\"crdate\":1270198761853,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":19,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysfgfrag\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761847,\"userstat\":1,\"status\":0,\"crdate\":1270198761847,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":21,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"syspru\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761850,\"userstat\":1,\"status\":0,\"crdate\":1270198761850,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":22,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysbrickfiles\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761857,\"userstat\":1,\"status\":0,\"crdate\":1270198761857,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":23,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysphfg\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761860,\"userstat\":1,\"status\":0,\"crdate\":1270198761860,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":24,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysprufiles\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761360,\"userstat\":1,\"status\":0,\"crdate\":1270198761360,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":25,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysftinds\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761357,\"userstat\":1,\"status\":0,\"crdate\":1270198761357,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":27,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysowners\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761300,\"userstat\":1,\"status\":0,\"crdate\":1270198761300,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":28,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysdbreg\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761267,\"userstat\":1,\"status\":0,\"crdate\":1270198761267,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":29,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysprivs\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761323,\"userstat\":1,\"status\":0,\"crdate\":1270198761323,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":34,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysschobjs\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761520,\"userstat\":1,\"status\":0,\"crdate\":1270198761520,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":39,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"syslogshippers\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761337,\"userstat\":1,\"status\":0,\"crdate\":1270198761337,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":41,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"syscolpars\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761313,\"userstat\":1,\"status\":0,\"crdate\":1270198761313,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":42,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysxlgns\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0},{\"base_schema_ver\":0,\"sysstat\":1,\"deltrig\":0,\"parent_obj\":0,\"schema_ver\":0,\"uid\":4,\"refdate\":1270198761307,\"userstat\":1,\"status\":0,\"crdate\":1270198761307,\"xtype\":\"S\",\"indexdel\":0,\"version\":0,\"id\":43,\"stats_schema_ver\":0,\"seltrig\":0,\"type\":\"S\",\"name\":\"sysxsrvs\",\"info\":0,\"cache\":0,\"replinfo\":0,\"updtrig\":0,\"ftcatid\":0,\"category\":2,\"instrig\":0}],\"Cols\":[{\"JsonType\":\"string\",\"FieldIndex\":0,\"FieldType\":\"WideString\",\"FieldSize\":128,\"FieldName\":\"name\",\"Required\":true},{\"JsonType\":\"integer\",\"FieldIndex\":1,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"id\",\"Required\":true},{\"JsonType\":\"string\",\"FieldIndex\":2,\"FieldType\":\"String\",\"FieldSize\":2,\"FieldName\":\"xtype\",\"Required\":true},{\"JsonType\":\"integer\",\"FieldIndex\":3,\"FieldType\":\"Smallint\",\"FieldSize\":0,\"FieldName\":\"uid\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":4,\"FieldType\":\"Smallint\",\"FieldSize\":0,\"FieldName\":\"info\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":5,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"status\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":6,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"base_schema_ver\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":7,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"replinfo\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":8,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"parent_obj\",\"Required\":true},{\"JsonType\":\"variant\",\"FieldIndex\":9,\"FieldType\":\"TimeStamp\",\"FieldSize\":0,\"FieldName\":\"crdate\",\"Required\":true},{\"JsonType\":\"integer\",\"FieldIndex\":10,\"FieldType\":\"Smallint\",\"FieldSize\":0,\"FieldName\":\"ftcatid\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":11,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"schema_ver\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":12,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"stats_schema_ver\",\"Required\":false},{\"JsonType\":\"string\",\"FieldIndex\":13,\"FieldType\":\"String\",\"FieldSize\":2,\"FieldName\":\"type\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":14,\"FieldType\":\"Smallint\",\"FieldSize\":0,\"FieldName\":\"userstat\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":15,\"FieldType\":\"Smallint\",\"FieldSize\":0,\"FieldName\":\"sysstat\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":16,\"FieldType\":\"Smallint\",\"FieldSize\":0,\"FieldName\":\"indexdel\",\"Required\":false},{\"JsonType\":\"variant\",\"FieldIndex\":17,\"FieldType\":\"TimeStamp\",\"FieldSize\":0,\"FieldName\":\"refdate\",\"Required\":true},{\"JsonType\":\"integer\",\"FieldIndex\":18,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"version\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":19,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"deltrig\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":20,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"instrig\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":21,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"updtrig\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":22,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"seltrig\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":23,\"FieldType\":\"Integer\",\"FieldSize\":0,\"FieldName\":\"category\",\"Required\":false},{\"JsonType\":\"integer\",\"FieldIndex\":24,\"FieldType\":\"Smallint\",\"FieldSize\":0,\"FieldName\":\"cache\",\"Required\":false}]}<\/pre>\n\u770b\u5230\u6ca1\uff1fCols\u548cData\u7684\u5b57\u6bb5\u987a\u5e8f\u662f\u4e0d\u4e00\u81f4\u7684\uff01Fields\u662f\u6211\u5728\u5faa\u73af\u91cc\u9762\u7528\u5b57\u7b26\u4e32\u62fc\u88c5\u7684\uff08\u6700\u5f00\u59cb\u4e0d\u662f\u8fd9\u6837\u5199\u7684\uff0c\u6211\u4ee5\u4e3a\u6211\u624b\u5de5\u62fc\u88c5\u53ef\u4ee5\u5f97\u5230\u9884\u671f\u7684\u987a\u5e8f\uff0c\u4f46\u662f\u56e0\u4e3a\u7528\u4e86\u00a0SO(Fields) \u5f97\u5230JSON<\/p>\n
\u4e32\uff0c\u6240\u4ee5\u987a\u5e8f\u4f9d\u7136\u548cCols\u4fdd\u6301\u4e86\u4e00\u81f4\uff0c\u800c\u8fd9\u4e2a\u987a\u5e8f\u4e0d\u662f Select \u8bed\u53e5\u7684\u5f97\u5230\u6570\u636e\u96c6\u7684\u5b57\u6bb5\u987a\u5e8f\uff08\u8c03\u8bd5\u7684\u65f6\u5019\uff0c\u5305\u62ec\u5f97\u5230\u7684\u8fd0\u884c\u65f6\u7684\u5b57\u7b26\u4e32\u7684\u5185\u5bb9\u90fd\u548c\u6570\u636e\u96c6\u662f\u4e00\u81f4\u7684\uff0c\u4f46\u4e00\u65e6\u751f\u6210\u4e3aJSON\u4e32<\/p>\n
\u4ee5\u540e\uff0c\u987a\u5e8f\u5c31\u6539\u53d8\u4e86\u3002\uff09\u3002<\/p>\n
\u4e8e\u662f\uff0c\u6211\u51b3\u5b9a\u7528QJSON\u53bb\u5c1d\u8bd5\u4e00\u4e0b\uff0cQJSON\u5f97\u5230\u7684\u7ed3\u679c\u987a\u5e8f\u548c\u6211\u9884\u671f\u662f\u4e00\u81f4\u7684\u3002<\/p>\n
\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n
class function FDQueryToQJSON(aQuery : TFDQuery) : string;\r\n\r\n class function TFDQueryJSONReflect.FDQueryToQJSON(aQuery: TFDQuery): string;\r\n var\r\n i:Integer;\r\n Fieldtyp,JsonTyp:string;\r\n List:TStringList;\r\n aField : TField;\r\n aqjsonall, aqjson,aqjson2, aqFields, aqjsonTemp : TQJSON;\r\n begin\r\n aqjsonall := TQJSON.Create;\r\n aqjson := aqjsonall.AddArray('Cols');\r\n List := TStringList.Create;\r\n try\r\n List.Sorted := False;\r\n \r\n aqFields := aqjsonall.AddArray(cstFields);\r\n\r\n for i := 0 to aQuery.FieldCount - 1 do\r\n begin\r\n aqjsonTemp := TQJson.Create;\r\n \r\n GetFieldTypeInfo(aQuery.Fields[i],Fieldtyp,JsonTyp);\r\n \r\n aqjsonTemp.AddVariant(cstFieldName,aQuery.Fields[i].FieldName);\r\n aqjsonTemp.AddVariant(cstFieldType,Fieldtyp);\r\n aqjsonTemp.AddVariant(cstJsonType,JsonTyp);\r\n aqjsonTemp.AddVariant(cstFieldSize, aQuery.Fields[i].Size);\r\n aqjsonTemp.AddVariant(cstRequired, aQuery.Fields[i].Required);\r\n aqjsonTemp.AddVariant(cstFieldIndex, aQuery.Fields[i].Index);\r\n \r\n aqjson.Add(aqjsonTemp);\r\n List.Add(aQuery.Fields[i].FieldName+'='+JsonTyp);\r\n \r\n aqFields.Add.AsString := aQuery.Fields[i].FieldName;\r\n end;\r\n \r\n \/\/\u521b\u5efa\u6570\u636e\u96c6\u7684\u6570\u636e\r\n aQuery.DisableControls;\r\n aQuery.First;\r\n \r\n aqjson2 := aqjsonall.AddArray(cstData);\r\n \r\n while not aQuery.Eof do\r\n begin\r\n aqjsonTemp := aqjson2.AddArray('DataItem');\r\n for i := 0 to List.Count - 1 do\r\n begin\r\n aField := aQuery.Fields.FindField(List.Names[i]);\r\n \r\n if VarIsNull(aField.Value) then\r\n aqjsonTemp.Add.AsString := SO(Null).AsString\r\n else\r\n begin\r\n CreateJsonValueByField(aqjsonTemp,aField);\r\n end;\r\n end;\r\n aQuery.Next;\r\n end;\r\n Result := aqjsonall.AsString; 61 finally\r\n List.Free;\r\n aQuery.EnableControls;\r\n aqjsonall.Free;\r\n end;\r\n end;<\/pre>\n <\/p>\n
class function CreateJsonValueByField(Json:TQJSON;Field:TField):Boolean; overload;\r\n \r\n class function TFDQueryJSONReflect.CreateJsonValueByField(Json: TQJSON;\r\n Field: TField): Boolean;\r\n begin\r\n Result := False;\r\n if (Field Is TDateTimeField) or (Field is TSQLTimeStampField) then\r\n Json.Add.AsString := FormatdateTime('yyyy-MM-dd hh:mm:ss', Field.AsDateTime)\r\n else if Field is TBlobField then\r\n Json.add.AsString := EncodeString(Field.AsString)\r\n else\r\n Json.Add.AsVariant := Field.Value;\r\n Result := True;\r\n end;<\/pre>\n\u5f97\u5230\u7684\u7ed3\u679c\u5982\u4e0b\uff1a<\/p>\n
{ \"Cols\":[ { \"FieldName\":\"name\", \"FieldType\":\"WideString\", \"JsonType\":\"string\", \"FieldSize\":128, \"Required\":true, \"FieldIndex\":0 }, { \"FieldName\":\"id\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":true, \"FieldIndex\":1 }, { \"FieldName\":\"xtype\", \"FieldType\":\"String\", \"JsonType\":\"string\", \"FieldSize\":2, \"Required\":true, \"FieldIndex\":2 }, { \"FieldName\":\"uid\", \"FieldType\":\"Smallint\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":3 }, { \"FieldName\":\"info\", \"FieldType\":\"Smallint\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":4 }, { \"FieldName\":\"status\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":5 }, { \"FieldName\":\"base_schema_ver\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":6 }, { \"FieldName\":\"replinfo\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":7 }, { \"FieldName\":\"parent_obj\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":true, \"FieldIndex\":8 }, { \"FieldName\":\"crdate\", \"FieldType\":\"TimeStamp\", \"JsonType\":\"variant\", \"FieldSize\":0, \"Required\":true, \"FieldIndex\":9 }, { \"FieldName\":\"ftcatid\", \"FieldType\":\"Smallint\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":10 }, { \"FieldName\":\"schema_ver\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":11 }, { \"FieldName\":\"stats_schema_ver\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":12 }, { \"FieldName\":\"type\", \"FieldType\":\"String\", \"JsonType\":\"string\", \"FieldSize\":2, \"Required\":false, \"FieldIndex\":13 }, { \"FieldName\":\"userstat\", \"FieldType\":\"Smallint\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":14 }, { \"FieldName\":\"sysstat\", \"FieldType\":\"Smallint\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":15 }, { \"FieldName\":\"indexdel\", \"FieldType\":\"Smallint\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":16 }, { \"FieldName\":\"refdate\", \"FieldType\":\"TimeStamp\", \"JsonType\":\"variant\", \"FieldSize\":0, \"Required\":true, \"FieldIndex\":17 }, { \"FieldName\":\"version\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":18 }, { \"FieldName\":\"deltrig\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":19 }, { \"FieldName\":\"instrig\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":20 }, { \"FieldName\":\"updtrig\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":21 }, { \"FieldName\":\"seltrig\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":22 }, { \"FieldName\":\"category\", \"FieldType\":\"Integer\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":23 }, { \"FieldName\":\"cache\", \"FieldType\":\"Smallint\", \"JsonType\":\"integer\", \"FieldSize\":0, \"Required\":false, \"FieldIndex\":24 } ], \"Fields\":[\"name\",\"id\",\"xtype\",\"uid\",\"info\",\"status\",\"base_schema_ver\",\"replinfo\",\"parent_obj\",\"crdate\",\"ftcatid\",\"schema_ver\",\"stats_schema_ver\",\"type\",\"userstat\",\"sysstat\",\"indexdel\",\"refdate\",\"version\",\"deltrig\",\"instrig\",\"updtrig\",\"seltrig\",\"category\",\"cache\"], \"Data\":[ [\"sysrscols\",3,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysrowsets\",5,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysallocunits\",7,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysfiles1\",8,\"S\",4,0,0,0,0,0,\"2003-04-08 09:13:37\",0,0,0,\"S\",1,1,0,\"2003-04-08 09:13:37\",0,0,0,0,0,2,0], [\"syspriorities\",17,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:22\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:22\",0,0,0,0,0,2,0], [\"sysdbfrag\",18,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysfgfrag\",19,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"syspru\",21,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysbrickfiles\",22,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysphfg\",23,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysprufiles\",24,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysftinds\",25,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysowners\",27,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysdbreg\",28,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysprivs\",29,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysschobjs\",34,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"syslogshippers\",39,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"syscolpars\",41,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysxlgns\",42,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0], [\"sysxsrvs\",43,\"S\",4,0,0,0,0,0,\"2010-04-02 16:59:21\",0,0,0,\"S\",1,1,0,\"2010-04-02 16:59:21\",0,0,0,0,0,2,0] ] }<\/pre>\n\u53ef\u4ee5\u770b\u5230\uff0c\u6570\u636e\u91cf\u660e\u663e\u51cf\u5c11\uff0c\u800c\u4e14\u5e76\u4e0d\u5f71\u54cd\u6570\u636e\u7684\u89e3\u6790\u3002\u56e0\u4e3aData\u6570\u7ec4\u91cc\u9762\u7684\u6bcf\u6761\u8bb0\u5f55\uff08\u4e5f\u662f\u6570\u7ec4\uff09\u662f\u548c\u5b57\u6bb5\u4fe1\u606f\u7684\u987a\u5e8f\u4e00\u81f4\u7684\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u670d\u52a1\u5668\u8981\u652f\u6301Http\u534f\u8bae\uff0c\u6253\u7b97\u91c7\u7528Htt […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[69,8,7],"tags":[42,199,198,47],"class_list":["post-1347","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-qjson","tag-json","tag-tdataset","tag-198","tag-47"],"views":8290,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1347","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1347"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1347\/revisions"}],"predecessor-version":[{"id":1348,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1347\/revisions\/1348"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1347"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1347"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1347"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}