WINSOFT components and applications

• Utilizes the standard Windows XmlLite API
• Supports both Windows 32-bit and 64-bit platforms
• Compatible with Delphi/C++Builder versions 7 - 13 and Lazarus 4.2
• Source code included with the registered version
• Royalty-free distribution in your applications

// create XML document
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;

// parse XML document
var
  Text: string;
  I: Integer;

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;
    ShowMessage(Text);
  end
finally
  Free;
end;