Back into delphi7…<\/p>\n
Needing to transfer some data over the net from a server to my delphi application, it seemed like a good idea to use JSON and according to json.org<\/a> there are no less than three libraries for parsing json in delphi. The first one webstart \/ Delphi web utils<\/a> looked pretty good, but all documentation and examples was in Spanish… Well, learning Spanish is no bad plan, but not today. <\/p>\n The next one, JSON Delphi Library, uLkJSON<\/a> seemed a bit more simple. No documentation but a few examples – of which none covered arrays which I needed to use…<\/p>\n At last, JSON superobject<\/a> seemed to have everything, but didn’t compile under delphi 7. <\/p>\n Well, then, use the source, Luke,<\/p>\n Digging through the source of uLkJSON, i managed at least to dig information out of the arrays I had put up. Having a form with a Memo named Memo1, this lists the names and values of the arrays into the Memo:<\/p>\n Not too hard, — if it just had been some documentation or an example on this, that would have saved me a day. Hopefully this saves a day for someone else.<\/p>\n","protected":false},"excerpt":{"rendered":" Back into delphi7… Needing to transfer some data over the net from a server to my delphi application, it seemed like a good idea to use JSON and according to json.org there are no less than three libraries for parsing … Continue reading \r\nprocedure listarray(returnval: string);\r\nvar\r\n systems : TStrings;\r\n returnval: string;\r\n json,item:TlkJSONbase;\r\n i,j: integer;\r\n list: TlkJSONObject;\r\nbegin\r\n json:= TlkJSON.ParseText(returnval);\r\n for i:=0 to pred(json.Count) do begin\r\n item:=TlkJSONObject(json).child[i]; \r\n\/\/ This is the named array, name in name, the array in Objvalue\r\n Memo1.Lines.Add(TlkJSONobjectmethod(item).Name);\r\n list:=TlkJSONobject(TlkJSONobjectmethod(item).Objvalue);\r\n{ list is the array it self. This may be too much jiggling back and forth between object types, but at least it works...}\r\n for j := 0 to pred(TlkJSONobject(list).count) do\r\n Memo1.Lines.add('->'+tlkJSONlist(list).Child[j].Value);\r\n end;\r\n end;\r\nend;\r\n<\/pre>\n