TDocVariantData解析JSON

Posted 咏南中间件和开发框架

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了TDocVariantData解析JSON相关的知识,希望对你有一定的参考价值。

TDocVariantData解析JSON

var
json: RawUTF8;
doc: TDocVariantData;
i: integer;
begin
DataBase := TOleDBMSSQLConnectionProperties.Create(‘127.0.0.1,8829‘, ‘yndb‘, ‘sa‘, ‘sa‘);
// DBServer := TSQLDBServerHttpApi.Create(DataBase, ‘jj‘, ‘6789‘, ‘admin‘, ‘admin‘, False, 8, nil, tmThreadPool);
qry:=TQuery.Create(DataBase.ThreadSafeConnection);
qry.Close;
qry.SQL.Clear;
qry.SQL.Add(‘select top 100 * from t2‘);
qry.Open;
json := qry.PreparedSQLDBStatement.FetchAllAsJSON(True);
qry.Free;
// DataSource1.DataSet := JSONToClientDataSet(Self, json);
doc.InitJSONInPlace(Pointer(json), JSON_OPTIONS_FAST_STRICTJSON);
json := ‘‘;
for i := 0 to doc.Count-1 do begin
Memo1.Lines.Add(doc.Values[i].c1);
end;




















以上是关于TDocVariantData解析JSON的主要内容,如果未能解决你的问题,请参考以下文章