[firebase-br] Backup

[Moacir - GMail]

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
>
>