Create and parse XML documents using Winsoft’s library XML

1868978 | Embarcadero RAD Studio Delphi C++Builder Blogs

Introduction

XML is a VCL-type library (Windows platform only). Its main purpose is to create and parse XML documents. If you need installation instructions watch the video below.

2. Components in the Demo and what they do

ButtonReadXml – when clicked, it creates XMLReader object. A while cycle adds live by line the elements, checking the attributes count in the XML document. To convert the Nodes into readable text (string), is used ‘NodeToString’ function. The converted text into string is shown in the TMemo field. The full code on the button click can be seen in the next lines:

Memo.Lines.Clear;
  with TXmlReader.Create('document.xml') do
  try
    while Read do
    begin
      Text := IntToStr(Line) + ',' + IntToStr(Position) + ': ' + NodeToString(Node);
      case Node of
        xnElement:
        begin
          Text := Text + ': ' + Name;
          Element;
          FirstAttribute;
          for I := 1 to AttributeCount do
          begin
            Text := Text + ' ' + Name + '=' + Value;
            NextAttribute;
          end;
        end;
        xnText: Text := Text + ': ' + Value;
        xnCData: Text := Text + ': ' + Value;
        xnComment: Text := Text + ': ' + Value;
        xnWhitespace: Text := Text + ': "' + Value + '"';
        xnEndElement: Text := Text + ': ' + Name;
        xnXmlDeclaration: Text := Text + ': ' + Name;
      end;
      Memo.Lines.Add(Text);
    end
  finally
    Free;
  end;

Memo.Lines.Clear;

with TXmlReader.Create('document.xml') do

try

while Read do

begin

Text := IntToStr(Line) + ',' + IntToStr(Position) + ': ' + NodeToString(Node);

case Node of

xnElement:

begin

Text := Text + ': ' + Name;

Element;

FirstAttribute;

for I := 1 to AttributeCount do

begin

Text := Text + ' ' + Name + '=' + Value;

NextAttribute;

end;

xnText: Text := Text + ': ' + Value;

xnCData: Text := Text + ': ' + Value;

xnComment: Text := Text + ': ' + Value;

xnWhitespace: Text := Text + ': "' + Value + '"';

xnEndElement: Text := Text + ': ' + Name;

xnXmlDeclaration: Text := Text + ': ' + Name;

end;

Memo.Lines.Add(Text);

end

finally

Free;

end;

<strong>f</strong>unction NodeToString(Node: TXmlNode): string;
  begin
    case Node of
      xnNone: Result := 'None';
      xnElement: Result := 'Element';
      xnAttribute: Result := 'Attribute';
      xnText: Result := 'Text';
      xnCData: Result := 'CData';
      xnProcessingInstruction: Result := 'Processing instruction';
      xnComment: Result := 'Comment';
      xnDocumentType: Result := 'Document type';
      xnWhitespace: Result := 'White space';
      xnEndElement: Result := 'End element';
      xnXmlDeclaration: Result := 'Declaration';
      else Result := '';
    end;
  end;

<strong>f</strong>unction NodeToString(Node: TXmlNode): string;

begin

case Node of

xnNone: Result := 'None';

xnElement: Result := 'Element';

xnAttribute: Result := 'Attribute';

xnText: Result := 'Text';

xnCData: Result := 'CData';

xnProcessingInstruction: Result := 'Processing instruction';

xnComment: Result := 'Comment';

xnDocumentType: Result := 'Document type';

xnWhitespace: Result := 'White space';

xnEndElement: Result := 'End element';

xnXmlDeclaration: Result := 'Declaration';

else Result := '';

end;

ButtonWriteXmlClick – when clicked, it creates TXmlWriter object. Then it start adding elements and attributes to create the XML document. You can check it in the next lines:

with TXmlWriter.Create('document.xml') do
  try
    Indent := True;
    StartDocument;
      StartElement('element1');
        Comment('comment');
        StartElement('element2');
          Attribute('attribute1', 'value1');
          Attribute('attribute2', 'value2');
          Text('Hello, world!');
        EndElement;
        StartElement('element3');
          CData('data');
        EndElement;
      EndElement;
    EndDocument;
  finally
    Free;
  end;
  ShowMessage('document.xml created');

with TXmlWriter.Create('document.xml') do

try

Indent := True;

StartDocument;

StartElement('element1');

Comment('comment');

StartElement('element2');

Attribute('attribute1', 'value1');

Attribute('attribute2', 'value2');

Text('Hello, world!');

EndElement;

StartElement('element3');

CData('data');

EndElement;

EndDocument;

finally

Free;

end;

ShowMessage('document.xml created');

A short video shows the library in action.

You can download the Demo here.

Like what you see? You can get the XML Library and over 100 other fantastic WinSoft components with our Enterprise Component Pack. For a limited time, when you purchase RAD Studio Enterprise or Architect Edition at special Upgrade Pricing, you will also get this package of third-party software worth over $13,000, including the full WinSoft Component Library, at NO EXTRA COST! Step up to RAD Studio 10.4.1 today!

Reduce development time and get to market faster with RAD Studio, Delphi, or C++Builder.
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today

Free Delphi Community Edition Free C++Builder Community Edition

Create and parse XML documents using Winsoft’s library XML

Leave a ReplyCancel reply

Search

Something Fresh

Instruction Sets in C++Builder 12.3!

New in 12.3: Scripts for Migration from InterBase Express to FireDAC

RAD Server Gets a Boost in RAD Studio 12.3

Popular Posts

RAD Studio 12.2 Athens Inline Patch 1 Available

Announcing the Availability of RAD Studio 12.2 Athens

New in 12.3: Scripts for Migration from InterBase Express to FireDAC

AI-Powered Smart CodeInsight in RAD Studio 12.3

Announcing the Availability of RAD Studio 12.3 Athens

RAD Studio 12.2 Athens Inline Patch 1 Available

Announcing the Availability of RAD Studio 12.2 Athens

New in 12.3: Scripts for Migration from InterBase Express to FireDAC

AI-Powered Smart CodeInsight in RAD Studio 12.3

Categories

Popular From News

New in 10.3.2: C++17 for Win64 - target all Windows with the C++17 Clang compiler

Delphi 12 And C++Builder 12 Community Editions Released!

We've Updated The HUGE Delphi Anniversary “Innovation Timeline” Infographic. Grab it Now!

Embarcadero InterBase 2020 Update 6 Released!

3 x 12 VCL Enhancements in Delphi 12

C++Builder @ stackoverflow

Delphi @ stackoverflow

InterBase @ stackoverflow

Categories

Useful Links

Follow us

Create and parse XML documents using Winsoft’s library XML

Leave a ReplyCancel reply

Join Our Global Developer Community

Search

Something Fresh

Popular Posts

Categories

Popular From News

Categories

Useful Links

Follow us