Open XMLでエラーが出ます (ID:45840)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になります。
Open XMLのサイト
http://www.delphipraxis.net/82664-openxml-xdom-4-1-tutorial.html
を見て、以下のテストプログラムを作ったのですがエラーが出ます。
DOMImplementation not specified.というエラーですがどう直せばいいんでしょうか？
----------
procedure TForm1.Button1Click(Sender: TObject);
var
   FDoc: TDomDocument;
   FNodeElement: TDomElement;
   FNodeText: TDomText;
   FNodeComment: TDomComment;
   var s: String;
begin
   FDoc := TDomDocument.Create(DomImplementation1);
   FNodeElement := TDomElement.Create(FDoc, 'RootNode');
   FDoc.AppendChild(FNodeElement);
   FNodeElement := TDomElement.Create(FDoc, 'NodeGroup');
   FDoc.FindFirstChildElement.AppendChild(FNodeElement);
   FNodeElement := TDomElement.Create(FDoc, 'Node1');
   FDoc.FindFirstChildElement.ChildNodes.Item(0).AppendChild(FNodeElement);
   FNodeText := TDomText.Create(FDoc);
   FNodeText.NodeValue := 'Text1';
   FDoc.FindFirstChildElement.ChildNodes.Item(0).FindFirstChildElement.AppendChild(FNodeText);
   FNodeElement := TDomElement.Create(FDoc, 'Node2');
   FDoc.GetElementsByTagName('NodeGroup').Item(0).AppendChild(FNodeElement);

FNodeText := TDomText.Create(FDoc);
   FNodeText.NodeValue := 'Text2';
   FDoc.GetElementsByTagName('Node2').Item(0).AppendChild(FNodeText);
   FDoc.FindFirstChildElement.SetAttribute('Attr1', 'Wert1');

with TDomElement(FDoc.GetElementsByTagName('NodeGroup').Item(0).ChildNodes.Item(1)) do
   begin
     SetAttribute('Attr2', 'Wert2');
     SetAttribute('Attr3', 'Wert3');
   end;
   FNodeComment := TDomComment.Create(FDoc);
   FNodeComment.NodeValue := 'Kommentar';
   FDoc.FindFirstChildElement.AppendChild(FNodeComment);

DomToXmlParser1.WriteToString(FDoc, 'UTF-8', s);//ここでエラーは発生
   Memo1.Text := s;
end;
----------

←解決時は質問者本人がここをチェックしてください。

戻る