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

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