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

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