Saludos a todos
Necesito leer mediante API los valores indicados en la siguiente pagina, es una nueva regulación venezolana para presentar estados financieros según el valor del Petro.
https://www.petro.gob.ve/desarrolladores.html
Agradecido por sus aportes.
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Aqui tienes un ejemplo
viewtopic.php?p=197201#p197201
pero al ser tan sencilla la api, con curl serÃa también muy sencillo aunque te obligará a añadir alguna dll junto con el exe
#Include "Fivewin.ch"
//--------------------------------
Function Main()
Local oHttp
Try
oHttp := CreateObject( 'MSXML2.XMLHTTP' )
Catch
oHttp := CreateObject( 'Microsoft.XMLHTTP' )
End
oHttp:Open( 'POST', "https://petroapp-price.petro.gob.ve/price/", .F. )
oHttp:SetRequestHeader( "Content-Type","application/json")
// oHttp:Send( '{ "Username": "user@company.com", "Password": "secret"}' )
SysRefresh()
MsgInfo(oHttp:ResponseBody)
ReturnJuan, parece que el error que obtienes es porque no "envias" nada.
Es decir, no utilizas el Send(), ponlo aunque no envÃes nada a ver qué obtienes y vas cogiendo pistas: oHttp:Send()
Local oHttp
Try
oHttp := CreateObject( 'MSXML2.XMLHTTP' )
Catch
oHttp := CreateObject( 'Microsoft.XMLHTTP' )
End
oHttp:Open( 'POST', "https://petroapp-price.petro.gob.ve/price/", .F. )
oHttp:SetRequestHeader( "Content-Type","application/json")
oHttp:Send()
SysRefresh()
MsgInfo(oHttp:ResponseBody)
Return#Include "Fivewin.ch"
//--------------------------------
Function Main()
Local oHttp
local cJson := ""
TEXT INTO cJson
 {
  coins: [
   "BTC",
   "DASH",
   "LTC",
   "ETH",
   "PTR"
  ],
  fiats: [
   "USD",
   "ARS",
   "BRL",
   "BOB",
   "CAD",
   "COP",
   "CLP",
   "MXP",
   "NIO",
   "PEN",
   "DOP",
   "TTD",
   "UYU",
   "ANG",
   "CZK",
   "DKK"
  ]
 }
ENDTEXT
Try
oHttp := CreateObject( 'MSXML2.XMLHTTP' )
Catch
oHttp := CreateObject( 'Microsoft.XMLHTTP' )
End
oHttp:Open( 'POST', "https://petroapp-price.petro.gob.ve/price/", .F. )
oHttp:SetRequestHeader( "Content-Type","application/json")
// Es posible que necesites poner esto también, aunque no lo he probado, prueba sin ello y con ello
// oHttp:SetRequestHeader( "Host", Â "api-price.petro.dom" )
oHttp:Send( cJson )
MsgInfo(oHttp:ResponseBody)
Return nilNavarro
Gracias, esta fue la respuesta generado con el ejemplo que me indicaste
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>Error</title>
</head>
<body>
<pre>Bad Request</pre>
</body>
</html>
#Include "Fivewin.ch"
//--------------------------------
Function Main()
  local oHttp
  local hJson := { => }
  local cJson := ""
  hJson[ "coins" ] := {"BTC","DASH","LTC","ETH","PTR"}
  hJson[ "fiats" ] := {"USD","ARS","BRL","BOB","CAD","COP","CLP","MXP","NIO","PEN","DOP","TTD","UYU","ANG","CZK","DKK"}
  Try
    oHttp := CreateObject( 'MSXML2.XMLHTTP' )
  Catch
    oHttp := CreateObject( 'Microsoft.XMLHTTP' )
  End
  oHttp:Open( 'POST', "https://petroapp-price.petro.gob.ve/price/", .F. )
  oHttp:SetRequestHeader( "Content-Type","application/json")
// Es posible que necesites poner esto también, aunque no lo he probado, prueba sin ello y con ello
// oHttp:SetRequestHeader( "Host", Â "api-price.petro.dom" )
  cJson := hb_jsonEncode( hJson,.T.)
// Â ? cJson
  oHttp:Send( cJson )
  MsgInfo(oHttp:ResponseBody)
Return nilCristobal
Gracias,
Lo probare, ahorita estoy mudando de PC, para el mes siguiente tengo planificado migrar mi aplicación de XHB.82/FW24 hacia el nuevo FW que publique Antonio para diciembre, he visto que has creado una clase tdocpanel para crear dashboard, esta disponible?. Enviare precio por favor al correo adaptaprodrive@gmail.com
Juan, el ejemplo del API está probado por eso lo he puesto
En cuanto a mi clase TDockPnel, la incluà en Fivewin, pero no está disponible el código en la distribución de FiveWin
Si necesitas cualquier cosa, ya sabes, por aqui o a mi correo
Cristobal,
Gracias, aun estoy migrando mi PC, apenas este disponible pruebo el API,
Con respecto a la clase tdockpanel necesito crear unos dashboard directos en FW, estoy tramitando la adquisición de FW para diciembre y lograr usarlo de manera productiva, muy elegantes los ejemplos, pronto empezara a compilarlos para implementarlos. Agradecido por los buenos oficios.
Gracias
Las posibilidades de TDockPnel son muchÃsimas
Cualquier duda, ya sabes.