Pascal (Lazarus/Delphi)

Demonstrate the XML "I" Property

See more XML Examples

Demonstrates the XML "I" property. The properties I, J, and K can be used in paths to access the I'th, J'th, or K'th child in a path. Three indexing properties are provided to allow for triple-nested loops using this feature.

Note: This example requires Chilkat v9.5.0.64 or later.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.StringBuilder,
  Chilkat.Xml;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  sbXml: TStringBuilder;
  url: string;
  http: THttp;
  bAutoTrim: Boolean;
  xml: TXml;
  numAccounts: Integer;
  i: Integer;

begin
  success := False;

  //  This example uses the XML document at https://www.chilkatsoft.com/exampleData/xero_accounts.xml
  //  The data is a download of the Xero accounts for the sandbox company test data (it's not real data).

  //  We'll use Chilkat HTTP to download the XML.
  //  This example assumes the Chilkat HTTP API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  sbXml := TStringBuilder.Create;

  //  Download the XML from https://www.chilkatsoft.com/exampleData/xero_accounts.xml
  //  into sbXml
  url := 'https://www.chilkatsoft.com/exampleData/xero_accounts.xml';
  http := THttp.Create;
  success := http.QuickGetSb(url,sbXml);
  if (success <> True) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  bAutoTrim := False;
  xml := TXml.Create;
  xml.LoadSb(sbXml,bAutoTrim);

  //  How many accounts exist?
  numAccounts := xml.NumChildrenAt('Accounts');
  WriteLn('numAccounts = ' + numAccounts);

  i := 0;
  while i < numAccounts do
    begin
      xml.I := i;
      WriteLn('AccountID: ' + xml.GetChildContent('Accounts|Account[i]|AccountID'));
      WriteLn('Name: ' + xml.GetChildContent('Accounts|Account[i]|Name'));
      WriteLn('Code: ' + xml.GetChildIntValue('Accounts|Account[i]|Code'));
      WriteLn('EnablePaymentsToAccount: ' + xml.GetChildBoolValue('Accounts|Account[i]|EnablePaymentsToAccount'));
      WriteLn('----');
      i := i + 1;
    end;

  //  The output looks like this:

  //  	numAccounts = 69
  //  	AccountID: ceef66a5-a545-413b-9312-78a53caadbc4
  //  	Name: Checking Account
  //  	Code: 90
  //  	EnablePaymentsToAccount: False
  //  	----
  //  	AccountID: 3d09fd49-434d-4c18-a57b-831663ab70d2
  //  	Name: Savings Account
  //  	Code: 91
  //  	EnablePaymentsToAccount: False
  //  	----
  //  	AccountID: 5f5e1b00-5331-4ee5-bc84-39dbd9a27db3
  //  	Name: Accounts Receivable
  //  	Code: 120
  //  	EnablePaymentsToAccount: False
  //  	----
  //  	AccountID: b0a23f8d-1b6d-4209-96f9-8046f794e1f4
  //  	Name: Prepayments
  //  	Code: 130
  //  	EnablePaymentsToAccount: False
  //  	----
  //  	...

  //  The xero_accounts.xml file contains data that looks like this:

  //  	<Response xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  //  	  <Id>409d062b-d3c2-4062-99a6-31b7c1c14662</Id>
  //  	  <Status>OK</Status>
  //  	  <ProviderName>ChilkatPrivate</ProviderName>
  //  	  <DateTimeUTC>2016-11-01T22:30:13.3606258Z</DateTimeUTC>
  //  	  <Accounts>
  //  	    <Account>
  //  	      <AccountID>ceef66a5-a545-413b-9312-78a53caadbc4</AccountID>
  //  	      <Code>090</Code>
  //  	      <Name>Checking Account</Name>
  //  	      <Status>ACTIVE</Status>
  //  	      <Type>BANK</Type>
  //  	      <TaxType>NONE</TaxType>
  //  	      <Class>ASSET</Class>
  //  	      <EnablePaymentsToAccount>false</EnablePaymentsToAccount>
  //  	      <ShowInExpenseClaims>false</ShowInExpenseClaims>
  //  	      <BankAccountNumber>132435465</BankAccountNumber>
  //  	      <BankAccountType>BANK</BankAccountType>
  //  	      <CurrencyCode>USD</CurrencyCode>
  //  	      <ReportingCode>ASS</ReportingCode>
  //  	      <ReportingCodeName>Assets</ReportingCodeName>
  //  	      <HasAttachments>false</HasAttachments>
  //  	      <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC>
  //  	    </Account>
  //  	    <Account>
  //  	      <AccountID>3d09fd49-434d-4c18-a57b-831663ab70d2</AccountID>
  //  	      <Code>091</Code>
  //  	      <Name>Savings Account</Name>
  //  	      <Status>ACTIVE</Status>
  //  	      <Type>BANK</Type>
  //  	      <TaxType>NONE</TaxType>
  //  	      <Class>ASSET</Class>
  //  	      <EnablePaymentsToAccount>false</EnablePaymentsToAccount>
  //  	      <ShowInExpenseClaims>false</ShowInExpenseClaims>
  //  	      <BankAccountNumber>987654321</BankAccountNumber>
  //  	      <BankAccountType>BANK</BankAccountType>
  //  	      <CurrencyCode>USD</CurrencyCode>
  //  	      <ReportingCode>ASS</ReportingCode>
  //  	      <HasAttachments>false</HasAttachments>
  //  	      <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC>
  //  	    </Account>
  //  	    ...
  //  


  sbXml.Free;
  http.Free;
  xml.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.