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

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