TXMLDocument kann nicht created werden

[himitsu]

Delphi-Quellcode:

      XMLDcmnt := TXMLDocument.Create(xmlPfad);
      Try
         XMLDcmnt.LoadFromFile(xmlPfad);

Entweder schon beim Erstellen laden, oder erst später ... beides macht normal eigentlich niemand.
(ich würde den Parameter beim Create weglassen und nur LoadFromFile nutzen)

Und ja, das XMLDcmnt.Free weg und direkt als Interface die Variable. (wenn, dann maximal noch XMLDcmnt := nil; )


PS, bissl Kürzer wäre ReplaceStr, bzw, ReplaceText(XMLDcmnt.FileName, '.zip', '.xml') , aber eigentlich nutzt man doch ein ChangeFileExt(xmlPfad, '.xml') ?

Zitat:

Delphi-Quellcode:

   Finally
      Result:= false;
   End;

Das ergibt immer False ... wolltes du vielleicht ein Except?

Und wenn ja, dann schäm dich.
Fehlermeldungen blind wegzuwerfen und in garnichts oder nur einen Boolean zu konvertieren ... sowas gehört sich nicht.
* ordentiche Fehlermeldung
* oder wenigestens in ein Log schreiben

Was machst du denn außerhalb, bei einem False?

Delphi-Quellcode:

procedure TLogic.XMLEdit(xmlPfad: string; TargetPfad: string);
var WmDKntn: IXMLNode;
      XMLDcmnt: IXMLDocument;
      NwVlDateien, NwVlWF_Name, NwFlNm: string;
begin
      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);
end;

Die Interfaces geben sich selbst frei
und die Fehlermeldung wird automatisch angezeigt.

Und beim Aufruf des XMLEdit kann man entweder abbrechen und Fehlermeldung anzeigen lassen
oder dort mit einem Try-Except die Sache entsprechend der Anforderungen dort behandeln. (alternativen Code ausführen lassen oder die Fehlermmeldung manuell anzeigen)

[Ykcim]

Hallo himitsu,

vielen Dank für die guten Anregungen!

Zitat:

PS, bissl Kürzer wäre ReplaceStr, bzw, ReplaceText(XMLDcmnt.FileName, '.zip', '.xml') , aber eigentlich nutzt man doch ein ChangeFileExt(xmlPfad, '.xml') ?

Den Befehl kannte ich nicht - habe ich gerne übernommen.

Zitat:

Das ergibt immer False ... wolltes du vielleicht ein Except?

Stimmt, war ein Fehler!

Zitat:

Und wenn ja, dann schäm dich.
Fehlermeldungen blind wegzuwerfen und in garnichts oder nur einen Boolean zu konvertieren ... sowas gehört sich nicht.
* ordentiche Fehlermeldung
* oder wenigestens in ein Log schreiben

Ganz schön streng - finde ich aber gut, nur dann wird man besser!

Zitat:

Was machst du denn außerhalb, bei einem False?

Nur wenn ein True zurückgeliefert wird, wird die ursprüngliche Datei gelöscht. Der Benutzer sieht in drei FileListBoxes wie die Dateien bearbeitet und verschoben werden. In der FileListBox mit den ursprünglichen Download-Dateien soll am Ende nichts mehr drinstehen.

So sieht der ganze Ablauf aus jetzt aus:

Delphi-Quellcode:

procedure TFrm_BD_DHL.btn_ExtractDataClick(Sender: TObject);
var   Logic: TLogic;
      FList: TStringList;
      I: integer;
      EditResult: boolean;
begin
   Logic:= TLogic.Create;
   FList:= TStringList.Create;
   Try
      //Erst nur die ZIP-Files mit den PDF-Files
      Logic.GetAllFilesEM(edt_DownloadPath.Text, 'zip', FList, false);
      for I := 0 to FList.Count -1 do begin
         EditResult:= EditMoveWmDFiles(FList[I], edt_PDFPath.Text, edt_XMLPath.Text);
         if EditResult then begin
            DeleteFile(FList[I]);
         end;
         FlLstbx_Download.Update;
         FlLstbx_PDF.Update;
         FlLstbx_XML.Update;
      end;
      //Zum Schluss die XML-Files, damit sie nicht vor dem Ablegen der PDF-Files verarbeitet werden
      FList.Clear;
      Logic.GetAllFilesEM(edt_DownloadPath.Text, 'xml', FList, false);
      for I := 0 to FList.Count -1 do begin
         EditResult:= EditMoveWmDFiles(FList[I], edt_PDFPath.Text, edt_XMLPath.Text);
         if EditResult then begin
            DeleteFile(FList[I]);
         end;
         FlLstbx_Download.Update;
         FlLstbx_PDF.Update;
         FlLstbx_XML.Update;
      end;
   Finally
      Logic.Free;
      FList.Free;
   End;
