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

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