Работа с Xml в Delphi

[furstenberg]

[Error] DDDDD.pas(31): Not enough actual parameters
[Fatal Error] Project133.dpr(5): Could not compile used unit 'DDDDD.pas'

[Человек_Борща]

[Error] DDDDD.pas(31): Not enough actual parameters

ТоварищЪ, вы дальше чем "визуально", обьекты создавали? Там прямым текстом сказано "Нет нужных параметров", а ещё выпадающий список есть.. там аж 3 конструктора..

[furstenberg]

создать получилось через xml:= TNativeXml.CreateName('Root')
а вот загрузить xml -код из хелпа:

PHP код:

var
  ADoc: TNativeXml;
begin
  Memo1.Lines.Clear;
  ADoc := TNativeXml.Create;
  try
    ADoc.LoadFromFile('D:\temp\1\CD.xml');
    ADoc.XmlFormat := xfReadable;
    Memo1.Lines.Text := ADoc.WriteToString;
  finally
    ADoc.Free;
  end;
end; 


нет
Можно рабочий пример загрузки xml?

[furstenberg]

всё , разобрался ADoc := TNativeXml.Create(nil);
Спасибо тебе Человек Борщь.

[yuta_86]

господа как вытаскивать данные из xml документа с помощью Native ?

<dictionaries>
<measures>
<measure id="11" name="A" />
<measure id="12" name="В" />
<measure id="13" name="МВт" />
</measures>
</dictionaries>

как мне получить и вывести все id ?

XMLDoc: TNativeXml; //объект XML-документа
NodeList: TXmlNodeList;//список узлов

XMLDoc:=TNativeXml.Create;//создаем экземпляр класса
XMLDoc.LoadFromFile(XML);
if XMLDoc.IsEmpty then raise Exception.Create('Пустой XML! Работа прервана!!!');
NodeList:=TXmlNodeList.Create;
XMLDoc.Root.FindNodes(Edit2.Text,No deList);//получаем список узлов Item
Edit1.Text:=inttostr(Nodelist.Count );
ListBox1.Items.Clear;
for i:=0 to NodeList.Count-1 do
ListBox1.Items.Add(inttostr(NodeLis t.Items[i]....... и вот что тут писать?

не понятна объектная модель NaviteXML.... вроде много свойств и функций а найти нужное не могу т.к. не знаю куда копать.

[Человек_Борща]

<dictionaries>
<measures>
<measure id="11" name="A" />
<measure id="12" name="В" />
<measure id="13" name="МВт" />
</measures>
</dictionaries>

var
  xml:TNativeXML;
  i:Integer;
begin
try
  xml:=TNativeXML.Create(nil);
  xml.LoadFromFile('File.xml');
with xml.NodeByName('dictionaries') do
begin
  With NodeByName('measures') do
  begin
  for i:=0 to NodeCount-1 do
  begin
    with Nodes[i] do
    begin
    :=ReadAttribyteInteger('id',-1);
    :=ReadAttribyteString('Name','');
    end;
  end;
  end;
end;
finally
FreeAndNil(xml);
end;
end;

Вот так =) Ваше дело разобраться, как это работает.

[yuta_86]

у Txml:TNativeXML нет свойства

NodeByName
думаю может у нас разные версии NativeXML ??

[Человек_Борща]

Тогда нужно задать гл. нить xml.

xml:=TNativeXml.CreateName('dictionaries');

->

  With xml.root.NodeByName('measures') do
  begin
  for i:=0 to NodeCount-1 do
  begin
    with Nodes[i] do
    begin
    :=ReadAttribyteInteger('id',-1);
    :=ReadAttribyteString('Name','');
    end;
  end;
  end;

[yuta_86]

procedure TForm1.ParseXML(const XML: string);
var i :integer;
begin
XMLDoc:=TNativeXml.Create();//создаем экземпляр класса
XMLDoc.LoadFromFile('input.xml');
XMLDoc.CreateName('dictionaries');
with XMLDoc.Root.NodeByName('measures') do
begin
for i:=0 to NodeCount-1 do
begin
with Nodes[i] do
begin
ListBox1.Items.Add(inttostr(ReadAtt ribyteInteger('id',-1)));
ListBox1.Items.Add(ReadAttribyteStr ing('Name',''));
end;
end;
end;
end;

выдаёт ошибку [Error] Unit1.pas(58): Undeclared identifier: 'ReadAttribyteInteger'

[yuta_86]

и тоже самое с [Error] Unit1.pas(59): Undeclared identifier: 'ReadAttribyteString'