Einzelnen Beitrag anzeigen

Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
824 Beiträge
 
Delphi 10.4 Sydney
 
#1

TXMLDocument kann nicht created werden

  Alt 24. Okt 2024, 14:04
Hallo Zusammen,

ich hänge an einem ganz doofen Fehler fest:
Ich arbeite das erste Mal mit xml-Files und möchte zwei Werte ändern. Nachdem ich jetzt lange erfolglos es versucht habe - inkl. Internetsuche, habe ich eine neues Projekt eröffnet. In diesem habe ich ein TXMLDocument auf das Form gelegt und es hat wunderbar geklappt.

Dann wollte ich das Ganze in mein eigentliches Project überführen und es klappt wieder nicht. Ich glaube das Ganze hängt an dem Create-Aufruf, obwohl dort nicht der Fehler auftritt. Denn wenn ich in dem TestProjekt das TXMLDocument Object wieder lösche und das ganze im Code create, klappt es nur, wenn ich dem Parent "Self" eintrage. Wenn ich wie in meinem eigentlichen Projekt "nil" eintrage, klappt es auch nicht. Das Ganze findet aber ein einer Klasse statt, sodass Self nicht funktioniert.

Delphi-Quellcode:
function TLogic.XMLEdit(xmlPfad: string; TargetPfad: string): Boolean;
var WmDKntn: IXMLNode;
      XMLDcmnt: TXMLDocument;
      NwVlDateien, NwVlWF_Name: string;
begin
   Try
      XMLDcmnt:= TXMLDocument.Create(xmlPfad);
      Try
         XMLDcmnt.LoadFromFile(xmlPfad);
         WmDKntn:= XMLDcmnt.DocumentElement;
         NwVlDateien:= StringReplace(WmDKntn.ChildNodes.FindNode('Dateien').ChildNodes.FindNode('Dateiname').NodeValue, '.zip','.xml',[rfIgnoreCase, rfReplaceAll]);
         NwVlWF_Name:= StringReplace(WmDKntn.ChildNodes.FindNode('WF_Name').ChildNodes.FindNode('WF_Name').NodeValue, '.zip','.xml',[rfIgnoreCase, rfReplaceAll]);
         WmDKntn.ChildNodes.FindNode('Dateien').ChildNodes.FindNode('Dateiname').NodeValue:= NwVlDateien;
         WmDKntn.ChildNodes.FindNode('WF_Name').ChildNodes.FindNode('WF_Name').NodeValue:= NwVlWF_Name;
         XMLDcmnt.SaveToFile(TargetPfad + NwVlDateien);
         Result:= true;
      Finally
         XMLDcmnt.Free;
      End;
   Finally
      Result:= false;
   End;
end;
Ich habe es auch schon mit
XMLDcmnt:= TXMLDocument.Create(xmlPfad);
versucht, aber das hatte keinen Einfluss.

Kann mir jemand sagen, was ich falsch mache?

Die Fehlermeldung besagt
Zitat:
Ungültige Zeigeroperation
Vielen Dank
Patrick
Patrick
  Mit Zitat antworten Zitat