Servicio con acceso a la red

[Casimiro Noteví]

No entiendo qué quieres hacer, usar gbak, sí, pero ¿hacer un backup de una base de datos en un servidor, desde un cliente?, si es eso, no hace falta tener ningún privilegio ni permiso en el servidor.

[xFas]

No no, el servicio corre en el servidor.

La intención es hacer una copia de seguridad de la base de datos y guardarla en una unidad en red

[Casimiro Noteví]

Para eso sólo has de usar el parámetro adecuado en gbak

-SE[RVICE] <servicename>
This switch causes gbak to backup a remote database via the service manager. This causes the backup file
to be created on the remote server, so the path format and filename must be valid on the remote server. The
servicename is currently always the text
service_mgr

Enlace al documento


También puedes hacer una búsqueda por los foros, es un tema tratado en diversas ocasiones.

[xFas]

Pero para que funcione ese parámetro ¿no tiene que estar instalado firebird en el equipo remoto?

Yo lo que necesito es que el servidor haga un backup de su base de datos, y esta sea almacenada en un equipo de la red que no tiene porque tener firebird.

Muchas gracias por la ayuda!

[Casimiro Noteví]

Pero para eso sólo has de indicarle la ruta:

gbak -b -t -v -user sysdba -password masterkey localhost:/datos/tubasedatos.fdb 192.168.1.100:/home/backups/elbackupdetubd.fbk

gbak -b -t -v -user sysdba -password masterkey localhost:c:\datos\tubasedatos.fdb 192.168.1.100:c:\backups\elbackupdetubd.fbk

[[Lepe]]

Lo que ha puesto Casimiro te sirve.

El servidor tendrá Firebird, por tanto ejecutará el gbak, hará la copia y lo enviará a otro ordenador remoto. En el remoto no tienes que instalar Firebird, bien puede ser una carpeta, otro ordenador, o un ftp.

[xFas]

Sigue sin funcionarme, os dejo código para que podáis ver lo que estoy intentando

Código Delphi [-]
try
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do begin
   fMask           := SEE_MASK_NOCLOSEPROCESS;
   Wnd             := 0;
   lpFile            := PWIDEChar(RegQueryStringValue('SOFTWARE\Firebird Project\Firebird Server\Instances', 'DefaultInstance')+'bin\gbak.exe');
   nShow          := SW_HIDE;
   lpParameters := PWIDEChar('-v -t -user SYSDBA -password "masterkey" LOCALHOST: DATABASE ' + 'REMOTE:/Programacion/Backup_Firebird');
  end;
  if ShellExecuteEx(@SEInfo) then begin
   repeat
    GetExitCodeProcess(SEInfo.hProcess, ExitCD);
   until (ExitCD <> STILL_ACTIVE) or (Terminated);
  end;