Page 1 of 1

Consulta a un servidor

Posted: Sun Dec 10, 2023 10:24 am
by 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

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

Re: Consulta a un servidor

Posted: Sun Dec 10, 2023 11:18 am
by leandro
Se me ocurre que intentes de la siguiente manera a ver si te funciona.

Code: Select all | Expand

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 ... ciales.php

Re: Consulta a un servidor

Posted: Sun Dec 10, 2023 11:57 am
by 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

Re: Consulta a un servidor

Posted: Mon Dec 11, 2023 12:01 pm
by 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"

Re: Consulta a un servidor

Posted: Mon Dec 11, 2023 8:06 pm
by 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

HB_CDPSELECT( "ESWIN" )
already.
Hope you set the codepage earlier correctly.

Re: Consulta a un servidor

Posted: Sat Dec 16, 2023 9:05 am
by miarcod
Hola,

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

Code: Select all | Expand


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