XML: Kopieren einer kompletten XML Struktor

[DerDan]

Hallo,


vielen Dank für diese Idee. Leider kommt baim Ausführen eine Exception:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt FrontendTest.exe ist eine Exception der Klasse EIntfCastError mit der Meldung 'Interface not supported' aufgetreten.

Code:

procedure TForm20.Button4Click(Sender: TObject);
var
  XMLCutprogramList  : IXMLCutprogramsType;
  XMLCutprogramCopy : IXMLCutprogramsType;
  XMLDocument  : IXMLDocument;
begin
  Memo1.Lines.Clear;
  // orig:
  XMLCutprogramList := LoadCutprograms(ed1.Text);
  Memo1.Lines.Add(Format ('orig. Count: %d', [XMLCutprogramList.Count]));

  XMLCutprogramCopy := LoadXMLData(XMLCutprogramList.XML).DocumentElement as IXMLCutprogramsType; // <<--- hier
  Memo1.Lines.Add(Format ('1 copy. Count: %d', [XMLCutprogramCopy.Count]));
  //Memo1.Lines.Add (XMLCutprogramList.XML);
end;

mfg

DerDan

[DerDan]

Hallo,

dein Hinweis mit dem Anschauen und deine anderen Hinweise habem mich auf diese Lösung gebracht:

Code:

procedure TForm20.Button4Click(Sender: TObject);
var
  XMLCutprogramList  : IXMLCutprogramsType;
  XMLCutprogramCopy : IXMLCutprogramsType;
  XMLDocument  : IXMLDocument;
begin
  Memo1.Lines.Clear;
  // orig:
  XMLCutprogramList := LoadCutprograms(ed1.Text);
  Memo1.Lines.Add(Format ('orig. Count: %d', [XMLCutprogramList.Count]));

  XMLDocument := LoadXMLData(XMLCutprogramList.XML);
  XMLCutprogramCopy := GetCutprograms(XMLDocument);
  Memo1.Lines.Add(Format ('1 copy. Count: %d', [XMLCutprogramCopy.Count]));
end;

und die Funktioniert. Vielen Dank

mfg

DerDan