XML Document encoding

[Rolf Frei]

So wie sich dein Beitrag liest, machst du das ganze XML Handling selber ohne XMLDocument. Ja, in dem Fall musst das alles selber hin und her codieren. Mit der TXMLDocument Klasse passiert das aber automatisch gemäss dem Encoding Header und da kommt hinten immer ein fertiger Delphi String retour. (Müsste mich irren, wenn das nicht so wäre)

In diesem Fall hier geht es aber um das Erstellen einer XML Datei mit TXMLDocument und nicht dem Einlesen, wenn ich es richtig verstanden habe.

[KodeZwerg]

So decodiere ich:

Delphi-Quellcode:

var
   XmlDoc : OleVariant;
   Node   : OleVariant;
begin
  XmlDoc:= CreateOleObject(Msxml2_DOMDocument);
  try
    XmlDoc.Async := False;
    XmlDoc.LoadXML({Das XML Document hier rein});
    if (XmlDoc.parseError.errorCode <> 0) then
     raise Exception.CreateFmt('Error in Xml Data %s',[XmlDoc.parseError]);
    Node:= XmlDoc.documentElement;
    if not VarIsClear(Node) then
      Result := TEncoding.UTF8.GetString(TEncoding.ANSI.GetBytes(string(XmlDoc.Text)));
  finally
     XmlDoc:=Unassigned;
  end;
end;

Kodieren geht genauso nur rückwärts.

[Rolf Frei]

Ja so wie du das da direkt mit den MS XML Interfaces machst, musst du selber dafür sorgen, dass es richtig codiert. Die TXMLDocument Klasse würde dir diese Arbeit aber abnehmen und du könntest erst noch andere XML Engines nutzen, als die von MS.