IXMLDocument.SaveToFile() रिक्त स्थान

Question

के बजाय इंडेंटेशन के लिए टैब वर्ण का उपयोग करता है मेरे पास एक एक्सएमएल फ़ाइल है, जिसे मूल रूप से स्पेस इंडेंट्स (प्रत्येक नेस्टेड आइटम के लिए 2 रिक्त स्थान) का उपयोग करके स्वरूपित किया जाता है।

जब मैं IXMLDocument का उपयोग करके इस फ़ाइल को लोड और सहेजता हूं, तो स्पेस इंडेंट टैब वर्णों (कोड # 9) में बदल रहे हैं।

यहाँ कोड है:

var 
    FileName: String; 
    Document: IXMLDocument; 
... 
Document := XMLDoc.LoadXMLDocument(FileName); 
Document.SaveToFile(FileName); 

मैं NodeIndentStr संपत्ति का उपयोग करने की कोशिश की है - कोई परिणाम:

Document := XMLDoc.LoadXMLDocument(FileName); 
Document.NodeIndentStr := ' '; 
Document.SaveToFile(FileName); 

भी प्रयुक्त FormatXMLData - कोई परिणाम:

Document := XMLDoc.LoadXMLDocument(FileName); 
Document.XML.Text := XMLDoc.FormatXMLData(Document.XML.Text); 
Document.Active := True; 
Document.SaveToFile(FileName); 

मैं कैसे कर सकता है टैब वर्णों के बजाय स्पेस इंडेंट्स के साथ सहेजें?

Answer 1

IXMLDocument में एक विकल्प है जहां पार्सर को सफेद रिक्त स्थान को संरक्षित करने के लिए कहा जा सकता है।

इस तरह यह प्रयोग करें:

Document.ParseOptions := 
    Document.ParseOptions+[poValidateOnParse]+[poPreserveWhiteSpace]; 

अस्वीकरण: मैं इसे करने की कोशिश नहीं की है।

Answer 2

मुझे यकीन नहीं है कि अलग क्या है लेकिन दस्तावेज़। पैरासेप्शन + [poValidateOnParse, poPreserveWhiteSpace]; मेरे लिए उपलब्ध नहीं था।

कुछ इसी तरह काम किया:

var 
    xmlDoc: IXMLDOMDocument2; 

xmlDoc := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument2; 
xmlDoc.validateOnParse := True; 
xmlDoc.preserveWhiteSpace := True;