Wie komm ich an das Encoding-Element?

[marabu]

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