end;

function TFrm_BD_DHL.EditMoveWmDFiles(FilePath, PDFPath, XMLPath: string): boolean;
var   Logic: TLogic;
begin
   Try
      Logic:= TLogic.Create;
      Try
         if LowerCase(ExtractFileExt(FilePath)) = '.zip' then begin
            Result:= Logic.ExctractZIP(FilePath, PDFPath);
         end;
         if LowerCase(ExtractFileExt(FilePath)) = '.xml' then begin
            Result:= Logic.XMLEdit(FilePath, XMLPath);
         end;
      Finally
         Logic.Free;
      End;
   Except
      Result:= false;
   End;
end;


function TLogic.ExctractZIP(ZipPfad, ExtractPfad: string): boolean;
var   ZFile: TZipFile;
begin
   Try
      ZFile:= TZipFile.Create;
      Try
         ZFile.Open(ZipPfad, zmRead);
         ZFile.ExtractAll(ExtractPfad);
         Result:= true;
      Finally
         ZFile.Free;
      End;
   Except
      Result:= false;
   End;
end;


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:= ChangeFileExt(ExtractFileName(xmlPfad), '.xml');
      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
      MessageDlg('Die Datei ' + xmlPfad + ' konnte nicht editiert werden. Bitte manuell eingreifen und den Administrator informieren.', mtError, [mbOK], 0);
      Result:= false;
   End;
end;

Vielen Dank
Patrick

[himitsu]

Zitat:

den Administrator informieren

Wenn jetzt noch die Exception.Message in dem Dialog oder einer Logdatei stünde, dann hatte der arme Admin einen Hinweis darauf, was nicht ging.

MessageBoxen zur Fehlerbehandlung haben den Nachteil, dass man außenrum nichts mehr machen kann.
Direkt mit Exceptions zu arbeiten hatt den Voreil, dass man beim Aufrufer reagieren kann.
* Zusatzinfos im Fehlertext
* oder eben nochmal Alternatives versuchen try Speichere; except SpeichereAndersOderWoanders; end; Wir hatten so eine Funktion erst im Client, welche in der x-ten Ebene versteckt mit einem ShowMessage den Fehler anzeigte.
Als diese Funktion dann in einem Dienst benutzt wurde, welcher keinen Zugriff auf einen Monitor hatte ... da blieb das Programm dann wunderschön hängen, ohne dass es tagelang jemand bemerkte ... und selbst danach, wusste erstmal niemand, warum es hängt.

[Ykcim]

Hallo himitsu,

dazu habe ich eine Frage - etwas out of topic.

Es handelt sich hierbei um eine Client-Server-App und ich sende Messages an den Client zwecks Logging. Aber wie kann ich einen Fehler melden und auch Exception-Daten verwenden, wenn try/except verwende.
Wie komme ich im except-Teil an die Exception, damit ich die Meldung verarbeiten kann? In der Vergangenheit habe ich meistens mit einem GlobalExceptionHandler gearbeitet...

Vielen Dank
Patrick

[AuronTLG]

Code:

Try
//...
Except on E : Exception
  Do Begin
     ShowMessage(E.Message);
     End;
End;

Vielleicht habe ich ja was missverstanden, aber diese Konstruktion hier sollte das doch tun, oder?
Logischerweise kann man alle möglichen Dinge mit der Exception dann machen...

[himitsu]

https://docwiki.embarcadero.com/RADS...tions_(Delphi)

Delphi-Quellcode:

except
  on E: Exception do begin
    MachWas(E.ClassName + ' ' + E.Message);
  end;
end;

Delphi-Quellcode:

except
  on E: Exception do
    if E is EFileError then
      MachWasAnderes(E.ClassName + ' ' + E.Message)
    else
      MachWas(E.ClassName + ' ' + E.Message);
end;

Delphi-Quellcode:

except
  on ESpecialError do
    Sonstwas;  // ja, Die Variable muß man nicht angeben, wenn man sie nicht braucht und sie muß nicht zwangsweise E heißen, aber 99,998% nennen sie so
  on E: EFileError do
    MachWasAnderes(E.ClassName + ' ' + E.Message);
  on E: Exception do
    MachWas(E.ClassName + ' ' + E.Message);
end;

Delphi-Quellcode:

except
  MachWas(Exception(ExceptObject).Message);
end;

finally
  if ExceptObject <> nil then
    MachWas(Exception(ExceptObject).Message);  // egal wo ... sobald ExceptObject nicht nil, ist man gerade irgendwo in einer Fehlerbehandlung
end;

aber psssssst

[Ykcim]

Vielen Dank!

Das werde ich versuchen in meine Apps einzubauen!

LG Patrick