以下問題 PRO 曾在2002年詢問過, 但無人回應. 我也遇到同樣的問題, 請問有任何高手可以回答嗎? 感激不盡... 我想利用XMLDocument 產生一份XML文件 裡面一開始是這樣的 ＜?xml version="1.0"?＞ ＜test xmlns="x-schema:s_test.xml"＞ ＜user＞ ＜name＞EF-A＜/name＞ ..... _____________________________________ 如果我用以下的程式碼來產生 var XMLInt : IDOMDocument; RootInt, NodeInt, ChildInt, AttrInt : IDOMNode; begin XMLDocument1.Active := False; XMLDocument1.XML.Text := ''; XMLDocument1.Active := True; XMLInt := XMLDocument1.DOMDocument; XMLDocument1.Version := '1.0'; XMLDocument1.Encoding := 'UTF-8'; RootInt := XMLInt.appendChild(XMLInt.createElement('test')); NodeInt := RootInt.appendChild(XMLInt.createElement('user')); ChildInt := NodeInt.appendChild(XMLInt.createElement('name')); AttrInt := XMLInt.createAttribute('xmlns'); AttrInt.nodeValue := 'x-schema:s_test.xml'; RootInt.attributes.setNamedItem(AttrInt); ...... _______________________________________ 那麼產生出來的xml會有一個問題 如下: ＜?xml version="1.0"?＞ ＜test xmlns="x-schema:s_test.xml"＞ ＜user xmlns=""＞ ＜name＞EF-A＜/name＞ ...... 原本應該在第三行產生 ＜user＞ 但是卻變成了 ＜user xmlns=""＞ 多了後面的東西，但是如果把 AttrInt := XMLInt.createAttribute('xmlns'); 中的 xmlns 改為其他字，就不會出現那樣的錯誤? 難道是 xmlns 不能當作是一般的 Attribute 來加入嗎? 那我該如何加入呢? 謝謝！

那個xmlns應該是元件自己加上去的 以下程式試過可以產生你要的格式 可完全自己控制 (D6/7)    

uses XMLIntf, XMLDoc;    procedure TForm1.Button1Click(Sender: TObject);
var
  RootInt, NodeInt, ChildInt: IXMLNode;
  XMLDocument1: TXMLDocument;
begin
  XMLDocument1:=TXMLDocument.Create(self);
  XMLDocument1.Active := False;
  XMLDocument1.XML.Text := '';
  XMLDocument1.Active := True;
  XMLDocument1.Version := '1.0';
  XMLDocument1.Encoding := 'UTF-8';
  XMLDocument1.Options:=[doNodeAutoIndent];
  RootInt:=XMLDocument1.AddChild('test');
  RootInt.Attributes['xmlns']:='x-schema:s_test.xml';
  NodeInt:=RootInt.AddChild('user');
  ChildInt:=RootInt.AddChild('name');
  ChildInt.NodeValue:='EF-A';
  XMLDocument1.SaveToFile('C:\test.xml');    end;    

＠瞭解越多.懂得越少＠

引言: 那個xmlns應該是元件自己加上去的 以下程式試過可以產生你要的格式 可完全自己控制 (D6/7)

uses XMLIntf, XMLDoc;    procedure TForm1.Button1Click(Sender: TObject);
var
  RootInt, NodeInt, ChildInt: IXMLNode;
  XMLDocument1: TXMLDocument;
begin
  XMLDocument1:=TXMLDocument.Create(self);
  XMLDocument1.Active := False;
  XMLDocument1.XML.Text := '';
  XMLDocument1.Active := True;
  XMLDocument1.Version := '1.0';
  XMLDocument1.Encoding := 'UTF-8';
  XMLDocument1.Options:=[doNodeAutoIndent];
  RootInt:=XMLDocument1.AddChild('test');
  RootInt.Attributes['xmlns']:='x-schema:s_test.xml';
  NodeInt:=RootInt.AddChild('user');
  ChildInt:=RootInt.AddChild('name');
  ChildInt.NodeValue:='EF-A';
  XMLDocument1.SaveToFile('C:\test.xml');    end;    

＠瞭解越多.懂得越少＠

Thank you Chris_shieh reply. 但是我用的是IXMLDocument 不是 TXMLDocument. 此行程式 RootInt.Attributes['xmlns']:='x-schema:s_test.xml'; 在IXMLDocument 會有問題. 可否請您繼續指教. 預先謝謝您.

以下試過效果一樣可正確執行

uses XMLIntf, XMLDoc;    procedure TForm1.Button1Click(Sender: TObject);
var
  RootInt, NodeInt, ChildInt: IXMLNode;
  ixml:IXMLDocument;
begin
  ixml:=NewXMLDocument;
  RootInt:=ixml.AddChild('test');
  RootInt.Attributes['xmlns']:='x-schema:s_test.xml';
  NodeInt:=RootInt.AddChild('user');
  ChildInt:=RootInt.AddChild('name');
  ChildInt.NodeValue:='EF-A';
  ixml.SaveToFile('C:\test.xml');
end;

＠瞭解越多.懂得越少＠

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.