Hallo Armin,
es hat mir keine Ruhe gelassen. Klar steht im Platform-
SDK, dass ein eventuell spezifiziertes encoding beim Parsen nach UCS-2 gewandelt wird und
DOM-intern auch nur noch mit diesem encoding gearbeitet wird, aber es wäre doch schön, wenn man den Originalwert noch verfügbar hätte. Ich habe mir ein Beispiel an deiner Hartnäckigkeit genommen (du erinnerst dich?) und hier ist das Ergebnis:
Delphi-Quellcode:
function Encoding(doc: IXMLDOMDocument2): String;
var
n: IXMLDOMNode;
begin
with doc.firstChild as IXMLDOMProcessingInstruction do
begin
n := attributes.getNamedItem('encoding');
if Assigned(n)
then Result := n.nodeValue
else Result := '';
end;
end;
Grüße vom marabu