AutoIt

Isabel Connect Get Account

See more Ibanity Examples

Get the details for a specific account. AutoIt

Local $bSuccess = False

;  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")
$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")