(Delphi DLL) JSON Parsing with Sample Data for a Merchant/Payment Transaction

Demonstrates how to load the following JSON into a JSON object and access the values for this document:

{
"id":"8a829449561d9dcb01571dbee3b275b1",
"paymentType":"DB",
"paymentBrand":"VISA",
"amount":"156.00",
"currency":"EUR",
"merchantTransactionId":"E8A39B31-6FA3-4014-A195-3074DF5BF7A1",
"result":{
	"code":"000.100.110",
	"description":"Request successfully processed in 'Merchant in Integrator Test Mode'"
},
"resultDetails":{
	"ConnectorTxID3":"12311312",
	"ConnectorTxID1":"717473"
},
"card":{
	"bin":"420000",
	"last4Digits":"0000",
	"holder":"Andreas",
	"expiryMonth":"12",
	"expiryYear":"2018"
},
"risk":{
	"score":"100"
},
"buildNumber":"4b471ea5366e5e9c9a21392a39769f8d7b40b4e8@2016-09-08 13:31:54 +0000",
"timestamp":"2016-09-12 09:33:52+0000",
}

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
json: HCkJsonObject;
success: Boolean;

begin
json := CkJsonObject_Create();

// Load the JSON into the object.
// Call json.Load to load from a string rather than a file...
success := CkJsonObject_LoadFile(json,'qa_data/json/merchantPayment.json');
// We are assuming success..

// Get the easy stuff:
Memo1.Lines.Add('id: ' + CkJsonObject__stringOf(json,'id'));
Memo1.Lines.Add('paymentType: ' + CkJsonObject__stringOf(json,'paymentType'));
Memo1.Lines.Add('currency: ' + CkJsonObject__stringOf(json,'currency'));
Memo1.Lines.Add('buildNumber: ' + CkJsonObject__stringOf(json,'buildNumber'));

// Get information that's nested within a sub-object:
Memo1.Lines.Add('result: code: ' + CkJsonObject__stringOf(json,'result.code'));
Memo1.Lines.Add('result: description: ' + CkJsonObject__stringOf(json,'result.description'));

Memo1.Lines.Add('card: bin: ' + CkJsonObject__stringOf(json,'card.bin'));
Memo1.Lines.Add('card: last4Digits: ' + CkJsonObject__stringOf(json,'card.last4Digits'));

CkJsonObject_Dispose(json);

end;