Bom dia Pessoal , sou novo aqui e tbm em json. Estou tentando fazer o hash do arquivo abaixo e nao to conseguindo , alguem pode dar um Help . Tenho seguindo os exemplos aqui , mas não sei onde posso estar errando:
{"retorno":{"status_processamento":"3","status":"OK","pagina":1,"numero_paginas":2,"pedidos":[{"pedido":{"id":"385460048","numero":"2","numero_ecommerce":"Extra-10175853102","data_pedido":"02\/06\/2016","data_prevista":"","nome":"14373-FRANCISCO ALESSANDRO FERREIRA","valor":127.22,"id_vendedor":"0","nome_vendedor":"","situacao":"Atendido","codigo_rastreamento":"","url_rastreamento":null}},{"pedido":{"id":"385291456","numero":"1","numero_ecommerce":"Extra-10176932501","data_pedido":"03\/06\/2016","data_prevista":"","nome":"14370-CARLOS ALBERTO DA SILVA","valor":92.77,"id_vendedor":"0","nome_vendedor":"","situacao":"Aprovado","codigo_rastreamento":"DW286367038BR","url_rastreamento":null}},{"pedido":{"id":"386057358","numero":"3","numero_ecommerce":"Extra-10191599201","data_pedido":"06\/06\/2016","data_prevista":"","nome":"WAGNER RODRIGUES BARBOSA","valor":126.06,"id_vendedor":"0","nome_vendedor":"","situacao":"Aprovado","codigo_rastreamento":"DW295588845BR","url_rastreamento":null}},{"pedido":{"id":"386343139","numero":"4","numero_ecommerce":"Extra-10191596101","data_pedido":"06\/06\/2016","data_prevista":"","nome":"bruno siqueira de oliveira","valor":125.55,"id_vendedor":"0","nome_vendedor":"","situacao":"Aprovado","codigo_rastreamento":"DW298075329BR","url_rastreamento":null}},{"pedido":{"id":"386631359","numero":"5","numero_ecommerce":"Extra-10203283402","data_pedido":"09\/06\/2016","data_prevista":"","nome":"Graziele Walzburger","valor":194.48,"id_vendedor":"0","nome_vendedor":"","situacao":"Aprovado","codigo_rastreamento":"DW301426637BR","url_rastreamento":null}},{"pedido":{"id":"386631395","numero":"6","numero_ecommerce":"Lojas Americanas-262637433701","data_pedido":"09\/06\/2016","data_prevista":"","nome":"Roberto Diogo Viegas","valor":148.15,"id_vendedor":"0","nome_vendedor":"","situacao":"Aprovado","codigo_rastreamento":"DW301426787BR","url_rastreamento":null}}]}}
cJSON := xtext // ( arquivo .json)
hJSON := {} // hb_hash()
hb_JSONDecode( cJSON, @hJSON )
quantos=len(hjson)
element:=0
FOR EACH element IN hJSON
xnome:=element ["pedidos","nome"]
msgbox( xnome ,"Nome")
NEXT
Se alguem puder me dar o caminho das pedras . agradeço muito.
Valeu !!!