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