Приветствую, в XML не силен, нужно спарсить данные с файла сигнатур, набросал код с использование компонента SimpleXML, но выдает не все данные и с множеством пустых строк:
Код:
procedure TForm1.Button3Click(Sender: TObject);
var
aDoc: IXmlDocument;
anElem2: IXmlNode;
rez: array of string;
i: integer;
procedure PrintNode(Node: IXmlNode);
var
str: string;
j: word;
NodeList: IXmlNodeList;
begin
Memo2.Lines.Add(trim(Node.GetAttr('name')));
Memo2.Lines.Add(trim(Node.GetChildText('ext')));
NodeList := Node.ChildNodes;
if NodeList.Count > 0 then
for j := 0 to NodeList.Count - 1 do
PrintNode(NodeList.Item[j]);
end;
begin
// Создаем пустой документ XML
aDoc := CreateXmlDocument;
// Считываем из файла
aDoc.Load(ExtractFilePath(ParamStr(0)) + '\mime-types.xml');
PrintNode(aDoc);
end;
Код HTML:
-<mime-types>
<!-- ! Application primary type ! -->
-<mime-type name="application/andrew-inset">
<ext>ez</ext>
</mime-type>
-<mime-type name="text/html" description="Hypertext Markup Language (HTML)">
<ext>htm</ext>
<ext>html</ext>
<magic value="<HEAD" offset="0"/>
<magic value="<head" offset="0"/>
<magic value="<TITLE" offset="0"/>
<magic value="<HEAD" offset="0"/>
<magic value="<!doctype html" offset="0"/>
<magic value="<!DOCTYPE HTML" offset="0"/>
<magic value="<html" offset="0"/>
<magic value="<HTML" offset="0"/>
<magic value="<H1" offset="0"/>
<magic value="<h1" offset="0"/>
</mime-type>