Sistema de BKP
boa tarde pessoal, alguem sabe me dizer como crio um sistema de bkp para meus arquivos apartir do Delphi, alguem tem um manuelzinhu ou algo parecedo...
muito obrigado!
flw!!!
muito obrigado!
flw!!!
Klaveren
Curtidas 0
Respostas
Gandalf.nho
02/03/2005
Use um componente de compressão como o [url=http://www.delphizip.net/index.html]Zipmaster[/url] ou similar
GOSTEI 0
Alexpaes
02/03/2005
no evento para criar o backup use isso
var
DirBac, DirDados, Comandos: string;
begin
timer1.enabled := false;
if application.MessageBox(´- CERTIFIQUE DE QUE TODOS OS TERMINAIS ESTEJAM FORA DO SISTEMA...´ + #1313 + ´- CONFIRMA INICIAR O BACKUP ? ´, ´Atenção´, mb_yesNo) = Id_yes then begin
//
dm.Db.connected := false;
dirBac := extractFilepath(application.exename) + ´Backup´;
if (fileexists(DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.exe´)) then begin
DeleteFile(DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.exe´);
end;
//Gerar Arquivo .exe para Backup
dirDados := extractFilepath(application.exename) + ´\Dados´;
ZipMaster1.ZipFileName := DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.zip´;
ZipMaster1.FSpecArgs.Add(dirDados + ´\*.GDB´);
ZipMaster1.Add;
ZipSFX1.DefaultExtractPath := ´C:\SoftGAYA\Dados\´;
ZipSFX1.FallbackExtractPath := ´C:\SoftGAYA\Dados\´;
ZipSFX1.SourceFile := DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.zip´;
ZipSFX1.TargetFile := DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.exe´;
ZipSFX1.ConvertToSFX;
if FileExists(DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.zip´) then DeleteFile(DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.zip´);
//Fim Gera Arquivo .exe para Backup
Showmessage(´Backup efetuado com sucesso !!´);
Close;
end else begin
t := 10;
timer1.enabled := true;
end;
end;
Neste procedimento eu crio um arquivo de Backup através do ZipMaster vrs. 178 criando um arquivo atuo-extraível, .exe....
Ele Compacta os arquivos *.gdb
Espero ter ajudado
var
DirBac, DirDados, Comandos: string;
begin
timer1.enabled := false;
if application.MessageBox(´- CERTIFIQUE DE QUE TODOS OS TERMINAIS ESTEJAM FORA DO SISTEMA...´ + #1313 + ´- CONFIRMA INICIAR O BACKUP ? ´, ´Atenção´, mb_yesNo) = Id_yes then begin
//
dm.Db.connected := false;
dirBac := extractFilepath(application.exename) + ´Backup´;
if (fileexists(DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.exe´)) then begin
DeleteFile(DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.exe´);
end;
//Gerar Arquivo .exe para Backup
dirDados := extractFilepath(application.exename) + ´\Dados´;
ZipMaster1.ZipFileName := DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.zip´;
ZipMaster1.FSpecArgs.Add(dirDados + ´\*.GDB´);
ZipMaster1.Add;
ZipSFX1.DefaultExtractPath := ´C:\SoftGAYA\Dados\´;
ZipSFX1.FallbackExtractPath := ´C:\SoftGAYA\Dados\´;
ZipSFX1.SourceFile := DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.zip´;
ZipSFX1.TargetFile := DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.exe´;
ZipSFX1.ConvertToSFX;
if FileExists(DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.zip´) then DeleteFile(DirBac + ´\Backup´ + Copy(Datetostr(date),1,2)+Copy(Datetostr(date),4,2)+Copy(Datetostr(date),7,4)+ ´.zip´);
//Fim Gera Arquivo .exe para Backup
Showmessage(´Backup efetuado com sucesso !!´);
Close;
end else begin
t := 10;
timer1.enabled := true;
end;
end;
Neste procedimento eu crio um arquivo de Backup através do ZipMaster vrs. 178 criando um arquivo atuo-extraível, .exe....
Ele Compacta os arquivos *.gdb
Espero ter ajudado
GOSTEI 0
Dopi
02/03/2005
Vale comentar que para copiar fisicamento o GDB ele deve estar fechado... para resolver isso é aconselhado usar o GBAK para criar um arquivo de Backup e depois compacta-lo... o arquivo ficará bem menor...
GOSTEI 0
Quartier
02/03/2005
Eu abaixei o zipmaster mas sou novo na area e não consigo instala-lo pois nunca instalei um componente na vida, alguem poderia me dar uma força
GOSTEI 0