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