Problemas con curl al compilar con harbour

[leandro]

Buenas noches para todos, estoy intentando compilar con harbour, pero me encontré con un problema un poco complicado, con xharbour, este código funcionaba correctamente, retornando la información de manera adecuada, pero el problema es que con harbour no funciona, según lo que pude determinar ni siquiera se envían los datos de la cabecera al ws para ser procesados.

De antemano gracias.

Code: Select all  Expand view

    user := "myusuario"
    pass := "mycontraseña"  
    cBas64 := hb_base64encode(user+":"+pass,len(user+":"+pass))
   
    hInfo["id"] := serialDisco()
    hInfo["user"] := getenv("USERNAME")
    hInfo["machine"] := NetName()
    cInfo := hb_jsonEncode( hInfo ) 
   
    ohttp := CreateObject( "MSXML2.XMLHTTP" )
    ohttp:Open( "POST" ,"http://localhost/factura/revisa.php",.F.)
    oHttp:SetRequestHeader("cache-control", "no-cache")
    ohttp:SetRequestHeader("content-type", "application/json" )
    ohttp:SetRequestHeader("authorization", "Basic "+cBas64 )
    TRY
      ohttp:Send( cInfo )
    CATCH
        aInfo := {.F.,"No Se Pudo Enviar Documento JSON"}
    END
    response:=ohttp:responseText
 

[Antonio Linares]

Leandro,

> response:=ohttp:responseText

Que valor tiene response ?