A partir da versão "20.3.1.1" do Appserver

Método que possibilita a leitura de um arquivo JSON gravando seu conteúdo no objeto.
Se o objeto JSON já possuir conteúdo, e seu valor é eliminado ( truncado em 0 bytes ).
Caso a operação seja executada com sucesso, a função retornará NIL, caso contrário é retornado uma string descrevendo o erro ocorrido na execução do método.

Sintaxe

jsonObject:fromJsonFile( < cArquivo > )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cArquivo	Caractere	Indica a localização e o nome do arquivo	X

Retorno

Nome	Tipo	Descrição
xReturn	Caractere ou Nil	Retorna NIL quando a operação foi efetuada com sucesso. Caso contrário retornará uma string descrevendo o erro ocorrido.

Observações

No parâmetro cArquivo deve ser indicado a localização(path/caminho) e o nome do arquivo. Quando utilizado o um path relativo a busca será feita a partir do "rootpath" do Appserver. Quando utilizado o path absoluto, a busca será feita utilizando a localização informada a partir do ambiente local do cliente.

Exemplos

# include tlpp-core.th

function u_capturaJsonFile()

local cPathAndFile 	:= 'C:\tlppcore\fromjsonfile.txt'
local oJsonObject  	:= JSONObject():New()
local xReturn		:= Nil

xReturn := oJsonObject:fromJsonFile(cPathAndFile)

if valType(xReturn) == "U"
	conout("Arquivo: "+cPathAndFile+" lido com sucesso")
else
	conout("Erro: "+cValToChar(xReturn)+" na leitura do arquivo: "+cPathAndFile)
endif

freeObj(oJsonObject)

return

Saiba mais sobre JsonObject:
JsonObject TL++