Achja, ich und
XML Beim laden einer neuen
XML Datei aus der Anwendung heraus, bekomme ich die Fehlermeldung, das der Prozess nicht auf die Datei zugreifen kann. Ich übergebe den Dateinamen über einen Savedialog.
Delphi-Quellcode:
procedure Tfrm_main.Button1Click(Sender: TObject);
var
newBug, newSub: IXMLDOMNode;
begin
xmlDoc2 := CoDOMDocument40.Create;
xmlDoc2.setProperty('NewParser', true);
newBug := frm_main.xmldoc2.createElement('bug');
newSub := frm_main.xmldoc2.createElement('bezeichnung');
newSub.text := frm_main.ed_bugbez.Text;
newBug.appendChild(newSub);
...
frm_main.xmlDoc2.appendChild(newBug);
frm_main.xmlDoc2.save(SaveDialog1.FileName); // Hier kommt die Fehlermeldung
end;
Hier die Prozedur beim Neu anlegen einer Datei..
Delphi-Quellcode:
procedure Tfrm_main.Neu1Click(Sender: TObject);
begin
if SaveDialog1.Execute
then begin
FileCreate(SaveDialog1.FileName);
xmlDoc2 := CoDOMDocument40.Create;
xmlDoc2.setProperty('NewParser', true);
xmlDoc2.load(SaveDialog1.FileName);
lbl_open_list.Caption:=SaveDialog1.FileName;
xml_file:=SaveDialog1.FileName;
FocusControl(ed_bugbez);
end;
end;
Kann mir da jemand helfen?