Interactuar con una REST api
Publicado: Mar May 21, 2019 3:39 am
Estimados:
Debo interactuar con una API_REST.
Luego de semanas logre 'leer' con el siguiente ejemplo
cURL:="https://www.elsitio.com.ar/index.php?ro ... s&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.
Debo interactuar con una API_REST.
Luego de semanas logre 'leer' con el siguiente ejemplo
cURL:="https://www.elsitio.com.ar/index.php?ro ... s&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.