[firebase-br] Backup
Moacir - GMail
prismars em gmail.com
Qui Set 10 08:03:15 -03 2009
Thiago,
Use o gbak para isto..
Ex.:
Procedure ExecuteProgram(Nome,Parametros, tipo:String);
Var
Comando : Array[0..1024] of Char;
Parms : Array[0..1024] of Char;
Begin
StrPCopy(Comando,Nome);
StrPCopy(Parms,Parametros);
If tipo='' then
Tipo:='=';
If tipo='+' then
ShellExecute(0,nil,Comando,Parms,nil,sw_showmaximized)
else if tipo='-' then
ShellExecute(0,nil,Comando,Parms,nil,SW_SHOWMINIMIZED)
else
ShellExecute(0,nil,Comando,Parms,nil,SW_SHOWNORMAL);
End;
.............
If lBkpExterno then
begin
sComando := ExtractFilePath(ParamStr(0))+'gbak.exe';
If Not FileExists(sComando) then
begin
end
else
begin
sParametros :='-b -v -t -user sysdba -password masterkey
'+NomeServidor+':'+CaminhoBanco+' '+sBkp;
ShowMessage('Por se tratar de servidor remoto o backup será
gerado em background.');
ExecuteProgram(sComando,sParametros,'-');
end;
Sucesso !!
Moacir
Thiago Balbino escreveu:
> Bom dia pessoal,
>
> Seguinte implementei no sistema a rotina da backup usando o componente
> IBBackupServive e IBRestoreService da Paleta Interbase Admin do Delphi
> 7, porém surgiu uma dúvida. Teria como eu fazer este backup pela rede?
> Exemplo:
>
> Meu banco (Arquivo.FDB) está no servidor 192.168.1.1, minha maquina é
> o IP 192.168.1.52, teria como eu fazer este backup salvando ele
> (Arquivo.FBK) na minha maquina, ou seja pegar do servidor e salvar em
> minha maquina por este componente?
>
> Caso não tenha voces sabem uma outra maneira de fazer isso ? Mesmo que
> não pelo delphi, gerar o arquivo .FBK pela rede.
>
> Desde já agradeço
> att
>
>
Mais detalhes sobre a lista de discussão lista