Objekte in XML speichern

[marabu]

Hallo Andreas,

ich habe noch ein wenig über deinem Problem meditiert und bin für mich zu dem Schluß gekommen, dass eigentlich alle wichtigen Aspekte in deinem thread schon einmal angesprochen worden sind.

Dass dir die Serialisierung via SAX gefällt kann ich nachvollziehen. Dass du die Deserialisierung gerne auf die gleiche Weise realisieren möchtest auch. Wenn du weiterhin mit SAX die Persistenz über Methoden der persistenten Klassen bzw. Objekte realisieren willst, dann wird die TDemoClass so oder ähnlich aussehen müssen:

Delphi-Quellcode:

type
  TDemoClass = class(TInterfacedObject, IDispatch, IVBSAXContentHandler)
  private
    // IVBSAXContentHandler
    procedure _Set_documentLocator(const Param1: IVBSAXLocator); safecall;
    procedure startDocument; safecall;
    procedure endDocument; safecall;
    procedure startPrefixMapping(var strPrefix: WideString; var strURI: WideString); safecall;
    procedure endPrefixMapping(var strPrefix: WideString); safecall;
    procedure startElement(var strNamespaceURI: WideString; var strLocalName: WideString;
                           var strQName: WideString; const oAttributes: IVBSAXAttributes); safecall;
    procedure endElement(var strNamespaceURI: WideString; var strLocalName: WideString;
                         var strQName: WideString); safecall;
    procedure characters(var strChars: WideString); safecall;
    procedure ignorableWhitespace(var strChars: WideString); safecall;
    procedure processingInstruction(var strTarget: WideString; var strData: WideString); safecall;
    procedure skippedEntity(var strName: WideString); safecall;
    // IDispatch
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer;
      NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
    // other 
    // ...
  public
    SomeInteger: Integer;
    SomeString: String;
    DemoClass: TDemoClass;
    procedure Serialize(writer: IMXWriter);
    procedure Deserialize(reader: IVBSAXXMLReader);
    // class function Deserialize(reader: IVBSAXXMLReader): TDemoClass; // 
    destructor Destroy; override;
    procedure Show; // for debugging purposes
  end;

Eventuell brauchst du dann noch eine ähnlich aufgebaute HelperClass um das Henne-Ei-Problem zu umgehen oder die Methode Deserialize() muss als class function implementiert werden. Außerdem wird ein Stack für die Umschaltung des ContentHandler in der Methode Deserialize() benötigt.

Ob eine Implementierung auf Basis von DOM insgesamt weniger Lines-Of-Code aufweist, dass kann ich im Augenblick noch garnicht erkennen. Implementieren würde ich beides. Hinterher weiß man mehr.

Gute Nacht

marabu