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