Einzelnen Beitrag anzeigen

DerDan

Registriert seit: 15. Nov 2004
Ort: Donaueschingen
251 Beiträge
 
Delphi XE3 Professional
 
#5

AW: XML: Kopieren einer kompletten XML Struktor

  Alt 10. Aug 2012, 09:25
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
nichts ist so schön wie man es sich vorstellt
  Mit Zitat antworten Zitat