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