ZipForge will Datei nicht schreiben.

[Walter Landwehr]

Hallo Ich habe ein seltsames Phänomen.

Ich erstelle mit ZipForge eine Sicherungsdatei. Dies funktioniert bei allen Kunden bis auf einen.

ZipForge will einfach die Zip Datei nicht schreiben. Kunde hat neuen Rechner mit Windows 11 Pro.

Hier mein Code:

Delphi-Quellcode:

 ErgebnisLbl.Caption := 'Stufe 3: Sicherung wird auf Sicherungsmedium gespeichert.';
      SicherungZip.FileName := ToolsOperation.MakePathReady(Pfad2Edit.Text) + ProjectConstants.sApplicationShortName + Datum + '.zip';
      SicherungZip.OpenArchive(fmCreate);
      SicherungZip.BaseDir := copy(Pfad1Edit.Text, 0, Length(Pfad1Edit.Text) - 11);
      if (MandantenQry.FieldByName('PROTOKOLL').AsInteger = 0) or (MyComputerName = MandantenQry.FieldByName('Server').AsString) then
        SicherungZip.AddFiles(copy(Pfad1Edit.Text, 0, Length(Pfad1Edit.Text) - 11) + ProjectConstants.sApplicationShortName + Datum + '.fbk')
      else
         SicherungZip.AddFiles('\\' + MandantenQry.FieldByName('Server').AsString   + (copy(Pfad1Edit.Text, 3, Length(Pfad1Edit.Text) - 13) + ProjectConstants.sApplicationShortName + Datum + '.fbk'));

      SicherungZip.Options.OverwriteMode := omAlways;

      SicherungZip.UpdateFiles;
      ErgebnisLbl.Caption := 'Stufe3: Abgeschlossen';
      Application.ProcessMessages;

      if (SicherungZip.FileCount = 0) then  // [COLOR="Red"]ist bei dem einen Kunden immer 0[/COLOR]
      begin
        ToolsMyForm.WriteToHelpAndSolve('Während der Sicherung ist ein Fehler aufgetreten.', 'Bitte stellen Sie sicher, dass genügend Speicherplatz auf dem Ziellaufwerk zur Verfügung steht.');
        Result := False;
       end;
       except
         Result := false;
         BringToFront;
         Raise exception.create('Beim Sichern ist in Stufe 3 (Packen der DB) ein Fehler aufgetreten. Bitte informieren Sie Ihren Administrator.');
       end;
      SicherungZip.CloseArchive;

hat jemand einen Tip woran das liegen könnte?

[Walter Landwehr]

Danke hat sich erledigt. Habe den Fehler gefunden.

[Uwe Raabe]

Mal am Rande: Sollte das copy(Pfad1Edit.Text, 0, Length(Pfad1Edit.Text) - 11); nicht bei 1 statt 0 anfangen? Immerhin sind Strings in Delphi in der Regel 1-basiert, solange man das nicht umstellt. In dem Fall wäre aber das folgende copy(Pfad1Edit.Text, 3, Length(Pfad1Edit.Text) - 13) zu hinterfragen.

[himitsu]

PS: LeftStr