Thema: Delphi XML Document encoding

Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.081 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: XML Document encoding

  Alt 22. Apr 2021, 14:36
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.
Gruß vom KodeZwerg

Geändert von KodeZwerg (22. Apr 2021 um 14:39 Uhr)
  Mit Zitat antworten Zitat