XML Header Neu ohne Zeichensatzangabe macht Probleme

[matashen]

Hallo zusammen,

ich hab in meinem Delphi 11 ein Programm neu compiliert das ich damals mit Delphi XE2 geschrieben habe.

Das XML Dokument das ich öffne und bearbeite hat vor dem Bearbeiten

Code:

<?xml version="1.0" encoding="utf-8"?>

Das hat mein altes Delphi auch wieder so weg geschrieben

beim Delphi 11 wird das encoding weg gelassen, was die Software der Gegenstelle mit einem Fehler meldet da es das Ecnoding haben will, bekomme aber beim schreiben nur noch

Code:

<?xml version="1.0"?>

Was muss ich beim TXMLDocument machen damit er das Encoding wieder schreibt.

Die DOMVendor hab ich schon alle durchprobiert, da ist es egal das Encoding wird immer weg gelassen. Den Source meiner Anwendung habe ich beim XML Part nicht mal geändert.

Evtl. Hat jemand eine Ahnung was ich da machen muss.

Gruß Matthias

[Klaus01]

.. ist das vielleicht hilfreich für Dich: https://stackoverflow.com/questions/...mldocument-xml

Grüße
Klaus

[AuronTLG]

Beim TXMLDocument bzw IXMLDocument kann gibt es das Attribut "Encoding", wo man "UTF-8" einfach reinschreiben kann.

Also einfach

Code:

AXMLDocument.Encoding := 'UTF-8';

Ups, hatte den Link noch nicht angeschaut.
Bei mir scheint das "Encoding" Attribut völlig ausreichend zu sein. Ich weiß jetzt gerade nicht, ob die Delphi-Version vielleicht noch eine Rolle spielen könnte, ich bin auf Delphi 12. Abgesehen davon verwende ich grundsätzlich IXMLDocument anstatt TXMLDocument, aber das sollte eigentlich keinen Unterschied machen.

[jaenicke]

Daran hat sich eigentlich gar nichts geändert. Wenn du LoadFromXML + SaveToXML nutzt, wird das Encoding nicht gelesen und geschrieben, wenn du LoadFromFile oder LoadFromStream und die entsprechenden Speicherroutinen verwendest, wird es verwendet. Beispiel:

Delphi-Quellcode:

var
  XmlDoc: IXmlDocument;
  Stream: TStringStream;
begin
  XmlDoc := TXmlDocument.Create(nil);
  try
    Stream := TStringStream.Create('<?xml version="1.0" encoding="utf-8"?><test></test>', TEncoding.UTF8);
    try
      XmlDoc.LoadFromStream(Stream);
    finally
      Stream.Free;
    end;

    Stream := TStringStream.Create('', TEncoding.UTF8);
    try
      XmlDoc.SaveToStream(Stream);
      ShowMessage(Stream.DataString);
    finally
      Stream.Free;
    end;
  finally
    XmlDoc := nil;
  end;
end;

Das Verhalten ist in XE2 und Delphi 11 identisch.