Datenbankbackup (Paradox) lokal auf dem Rechner

[bernau]

Du kannst mit fileexists mal vorher prüfen, ob die Datei auch wirklich vorhanden ist.

Delphi-Quellcode:

Procedure SaveToZip(myFilename:string;myOutputStream:TStream);
var
  input:TFilestream;
begin
 if fileexist (myFilename)
 then begin
   try
      input:=TFileStream.Create(myFilename, fmOpenRead or fmShareDenyWrite);
      CompressStream(input, myoutputstream);
      input.Free;
    except end;
  end
 else
  begin 
   //Fehlermeldung
  end;
end;



 output:=TFileStream.Create(pfad+'\backup\database.zip', fmCreate);
 SaveToZip(pfad+'\Daten\stufe.db',output);
 SaveToZip(pfad+'\Daten\stufe.db',output);
 SaveToZip(pfad+'\Daten\anrede.db',output);
 //usw.