Как читать XML-файл в Delphi?

Question

Вот что я хочу сделать. Моя программа работает нормально с этим:

XMLText = '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>' + 
'<book xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">' + 
    '<title>Harry Potter</title>' + 
    '<author>J. K. Rowling.</author>' + 
    '<length>400</length>' + 
'</book>'; 


procedure TForm1.Button1Click(Sender: TObject); 
var 
XMLDoc: IXMLDOMDocument; 
Node, SibNode: IXMLDOMNode; 
begin 
    Memo1.Clear; 
    XMLDoc := CoDOMDocument.Create; 
    XMLDoc.loadXML(XMLText); 
end; 

Теперь я хочу, чтобы импортировать XML-файл с 6000 книг (books.xml) из одной и той же папке, где проект, вместо сопзЬ XMLText. Как я могу это сделать?

Спасибо! :)

Answer 1

Вариант 1: Загрузка непосредственно с диска

IXMLDomDocument имеет load метод, который принимает имя файла. Вы можете использовать этот метод вместо loadXML, который вы используете в настоящее время.

Вариант 2: загрузите файл в строку первой

В качестве альтернативы, вы можете загрузить файл в строку первым. В этом случае я вряд ли найду причину, но это никогда не повредит. :)

Посмотрите на TStringStream, в котором есть способ загрузки файла с диска LoadFromFile. Вы можете использовать его для загрузки всего books.xml в память. После загрузки файла вы можете передать свойство DataString объекта streamstreams методу loadXML. Это свойство возвращает все содержимое потока (содержащего XML) в виде строки.

Answer 2

Для этого используйте Delphi XML Data Binding Wizard.

Он сгенерирует единицу с объектами оболочки Delphi вокруг вашего XML-файла (или если у вас есть файл XSD, описывающий XML).

Эти упаковщики основаны на IXMLDocument, который очень похож на IXMLDOMDocument вы используете сейчас, и добавить слой вокруг него, что позволяет получить доступ к данным с дополнительной поддержкой от компилятора Delphi обычно делает процесс обработки данных внутри XML намного проще, чем использование простой IXMLDocument или IXMLDOMDocument.

Устройство содержит методы загрузки XML из файла или строки.

При использовании этого мастера есть good tutorial и nice video.

Answer 3

Просто измените loadXML на load('YourFileName.xml'):

procedure TForm1.Button1Click(Sender: TObject); 
var 
    XMLDoc: IXMLDOMDocument; 
begin 
    XMLDoc := CoDOMDocument.Create; 
    XMLDoc.load('MyBooks.xml'); 
    Memo1.Lines.Text := XMLDoc.xml; 
end;