Работа с XML как с деревом

[Padre_Mortius]

Понадобилась возможность работы с XML как с деревом. Если кому пригодиться. то собственно ссылка на сабж http://depositfiles.com/ru/rmv/1376557974369864

Данный невизуальный компонент был портирован из JVCL с некоторыми дополнениями и изменениями. Был проверен на кодировке Win1251.

[Attid]

ev перекачаешь на сервер ?

[Sergei I. Gorelkin]

А чем, если не секрет, родной модуль DOM не подошел?

[Padre_Mortius]

Нужна была поддержка Unicode. Не было возможности разобраться с компонентом DOM на предмет дописания нужных кодировок.

[ev]

http://freepascal.ru/download/JvXmlTree.pas

[Padre_Mortius]

Если будут нужны примеры использования данного компонента, то чуть позже выложу и их

[ViTality]

чет я непонял, то

Нужна была поддержка Unicode.

(в DOm все через widecharы делаеться)
но

Был проверен на кодировке Win1251.

[Padre_Mortius]

ViTality

Чтобы не быть голословным, попробуйте для начала открыть файл у которого прописана кодировка win1251.

Код: Выделить всё

<?xml version="1.0" encoding="windows-1251"?>

В версии fpc 2.2.0 у меня это не получилось. Наблюдал сообщение о том, что данная кодировка не поддерживается. Если у вас все работает. то я рад за вас

До уникода я еще не добрался. сейчас времени нет на проверку

[Padre_Mortius]

Это было во-первых, а во вторых у меня проект горит. очень уж он нужен с разбором xml-файлов и действий над ними, чтобы спокойно поддерживались кодировки win1251 и utf8 без бубна и танцев

[Sergei I. Gorelkin]

Да, пока что там поддерживаются только utf-8, utf-16 и iso8859-1.

[ViTality]

Тебя спросили чем не катит DOM
ты ответил что потомучто нужел был юникод, хотя в DOM все на widechar`ах

а переписаный тобой модуль ориентирован на работу с 1251

короче я прост запутался и решил уточнить

Вопрос: а Работа с XML как с деревом это всмысле:
я знаю имена нодов
и обращаюсь к ним в виде:

А:=документ\нод1\нод2\нод3.Значение
Б:=документ\нод1\нод2\нод4.Значение

чтото в этом роде???
п.с. модуль еще не смотрел

[Padre_Mortius]

Да именно.

Код: Выделить всё

var
  XmlDoc: TjvXmlTree;
  Node: TjvXmlNode;  
  Node1Value: AnsiString;
begin
  try
    XmlDoc := TjvXmlTree.Create('','', nil);
    XmlDoc.LoadFromFile(aFileName);
    Node := XmlDoc.FindNamedNode('nodeFirst');    
    Node1Value:=Node.GetNamePathNode('nodeFirst/nodeSecond').Value; 
  finally
    XmlDoc.Free;
  end;
end;

Но мне больше нравится обращаться с узлами немного по другому

Код: Выделить всё

var
  XmlDoc: TjvXmlTree;
  S: AnsiString;
begin
  try
    XmlDoc := TjvXmlTree.Create('','',nil);
    XmlDoc.LoadFromFile(FileName);
    S := XmlDoc.FindNamedNode('sen:Object').Value;
    if Length(S) <> 0 then UnBase64(S, FileName);
  finally
    FreeAndNil(XmlDoc);
  end;
end;