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

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