(AutoIt) Isabel Connect Get Account

See more Ibanity Examples

Get the details for a specific account.

For more information, see https://documentation.ibanity.com/isabel-connect/api#get-account

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oHttp = ObjCreate("Chilkat.Http")

; Implements the following CURL command:

; curl -X GET https://api.ibanity.com/isabel-connect/accounts/93ecb1fdbfb7848e7b7896c0f2d207aed3d8b4c1 \
; --cert certificate.pem:qwertyuiop1 \
; --key private_key.pem  \
; -H "Authorization: Bearer access_token_1603365407" \
; -H "Accept: application/vnd.api+json"  

; Other Chilkat examples for Ibanity show how to set the SSL client certificate using the .pfx.
; This example will demonstrate using the PEM files.
$oCert = ObjCreate("Chilkat.Cert")
Local $bSuccess = $oCert.LoadFromFile("qa_data/pem/my_ibanity_certificate.pem")
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

$oPrivKey = ObjCreate("Chilkat.PrivateKey")
$bSuccess = $oPrivKey.LoadEncryptedPemFile("qa_data/pem/my_ibanity_private_key.pem","my_pem_password")
If ($bSuccess = False) Then
    ConsoleWrite($oPrivKey.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oCert.SetPrivateKey($oPrivKey)
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oHttp.SetSslClientCert($oCert)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

; Load the previously obtained access token.
$oJsonToken = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJsonToken.LoadFile("qa_data/tokens/isabel_access_token.json")
If ($bSuccess = False) Then
    ConsoleWrite("No existing access token." & @CRLF)
    Exit
EndIf

; This causes the "Authorization: Bearer ***" header to be added to the HTTP request.
$oHttp.AuthToken = $oJsonToken.StringOf("access_token")

$oHttp.Accept = "application/vnd.api+json"

$oHttp.SetUrlVar("id","93ecb1fdbfb7848e7b7896c0f2d207aed3d8b4c1")
Local $sJsonStr = $oHttp.QuickGetStr("https://api.ibanity.com/isabel-connect/accounts/{$id}")
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.Load($sJsonStr)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oHttp.LastStatus
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oHttp.LastResponseHeader & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

; Sample JSON response:
; (Sample code for parsing the JSON response is shown below)

; {
;   "data": {
;     "attributes": {
;       "country": "BE",
;       "currency": "EUR",
;       "description": "current account",
;       "financialInstitutionBic": "KREDBEBB",
;       "holderAddress": "STREET NUMBER, ZIPCODE CITY",
;       "holderAddressCountry": "BE",
;       "holderName": "COMPANY",
;       "reference": "BE96153112434405",
;       "referenceType": "IBAN"
;     },
;     "id": "93ecb1fdbfb7848e7b7896c0f2d207aed3d8b4c1",
;     "type": "account"
;   }
; }

; Sample code for parsing the JSON response...
; Use the following online tool to generate parsing code from sample JSON:
; Generate Parsing Code from JSON

Local $sDataAttributesCountry = $oJResp.StringOf("data.attributes.country")
Local $sDataAttributesCurrency = $oJResp.StringOf("data.attributes.currency")
Local $sDataAttributesDescription = $oJResp.StringOf("data.attributes.description")
Local $sDataAttributesFinancialInstitutionBic = $oJResp.StringOf("data.attributes.financialInstitutionBic")
Local $sDataAttributesHolderAddress = $oJResp.StringOf("data.attributes.holderAddress")
Local $sDataAttributesHolderAddressCountry = $oJResp.StringOf("data.attributes.holderAddressCountry")
Local $sDataAttributesHolderName = $oJResp.StringOf("data.attributes.holderName")
Local $sDataAttributesReference = $oJResp.StringOf("data.attributes.reference")
Local $sDataAttributesReferenceType = $oJResp.StringOf("data.attributes.referenceType")
Local $sDataId = $oJResp.StringOf("data.id")
Local $sDataType = $oJResp.StringOf("data.type")