PowerBuilder

HTTP Basic Authentication Test

Demonstrates how to do HTTP basic authentication using Chilkat. PowerBuilder

integer li_rc
oleobject loo_Http
string ls_JsonResponse

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// To use HTTP Basic authentication:
loo_Http.Login = "myLogin"
loo_Http.Password = "myPassword"
loo_Http.BasicAuth = 1

// Run the test using this URL with the credentials above.  
// (Works while httpbin.org keeps the test endpoint available.)
ls_JsonResponse = loo_Http.QuickGetStr("https://httpbin.org/basic-auth/myLogin/myPassword")
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

Write-Debug "Response status code: " + string(loo_Http.LastStatus)

Write-Debug ls_JsonResponse

// Output:

// Response status code: 200
// {
//   "authenticated": true, 
//   "user": "myLogin"
// }


destroy loo_Http