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

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