FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Consulta a un servidor
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
Consulta a un servidor
Posted: Sun Dec 10, 2023 10:24 AM
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 (fw): Select all Collapse
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
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Consulta a un servidor
Posted: Sun Dec 10, 2023 11:18 AM
Se me ocurre que intentes de la siguiente manera a ver si te funciona.
Code (fw): Select all Collapse
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
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
Re: Consulta a un servidor
Posted: Sun Dec 10, 2023 11:57 AM
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
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Consulta a un servidor
Posted: Mon Dec 11, 2023 12:01 PM

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"

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Consulta a un servidor
Posted: Mon Dec 11, 2023 08:06 PM
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 (fw): Select all Collapse
HB_CDPSELECT( "ESWIN" )
already.
Hope you set the codepage earlier correctly.
Regards



G. N. Rao.

Hyderabad, India
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
Re: Consulta a un servidor
Posted: Sat Dec 16, 2023 09:05 AM
Hola,

Gracias por las respuestas, he probado todo lo que se me indicáis pero no lo consigo
Code (fw): Select all Collapse
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

Continue the discussion