IXMLDocument.SaveToFile() utiliza el carácter de tabulación para la sangría en lugar de espacios

Question

Tengo un archivo XML, que está formateado originalmente con sangrías de espacio (2 espacios para cada elemento anidado).

Cuando cargo y guardo este archivo utilizando IXMLDocument, las sangrías de espacio están cambiando a los caracteres de tabulación (código n. ° 9).

Aquí está el código:

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

He intentado utilizar NodeIndentStr propiedad - no hay resultados:

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

usados ​​FormatXMLData también - no hay resultados:

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

¿Cómo puedo guardar con sangrías de espacio en lugar de caracteres de tabulación?

Answer 1

Hay una opción en IXMLDocument donde se le puede decir al analizador que preserve los espacios en blanco.

utilizar de esta manera:

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

responsabilidad: yo no lo he probado.

Answer 2

No estoy seguro de qué es diferente pero Document.ParseOptions + [poValidateOnParse, poPreserveWhiteSpace]; no fue accesible para mí.

Algo similar funcionó:

var 
    xmlDoc: IXMLDOMDocument2; 

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