Page 1 of 1

Interactuar con una REST api

Posted: Tue May 21, 2019 3:39 am
by Claudio C
Estimados:

Debo interactuar con una API_REST.
Luego de semanas logre 'leer' con el siguiente ejemplo

cURL:="https://www.elsitio.com.ar/index.php?route=rest/product_admin/products&id=50013"
WITH OBJECT TInternet():New( Self )
:nPort := inetHTTPS
:cAgent := "Panel2"
:nTimeOut:= 60000
IF :Open()
cTexto:=''
hData := :OpenURL( cURL )
WHILE :ReadFile( hData, @cData, 65536 )
cTexto += cData
ENDDO
nLen := hb_jsondecode( cTexto, @hData )
IF nLen > 0
.... Aca proceso el JSon
ENDIF
ENDIF
END WITH

Asi recibo correctamente el JSon de respuesta de varios comandos. Todo lo que es 'lectura' de informacion lo puedo hacer de esta manera.

Pero ahora me falta enviar información.
La pregunta es:
¿Como le paso un JSon a la Url?
Leí y probé con todo lo que encontré:
TInternet:OpenRequest -> probe de todas formas y siempre dio handler cero.
THTTPRequest -> nunca logré que se "despierte"

Agradeceria cualquier pista o ejemplo.
Desde ya gracias por su atencion.
Claudio.

Re: Interactuar con una REST api

Posted: Wed May 22, 2019 2:29 am
by Claudio C
Sigo varado en este tema
Alguna pista?
Gracias