No se reconocen los acentos en respuesta web service

[leandro]

Hola buenos días para todos, nos conectamos a un web service, el cual en su respuesta nos devuelve una cadena la cual contiene acentos, pero no logro hacer que se vean de manera correcta, el problema se presenta a momento de convertir la cadena en formato json en un hash.

Code: Select all  Expand view

//Como viene la cadena
{"error":"","autorizado":true,"respuesta":[{"codigo":"030","nombre":"Aceptaci\u00f3n T\u00e1cita","descripcion":"Acuse de recibo de Factura Electr\u00f3nica de Venta","fecha":"2022-08-05","hora":"18-13-41-05:00"}]}

hb_jsondecode(response ,@::respuesta ) //Cuando lo convertimos cambia la cadena
       
//Asi queda la cadena al momento de recuperar la variable
cResp := "Acuse de recibo de Factura Electr?nica de Venta"

//Le aplique todas estas opciones pero ninguna funciona
msginfo( HB_OemToAnsi(cResp ) )
msginfo( hb_oemtoansi( hb_utf8tostr( cResp ) ) )
msginfo( hb_utf8tostr( cResp ) )

 

De antemano gracias

[karinha]

Code: Select all  Expand view

#Include "Fivewin.ch"

FUNCTION Main()

   HB_SETCODEPAGE( "UTF8" )

   MsgStop( cResp )

RETURN NIL
 

Regards, saludos.

[cnavarro]

Leandro, trata de aplicar una function "URLDECODE" a tu respuesta antes de pasarlo a HASH
Hay varias versiones sobre ellas, por ejemplo busca por hb_UrlDecode

[leandro]

Amigo Cristóbal, muchas gracias por responder

Pero intente usar las funciones pero parece que en xharbour, no funcionan.

[cnavarro]

Leandro, hay una versión en Mod-Harbour, cógelas y ponlas en tu código