Tech Articles


How to use HTTPClient or RESTClient to call an API with basic authentication


Background

Almost every API requires some sort of authentication. Basic authentication is the simplest way to handle authentication. Here we are going to do a simple example to show you how to use HTTPClient or RESTClient to call an API with basic authentication.

Access a simple API with basic authentication in IE

Let’s take a simple basic authentication API from the Internet as an example.

If we input https://jigsaw.w3.org/HTTP/Basic/ in IE and press Enter, then input Username: guest; Password: guest in the pop-up login window.

Click the Sign in button and you will get a response of the current IE accessing the API: “Your browser made it!”

Use the HTTPClient object to call an API with basic authentication

Here is the debug view:

Here is the sample PB code:

String 		ls_Basic, ls_UserName, ls_Password, ls_Body
Integer         li_Return
CoderObject 	lco_Code
HttpClient 	lhc_Client

lco_Code = Create CoderObject
lhc_Client = Create HttpClient

ls_UserName = "guest"
ls_Password = "guest"
ls_Basic = lco_code.base64encode( Blob(ls_UserName + ":" + ls_Password , EncodingUTF8!))

lhc_Client.SetRequestHeader( "Authorization", "Basic " + ls_Basic)
li_Return = lhc_Client.SendRequest("GET", "https://jigsaw.w3.org/HTTP/Basic/")
If li_Return = 1 And lhc_Client.GetResponseStatusCode() = 200 Then
	lhc_Client.GetResponseBody(ls_Body)
	MessageBox ("Tips" ,ls_Body )
End If

Destroy ( lco_Code )
Destroy ( lhc_Client )

Use the RESTClient object to call an API with basic authentication

Here is the debug view:

 

Here is the sample PB code:

String		 ls_Basic, ls_UserName, ls_Password, ls_Body
Integer          li_Return
CoderObject 	 lco_Code
RestClient 	 lhc_Client

lco_Code = Create CoderObject
lhc_Client = Create RestClient

ls_UserName = "guest"
ls_Password = "guest"
ls_Basic = lco_code.base64encode( Blob(ls_UserName + ":" + ls_Password , EncodingUTF8!))
lhc_Client.SetRequestHeader( "Authorization", "Basic " + ls_Basic)
li_Return = lhc_Client.sendgetrequest( "https://jigsaw.w3.org/HTTP/Basic/",ls_Body)
If li_Return = 1 And lhc_Client.GetResponseStatusCode() = 200  Then
	MessageBox ("Tips" ,ls_Body )
End If

Destroy ( lco_Code )
Destroy ( lhc_Client )
Comments (0)
There are no comments posted here yet

Find Articles by Tag

Mobile NativePDF Class License SqlExecutor Window Jenkins Resize Bug Array CoderObject WebBrowser RESTClient Testing DataType OrcaScript Syntax Icon RibbonBar Builder Outlook Windows 10 Icons Web Service Proxy Migration Variable RibbonBar PowerServer Mobile Repository DevOps Database External Functions TreeView Source Control TLS/SSL Import JSON SnapObjects PBDOM Debugging UI Modernization Azure Script Debugger XML C# Transaction SqlModelMapper TFS Model SOAP PDFlib PFC Installation ODBC Error REST Encoding SQL Server PBNI Encryption PDF PowerBuilder Compiler BLOB Import PostgreSQL ODBC driver Android Text Database Painter Export Branch & Merge OAuth Performance Application Oracle SnapDevelop SDK Event Elevate Conference DragDrop Visual Studio iOS Expression Trial SVN Database Table Data Filter HTTPClient Authorization Web API Automated Testing Database Connection DLL Messagging Authentication COM Export JSON Stored Procedure Charts SQL Event Handler Design Interface PowerScript (PS) .NET DataStore JSON Event Handling Source Code OAuth 2.0 Debug ActiveX Git MessageBox PowerBuilder CI/CD Excel .NET Std Framework Database Profile Configuration RichTextEdit Control Sort UI Database Object PowerBuilder (Appeon) Validation DataWindow UI Themes InfoMaker OLE API PowerServer Web TortoiseGit .NET Assembly Service GhostScript Windows OS WinAPI Graph 32-bit Open Source JSONGenerator Linux OS Menu PostgreSQL 64-bit CrypterObject Database Table IDE JSONParser Deployment PBVM Data Database Table Schema DataWindow JSON Platform File