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

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