Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(VB.NET UWP/WinRT) Isabel Connect List AccountsSee more Ibanity ExamplesGet a list of accounts. For more information, see https://documentation.ibanity.com/isabel-connect/api#list-accounts
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http ' Implements the following CURL command: ' curl -X GET https://api.ibanity.com/isabel-connect/accounts \ ' --cert certificate.pem:qwertyuiop1 \ ' --key private_key.pem \ ' -H "Authorization: Bearer access_token_1603365407" \ ' -H "Accept: application/vnd.api+json" ' Ibanity provides the certificate + private key in PFX format. This example will use the .pfx instead of the pair of PEM files. ' (It is also possible to implement using Chilkat with the PEM files, but PFX is easier.) Dim success As Boolean = http.SetSslClientCertPfx("qa_data/pfx/my_ibanity_certificate.pfx","my_pfx_password") If (success = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If ' Load the previously obtained access token. Dim jsonToken As New Chilkat.JsonObject success = jsonToken.LoadFile("qa_data/tokens/isabel_access_token.json") If (success = False) Then Debug.WriteLine("No existing access token.") Exit Sub End If ' This causes the "Authorization: Bearer ***" header to be added to the HTTP request. http.AuthToken = jsonToken.StringOf("access_token") http.Accept = "application/vnd.api+json" Dim jsonStr As String = Await http.QuickGetStrAsync("https://api.ibanity.com/isabel-connect/accounts") If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim jResp As New Chilkat.JsonObject jResp.Load(jsonStr) jResp.EmitCompact = False Debug.WriteLine("Response Body:") Debug.WriteLine(jResp.Emit()) Dim respStatusCode As Integer = http.LastStatus Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(http.LastResponseHeader) Debug.WriteLine("Failed.") Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "data": [ ' { ' "id": "93ecb1fdbfb7848e7b7896c0f2d207aed3d8b4c1", ' "type": "account" ' } ' ], ' "meta": { ' "paging": { ' "offset": 0, ' "total": 1 ' } ' } ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim id As String Dim v_type As String Dim metaPagingOffset As Integer = jResp.IntOf("meta.paging.offset") Dim metaPagingTotal As Integer = jResp.IntOf("meta.paging.total") Dim i As Integer = 0 Dim count_i As Integer = jResp.SizeOfArray("data") While i < count_i jResp.I = i id = jResp.StringOf("data[i].id") v_type = jResp.StringOf("data[i].type") i = i + 1 End While |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.