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

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