FiveTech Software tech support forums

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
 

Leandro,

> response:=ohttp:responseText

Que valor tiene response ?