Backup do banco de dados automático
Pessoal, estou querendo que ao desligar o programa o sistema faça o sistema automatico do banco de dados em uma pasta.
Como faço isso? Como deverei escrever a função?
Possuo os componentes RX que nao é nativo onde possui o componente no rx controls o filenameedit e o directoryedit. Será que poderei usar esses componentes pra isso?
[i:592fda5677]Título editado. Digite em minúsculas. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=2305903adfdc6e26749c7a21c01abd1d][u:592fda5677]Regras de Conduta[/u:592fda5677][/url]. (marcelo.c - Moderador)[/i:592fda5677]
Como faço isso? Como deverei escrever a função?
Possuo os componentes RX que nao é nativo onde possui o componente no rx controls o filenameedit e o directoryedit. Será que poderei usar esses componentes pra isso?
[i:592fda5677]Título editado. Digite em minúsculas. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=2305903adfdc6e26749c7a21c01abd1d][u:592fda5677]Regras de Conduta[/u:592fda5677][/url]. (marcelo.c - Moderador)[/i:592fda5677]
Poderoso
Curtidas 0
Respostas
Lordglacius
22/11/2003
Poder vc pode... o programa é seu.. hehehhe!!! :lol:
Mas o que tem a ver o FileNameEdit e o DirectoryEdit com isso?
O máximo que estes componentes vão fazer pra vc é indicar um caminho e/ou pasta onde vc vai fazer o backup. Seria legal ter isso numa janela de configuração de backup.
Agora se vc está perguntando o jeito que vai fazer o backup de seus dados já é outra coisa completamente diferente... :wink:
[]´s
Mas o que tem a ver o FileNameEdit e o DirectoryEdit com isso?
O máximo que estes componentes vão fazer pra vc é indicar um caminho e/ou pasta onde vc vai fazer o backup. Seria legal ter isso numa janela de configuração de backup.
Agora se vc está perguntando o jeito que vai fazer o backup de seus dados já é outra coisa completamente diferente... :wink:
[]´s
GOSTEI 0
Essistemas
22/11/2003
Meu amigo eu uso esta rotina para efetuar Backup automaticamente
ve se te ajuda !!
procedure TForm1.CriaDiretorio ;
var
Dir: string;
begin
Dir := VarPathBackup;
if not DirectoryExists(Dir) then
ForceDirectories(Dir);
end;
Var
Dir : String ;
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
if VarBackup =´True´ Then
begin
Try
Dir:=VarPathBackup ;
if not DirectoryExists(Dir) then
CriaDiretorio ;
I := FindFirst(´C:\Estoque\*.Gdb´, faAnyFile, SR);
while I = 0 do
begin
Application.ProcessMessages ;
if (SR.Attr and faDirectory) <> faDirectory then
begin
Origem := ´C:\Estoque\´ + SR.Name;
Destino := VarPathBackup + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), False) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
Except
on E: Exception do
begin
MensagemTela( ´ERRO Ao Tentar Realizar Backup Automático !.´, E.Message,
´Suporte: (0xx12)-31435707´+chr(13)+´ ou´+Chr(13)+
´ (0xx12)91559102´, 0 ) ;
Timer1.Enabled :=False ;
end;
end;
end;
end;
ve se te ajuda !!
procedure TForm1.CriaDiretorio ;
var
Dir: string;
begin
Dir := VarPathBackup;
if not DirectoryExists(Dir) then
ForceDirectories(Dir);
end;
Var
Dir : String ;
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
if VarBackup =´True´ Then
begin
Try
Dir:=VarPathBackup ;
if not DirectoryExists(Dir) then
CriaDiretorio ;
I := FindFirst(´C:\Estoque\*.Gdb´, faAnyFile, SR);
while I = 0 do
begin
Application.ProcessMessages ;
if (SR.Attr and faDirectory) <> faDirectory then
begin
Origem := ´C:\Estoque\´ + SR.Name;
Destino := VarPathBackup + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), False) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
Except
on E: Exception do
begin
MensagemTela( ´ERRO Ao Tentar Realizar Backup Automático !.´, E.Message,
´Suporte: (0xx12)-31435707´+chr(13)+´ ou´+Chr(13)+
´ (0xx12)91559102´, 0 ) ;
Timer1.Enabled :=False ;
end;
end;
end;
end;
GOSTEI 0