Delphi XE3: работа с XML в Mac OS X.

function LoadXMLFromFile(const FileName: string): NSXMLDocument;
var Data: NSData;
begin
  //получаем NSData, загрузив данные из файла
  Data:=TNSData.Wrap(TNSData.OCClass.dataWithContentsOfFile(NSSTR(FileName)));
  //создаем пустой NSXMLDocument
  Result:=TNSXMLDocument.Create;
  //грузим XML-данные из NSData
  Result.initWithData(Data, NSXMLDocumentTidyXML,nil);
end;

function LoadXMLFromString(const XMLData: string): NSXMLDocument;
begin
 //создали пустой NSXMLDocument
 Result:=TNSXMLDocument.Create;
 //создали NSString и передали его NSXMLDocument
 Result.initWithXMLString(NSSTR(XMLData), NSXMLDocumentTidyXML,nil);
end;

XmlContent.Lines.Add('Character Encoding: '+XmlDoc.characterEncoding.UTF8String);

procedure TFrmXml.GetDocumentProperties(Document: NSXMLDocument;
  PropList: TStrings);
var
  Version, Encoding, MimeType: NSString;
begin
  Version := Document.Version;
  if Assigned(Version) then
    PropList.Add('Version: ' + Version.UTF8String)
  else
    PropList.Add('Version: Unknown');
 
  Encoding := Document.characterEncoding;
  if Assigned(Encoding) then
    PropList.Add('Character Encoding: ' + Encoding.UTF8String)
  else
    PropList.Add('Encoding: Unknown');
 
  PropList.Add('Standalone: ' + BoolToStr(Document.isStandalone, true));
  case Document.documentContentKind of
    NSXMLDocumentXMLKind:  PropList.Add('Content Kind: XML');
    NSXMLDocumentHTMLKind: PropList.Add('Content Kind: HTML');
    NSXMLDocumentXHTMLKind:PropList.Add('Content Kind: XHTML');
    NSXMLDocumentTextKind: PropList.Add('Content Kind: Plain Text');
  end;
 
 MimeType:=Document.MIMEType;
  if Assigned(MimeType) then
    PropList.Add('MimeType: '+MimeType.UTF8String)
  else
    PropList.Add('MimeType: Unknown')

procedure GetRootInfo(Document: NSXMLDocument; PropList: TStrings);
var Root: NSXMLElement;
    Name, URI, XMLString: NSString;
begin
  Root:=Document.rootElement;
  if Assigned(Root) then
    begin
      Name:=Root.name;
      if Assigned(Name) then
        PropList.Add('Root Name: '+Name.UTF8String);
      URI:=Root.URI;
      if Assigned(URI) then
        PropList.Add('URI: '+URI.UTF8String);
      XMLString:=Root.XMLString;
      if Assigned(XMLString) then
        PropList.Add('XMLString: '+XMLString.UTF8String);
    end
  else
    PropList.Add('RRoot Element not assigned')
end;

procedure GetChilNodesNames(RootElement: NSXMLElement;
  NamesList: TStrings);
var i,count:integer;
    Node: NSXMLElement;
    childs: NSArray;
begin
 childs:=RootElement.children;
 count:=childs.count;
 for i:=0 to Count-1 do
   begin
     Node:=TNSXMLElement.Wrap(childs.objectAtIndex(i));
     NamesList.Add(Node.name.UTF8String);
     GetNodeAttributes(Node,NamesList);
   end;
end

procedure TFrmXml.GetNodeAttributes(XMLNode: NSXMLElement; AttrList: TStrings);
var Element: NSXMLElement;
    i:integer;
    AttrArray: NSArray;
    AttrNode: NSXMLNode;
begin
  AttrArray:=XMLNode.attributes;
  if Assigned(AttrArray) then
    begin
      for I := 0 to AttrArray.count-1 do
         begin
           AttrNode:=TNSXMLNode.Wrap(AttrArray.objectAtIndex(i));
           AttrList.Add('Attr Name: '+AttrNode.name.UTF8String+' Value: '+AttrNode.stringValue.UTF8String)
         end;
    end;
end;

type
  TMainForm = class(TForm)
    [...]
  private
    XmlDoc: NSXMLDocument;
    function LoadXmlFromFile(const Filename: string):NSXMLDocument;
    procedure GenerateTree;
    procedure ReadNodePropertys(XPath:string);
    procedure ReadAttributes(XPath:string);
  public
    { Public declarations }
  end;

procedure TMainForm.GenerateTree;
 
