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

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