FiveTech Software tech support forums

Code: Select all | Expand

#require "hbssl"
#require "hbtip"

PROCEDURE pruebahttps()
   LOCAL cPostData, cResponse
   LOCAL cUrl := "https://api.juanillo.es/json/api/transaction"
   LOCAL oClient := TIPClientHttp():New( cUrl )  // Inicializar el cliente HTTP

   if oClient:Open()
      msginfo(oClient:Open(), "oClient:Open()")
   else
      msginfo(oClient:Open(), "ERROR: oClient:Open()")
      return
   endif

   // Datos a enviar en el cuerpo del POST (por ejemplo, en formato JSON)
   cPostData := '{"clave":"valor", "otro":"dato"}'

   // Configurar la solicitud
   oClient:nConnTimeout := 5000  // Timeout de conexión (5 segundos)
   oClient:lSSL         := .T.   // Habilitar SSL para HTTPS

   // Abrir conexión
   IF oClient:Open()
      // Enviar solicitud POST
      oClient:Post( cPostData, "application/json" )
      cResponse := oClient:cReply

      // Verificar respuesta
      IF !Empty( cResponse )
         msginfo( cResponse, "Respuesta del servidor:")
         msginfo(hb_ValToExp( oHTTP:hHeaders ),"oHTTP:hHeaders")
      ELSE
         msginfo(oClient:LastError(),"Error al enviar la solicitud POST:")
      ENDIF

      // Cerrar conexión
      oClient:Close()
   ELSE
      msginfo(oClient:LastError(),"No se pudo conectar al servidor:")
   ENDIF

RETURN