Consulta a un servidor

[miarcod]

Hola a todos:

Sigo con haciendo pruebas para la comunicación con un servidor REST

Ahora el problema que no doy solucionado es el siguiente
Si hago una consulta del estilo

Code: Select all  Expand view

cUrl := "https://www.zohoapis.eu/crm/v5/Contacts/search?fields=Last_Name,Account_Name,Email,Phone,Mobile,Cargo&criteria=(Account_Name:equals:LAGARIÑOS)"

xDoc := CreateObject( "MSXML2.DOMDocument" )
ohttp := CreateObject( "MSXML2.XMLHTTP" )
ohttp:Open( "GET" , cUrl, .f.)
...
 

Si la ejecuto dese mi programa obtengo un error, pero si la ejecuto desde postman si obtengo los resultados esperados
He descubierto que si cambio la Ñ por una N si obtengo respuesta, pero con se como enviar esa Ñ al servidor y que la acepte
Supongo que tendré que convertir la cadena con alguna función

Ya he probado con HB_StrToUTF8(cUr ) pero tampoco funciona


Gracias

[leandro]

Se me ocurre que intentes de la siguiente manera a ver si te funciona.

Code: Select all  Expand view

cUrl := "https://www.zohoapis.eu/crm/v5/Contacts/search?fields=Last_Name,Account_Name,Email,Phone,Mobile,Cargo&criteria=(Account_Name:equals:LAGARIÑOS)"
 

https://disenowebakus.net/domine-html-y-dhtml-secuencias-especiales.php

[miarcod]

Gracias

Eso ya lo había probado y no me funciona
De hecho si sustituyo la eñe por una ene el servidor responde

Lo que me despista es que desde POSTMAN si se puede enviar la eñe y funcione correctamente.

Gracias de nuevo

[cmsoft]

Podria ser una incopatibilidad entre tu set de caracteres y el que espera el servidor
Prueba envair en el content type el set: Algo asi: "Content-Type: application/x-www-form-urlencoded; charset=utf-8"

[nageswaragunupudi]

I have already tried with HB_StrToUTF8(cUr ) but it doesn't work either

HB_StrToUtf8(cUr) works as expected only if you set

Code: Select all  Expand view

HB_CDPSELECT( "ESWIN" )

already.
Hope you set the codepage earlier correctly.

[miarcod]

Hola,

Gracias por las respuestas, he probado todo lo que se me indicáis pero no lo consigo

Code: Select all  Expand view

HB_CDPSELECT("ESWIN")
cName := Hb_StrToUTF8(Alltrim(UPPER(::cCtaNombre)) )

curl := "https://www.zohoapis.eu/crm/v5/Accounts/search?fields=Account_Name,Phone,Account_Number&criteria=((Account_Name:equals:" + cName + "))"


xDoc := CreateObject( "MSXML2.DOMDocument" )
ohttp := CreateObject( "MSXML2.XMLHTTP" )
ohttp:Open( "GET" , cUrl, .f.)
oHttp:SetRequestHeader("Authorization", "Zoho-oauthtoken " + ::cAccess_token)
oHttp:SetRequestHeader("Content-Type" , "application/json; charset=utf-8")
oHttp:SetRequestHeader("Content-Type" , "application/x-www-form-urlencoded; charset=utf-8")

 

Alguna otra sugerencia