"Invalid authorization credentials provided"
Below is my code i am currently using
Code: Select all
Dim hClient as HttpClient
Dim sBuffer as String
hClient = New HttpClient as "hClient"
With hClient
.URL = Global.PS_URL &"/terminals/" & global.TerminalNumber
.Auth = 1
.User = Base64$(global.PS_User)
.Password = Base64$()Gl;obal.PS_Pass)
'.Headers.Add("Software-House-ID :SD45T92")
'.Headers.Add("Installer-Id : SD45T92")
.Sync = False
.Timeout = 60
.Get
End With
Can someone tell me how I can send the user name and Password to the cloud server, Also as you can see the 2 headers.add are
commented out as when I try to include them I get a error (do I need to you a different method of sending that information to
the cloud server I am talking to.
Any help is most appreciated as once I get this working I should be able to work out how to read the Json data that is returned
(if anyone has any examples of this they would be very much appreciated)
Andy