09:15
Le problème XML reporté par FBu est dû à une mauvaise utilisation du composant NativeXML qui est utilisé pour produire les fichiers XML.
En effet le service XT4 qui écrit un élément demande une écriture directe :
Le composant lui-même propose soit l'écriture directe soit l'écriture Escaped ://------------------------------------------------------------------------------
// XSX_AddElement - Ajoute un élement
// 06/08/2011 - XT400
//------------------------------------------------------------------------------
function XSX_AddElement(XML_Parent: TXMLNode; Element_Name, Element_Value: String): TXMLNode;
begin
Result := XML_Parent.NodeNew(Element_Name);
Result.ValueDirect := Element_Value;
end;
property ValueDirect: string read FValue write FValue;
// ValueDirect is the exact text value as was parsed from the stream. If multiple
// text elements are encountered, they are added to ValueDirect with a CR to
// separate them.
property ValueAsString: string read GetValueAsString write SetValueAsString;
// ValueAsString returns the unescaped version of ValueDirect. All neccesary
// characters in ValueDirect must be escaped (e.g. "&" becomes "&") but
// ValueAsString returns them in original format. Always use ValueAsString to
// set the text value of a node, to make sure all neccesary charaters are
// escaped.