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.
De antemano gracias.
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:responseTextSaludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
