Registriert seit: 29. Dez 2006
Ort: NRW
824 Beiträge
Delphi 10.4 Sydney
|
AW: TXMLDocument kann nicht created werden
24. Okt 2024, 14:38
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
Patrick
|
|
Zitat
|