JSON array in Delphi -
i have place json string http request's body. 1 of string value must json array. how tried:
uses dbxjson; const ccontent = 'hello world'; var ljsonobject: tjsonobject; x: tbytes; i: integer; temp: string; begin ljsonobject:= tjsonobject.create; ljsonobject.addpair('id1', 'value1'); ljsonobject.addpair('id2', 'value2'); ljsonobject.addpair('id2', 'value3'); x:= tencoding.ansi.getbytes(ccontent); temp:= ''; := 0 length(x) - 1 temp:= temp + inttostr(x[i]) + ','; delete(temp, length(temp), 1); ljsonobject.addpair('id4', '[' + temp + ']'); showmessage(ljsonobject.tostring); end;
this 1 not working, because value encapsulated in double quotes. proper way pass array value jsonobject?
you passing string rather array. hence result observe. rule, if find assembling json manually, doing wrong.
pass array:
var arr: tjsonarray; b: byte; .... arr := tjsonarray.create; b in tencoding.ansi.getbytes(ccontent) arr.add(b); ljsonobject.addpair('id4', arr);
Comments
Post a Comment