TXMLDocument kann nicht created werden

[bcvs]

Ich create ein TXMLDocument immer mit einer Dummy-Componente als Owner, niemals mit nil, so wie hier beschrieben:
http://www.delphipraxis.net/185202-x...exception.html

[Ykcim]

Hallo Zusammen,

vielen Dank!!!

Ich bin gerade auch über diese Beitrag gestolpert, als ich mal nach "Delphi TXMLDocument.Create" gesucht habe...: https://stackoverflow.com/questions/...nent-on-the-fo


Ich habe es jetzt geändert und so scheint es zu funktionieren:

Delphi-Quellcode:

function TLogic.XMLEdit(xmlPfad: string; TargetPfad: string): Boolean;
var   WmDKntn: IXMLNode;
      XMLDcmnt: IXMLDocument;  //Änderung
      NwVlDateien, NwVlWF_Name, NwFlNm: string;
begin
   Try
      //XMLDcmnt:= TXMLDocument.Create(xmlPfad);  WEG
      Try
         //XMLDcmnt.LoadFromFile(xmlPfad);  WEG
         XMLDcmnt:= LoadXMLDocument(xmlPfad); //HINZU
         NwFlNm:= StringReplace(XMLDcmnt.FileName,'.zip','.xml',[rfIgnoreCase, rfReplaceAll]);
         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; WEG, weil nicht created
      End;
   Finally
      Result:= false;
   End;
end;

Vielen Dank
Patrick

[DeddyH]

Spinne ich, oder gibt die Funktion in jedem Fall false zurück?

[Ykcim]

Nein, du spinnst nicht

Ich hatte vergessen das letzte Finally noch in ein Except ändern... So sieht es jetzt aus!

Delphi-Quellcode:

function TLogic.XMLEdit(xmlPfad: string; TargetPfad: string): Boolean;
var   WmDKntn: IXMLNode;
      XMLDcmnt: IXMLDocument;
      NwVlDateien, NwVlWF_Name, NwFlNm: string;
begin
   Try
      if TargetPfad[Length(TargetPfad)] <> '\' then begin
         TargetPfad:= TargetPfad + '\';
      end;
      XMLDcmnt:= LoadXMLDocument(xmlPfad);
      NwFlNm:= ExtractFileName(StringReplace(XMLDcmnt.FileName,'.zip','.xml',[rfIgnoreCase, rfReplaceAll]));
      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;
   Except
      Result:= false;
   End;
end;

Vielen Dank an alle!!!
LG Patrick