Delphi ActiveX

Demonstrate the XML FindNextRecord Method

See more XML Examples

Imagine we have an XML file as follows:

<CompleteMultipartUpload>
  <Part>
    <PartNumber>1</PartNumber>
    <ETag>abc</ETag>
  </Part>
  <Part>
    <PartNumber>2</PartNumber>
    <ETag>def</ETag>
  </Part>
  <Part>
    <PartNumber>3</PartNumber>
    <ETag>ghi</ETag>
  </Part>
</CompleteMultipartUpload>

We want to find the record where PartNumber = 2. To do so, we simply position ourselves at the first "Part" tag, and then call FindNextRecord. (See below..) Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: TChilkatXml;
foundRec: IChilkatXml;

begin
xml := TChilkatXml.Create(Self);

xml.LoadXmlFile('qa_data/xml/multipartUpload.xml');

// Position ourselves at the 1st record.
xml.GetChild2(0);

foundRec := xml.FindNextRecord('PartNumber','2');
if (xml.LastMethodSuccess = 1) then
  begin
    Memo1.Lines.Add('Found the record where PartNumber = 2.');
    Memo1.Lines.Add(foundRec.GetXml());

    // Let's examine the ETag for this record...
    Memo1.Lines.Add('ETag for PartNumber 2 = ' + foundRec.GetChildContent('ETag'));

  end
else
  begin
    Memo1.Lines.Add('No record exists where PartNumber = 2.');
  end;

// What if we want to find the record where ETag = "abc"?
foundRec := xml.FindNextRecord('ETag','abc');
if (xml.LastMethodSuccess = 1) then
  begin
    Memo1.Lines.Add('Found the record where ETag = abc');
    Memo1.Lines.Add(foundRec.GetXml());

    // Let's examine the PartNumber for this record...
    Memo1.Lines.Add('Part number for Etag(abc) = ' + foundRec.GetChildContent('PartNumber'));

  end
else
  begin
    Memo1.Lines.Add('No record exists where ETag = abc.');
  end;

// Go back to the XML root..
xml.GetRoot2();
end;