XML Formatierungsproblem

[sko1]

Hallo,

mein erstelltes XML mit

Delphi-Quellcode:

var
  Xml: IXMLDOCUMENT;
begin
    Xml := NewXMLDocument;
    Xml.Encoding := 'utf-8';
    Xml.Options := [doNodeAutoIndent]; // looks better in Editor ;)

und meiner Unterfunktion

Delphi-Quellcode:

function AddNode(Node: IXMLNode; NodeName: string; NodeInhalt: string)
  : IXMLNode;
var
  UNode: IXMLNode;
begin
  // in den übergebenen Node wird der neue NodeName eingefügt
  try
    UNode := Node.AddChild(NodeName);
    UNode.Text := NodeInhalt;
    Result := UNode;
  except
    on E: Exception do
      LogAusgabe(E.ClassName + ' in AddNode : ' + E.Message);
  end;
end;

ergibt folgendes XML (Auszug):

<ramostalTradeAddress> <ramostcodeCode>12333</ramostcodeCode>
<ram:LineOne>Bahnhof-Straße 5</ram:LineOne>
<ram:CityName>Musterhausen</ram:CityName>
<ram:CountryID>DE</ram:CountryID>
</ramostalTradeAddress>

Man sieht das in der ersten Zeile ein Zeilenumbruch fehlt, irgendwas läuft da schief, aber was?
Mist, die Smileys müsst Ihr Euch als ':p' denken!

Ciao
Stefan

[Uwe Raabe]

Zitat von sko1:

Mist, die Smileys müsst Ihr Euch als ':p' denken!

Setz es doch in ein Code-Tag.

[Aviator]

Zitat von Uwe Raabe:

Zitat von sko1:

Mist, die Smileys müsst Ihr Euch als ':p' denken!

Setz es doch in ein Code-Tag.

Das wäre sicherlich die bessere Lösung. Es gibt aber auch noch die Möglichkeit, grafische Smileys zu deaktivieren. Siehe die Options-Checkboxen unter dem Editor beim Erstellen des Beitrages.

[himitsu]

Die inneren Nodes haben ein Ident + <Node...> + LineBreak (Ident = ' ')
und beim Äußeren fehlt das irgendwie.
Wenn ich dementsprechen die inneren Nodes entferne, dann bleibt nur noch <ram:PostalTradeAddress></ram:PostalTradeAddress> übrig.

z.B. das MS-XMLDOM steuert die Idents über zwischengeschobene Text-Nodes, mit dem Ident-Code (Leerzeichen/Tabulator und Zeilenumbruch).

Das von dir aktivierte AutoIdent macht sowas nur für neu eingefügt Nodes und den Teil, wo du deinen Root-Node erstellst, der ist scheinbar geheim.


pssst: FormatXMLData aus XMLDoc

[sko1]

Hier entsteht der Root-Node:

Delphi-Quellcode:

    Xml := NewXMLDocument;
    Xml.Encoding := 'utf-8';
    Xml.Options := [doNodeAutoIndent]; // looks better in Editor ;)
    CrossIndustryDocumentNode := Xml.AddChild('rsm:CrossIndustryDocument');

und alle weiteren Unternodes dann mit meiner Funktion AddNode

Ciao
Stefan