function AddNode(RTreeNode: TTreeViewItem; Element: NSXMLElement):TTreeViewItem;
begin
 Result:=TTreeViewItem.Create(RTreeNode);
 Result.Parent:=RTreeNode;
 Result.Text:=Element.name.UTF8String;
 Result.TagString:=Element.XPath.UTF8String;
 RTreeNode.AddObject(Result);
end;
 
procedure ProcessNode(Node: NSXMLElement; TreeNode: TTreeViewItem);
var childArr: NSArray;
    I: Integer;
    ChildNode: NSXMLElement;
    childTreeNode: TTreeViewItem;
begin
  if Node.childCount=0 then Exit;
  childArr:=Node.children;
  for I := 0 to childArr.count-1 do
    begin
      ChildNode:=TNSXMLElement.Wrap(childArr.objectAtIndex(i));
      if (ChildNode.kind=NSXMLDocumentKind)or(ChildNode.kind=NSXMLElementKind) then
        begin
          childTreeNode:=AddNode(TreeNode,ChildNode);
          if ChildNode.childCount>0 then
            ProcessNode(ChildNode,childTreeNode);
        end;
    end;
end;
 
var RootNode: NSXMLElement;
    TreeNode: TTreeViewItem;
    Arr: NSArray;
    I: Integer;
begin
  XMLTreeView.Clear;
  //добавляем корневой узел в TreeView
  RootNode:=XmlDoc.rootElement;
  TreeNode:=TTreeViewItem.Create(XMLTreeView);
  TreeNode.Parent:=XMLTreeView;
  TreeNode.Text:=RootNode.name.UTF8String;
  TreeNode.TagString:=RootNode.XPath.UTF8String;
  XMLTreeView.AddObject(TreeNode);
  //читаем дочерние узлы
  Arr:=RootNode.children;
  for I := 0 to Arr.count-1 do
    begin
      RootNode:=TNSXMLElement.Wrap(Arr.objectAtIndex(i));
      //обходим все дочерние узлы
      ProcessNode(RootNode,AddNode(TreeNode,RootNode));
    end;
end;

function AddNode(RTreeNode: TTreeViewItem; Element: NSXMLElement):TTreeViewItem;
begin
 [...]
 Result.TagString:=Element.XPath.UTF8String;
 [...]
end;

procedure TMainForm.XMLTreeViewClick(Sender: TObject);
begin
  ReadNodePropertys(XMLTreeView.Selected.TagString);
  ReadAttributes(XMLTreeView.Selected.TagString);
end;

procedure TMainForm.ReadNodePropertys(XPath: string);
var Arr: NSArray;
    Element:NSXMLElement;
begin
  Arr:=XmlDoc.nodesForXPath(NSSTR(XPath),nil);
  if Assigned(Arr) then
    begin
      Element:=TNSXMLElement.Wrap(Arr.objectAtIndex(0));
      NodeStrValue.Text:=Element.stringValue.UTF8String;
      CommonPropsGrid.Cells[1,0]:=Element.XPath.UTF8String;
      CommonPropsGrid.Cells[1,1]:=Element.name.UTF8String;
      CommonPropsGrid.Cells[1,2]:=Element.localName.UTF8String;
      CommonPropsGrid.Cells[1,3]:=IntToStr(Element.index);
      CommonPropsGrid.Cells[1,4]:=IntToStr(Element.childCount);
      CommonPropsGrid.Cells[1,5]:=IntToStr(Element.level);
    end;
end;
 
procedure TMainForm.ReadAttributes(XPath: string);
var Arr: NSArray;
    Element:NSXMLElement;
    Attributes: NSArray;
    I: Integer;
    AttrNode: NSXMLNode;
begin
  AttributesGrid.RowCount:=0;
  //получаем узлы по XPath
  Arr:=XmlDoc.nodesForXPath(NSSTR(XPath),nil);
  if Assigned(Arr) then
    begin
      Element:=TNSXMLElement.Wrap(Arr.objectAtIndex(0));
      Attributes:=Element.attributes;
      if Assigned(Attributes) then
        begin
          AttributesGrid.RowCount:=Attributes.count;
          for I := 0 to AttributesGrid.RowCount-1 do
            begin
              AttrNode:=TNSXMLNode.Wrap(Attributes.objectAtIndex(i));
              AttributesGrid.Cells[0,i]:=AttrNode.name.UTF8String;
              AttributesGrid.Cells[1,i]:=AttrNode.stringValue.UTF8String;
            end;
        end;
    end;
end;