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;