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

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