Hola a todos..

Tengo implementado esto:

       sNombre:= 'Datos_'+FormatDateTime('ddmmyyyy', Date)+ '.fbk';
       sLog:= 'Log_'+ FormatDateTime('ddmmyyyy', Date)+ '.log';
       sBack:= ExtractFilePath(Application.ExeName)+'gbak.exe';
       sPara:= '-v -t -user SYSDBA -password masterkey -y
'+Principal.cPathDB+sLog+ ' '+ Principal.cPathDB + Principal.cFileDB + '
'+ sDestino + sNombre;

       If FileExists(sDestino+sNombre) then
          MessageDlg('Aviso', 'Respaldo ya realizado', mtWarning, [mbOk], 0)
       else
         begin
           if ShellExecute (0,'open',PChar(sBack),PChar(sPara),nil,

SW_HIDE) <= 32 then
MessageDlg('Aviso', 'No se pudo realizar el respaldo', mtWarning, [mbOk], 0)
else
MessageDlg('Aviso', 'Respaldo realizado', mtWarning, [mbOk], 0);

           end;

que hasta hace pocos d�as me funcionaba ok... pero ahora, luego de unos cambios en la conexion a la bd, me dej� de andar. Sale el mensaje "respaldo realizado" pero oviamente el archivo no est�. Antes tenia la conexi�n con autocommit = false y ahora la tengo en true (uso ZEOS).
No veo que otro cambio haya tenido que ver....

O sino, de qu� otra forma? usando quiz�s alg�n componente? muchas gracias

El 09/11/2010 10:26 a.m., Paola Bruccoleri escribi�:

ok.. esto funcionaba bien mientras el nombre que le pon�a al path era de esta forma: d:\carpeta\; ahora.. si hac�a esto: 192.168.1.2:d:\carpeta no funcionaba correctamente el gbak por la ruta del archivo. Ahora ya separ� el hostname de la cadena del path a la base de datos y listo!
muchas gracias igual..
chauuuuuuuuuu

Paola, experimente rapidito con tu codigo y funciona bien. Ahora yo no uso el path de la base sino el alias.

procedure TDataModule1.BackupDB;
var
   BKPFolder, sNombre, sLog, sBack, sPara: string;
   p: TProcess;
begin
   BKPFolder := ExtractFileDir(Application.ExeName) + '\bkp\';
   if not DirectoryExists(BKPFolder) then
     MkDir(BKPFolder);
   sNombre := 'bkp_' + IBConnection1.DatabaseName + '_' +
     FormatDateTime('yyyyMMDD_HHmmss', Now) + '.fbk';
   sLog := 'Log_' + IBConnection1.DatabaseName + '_' +
     FormatDateTime('yyyyMMDD_HHmmss', Now) + '.log';
   sBack := ExtractFilePath(Application.ExeName) + 'gbak.exe';
   sPara := ' -v -t -user ' + IBConnection1.UserName + ' -password ' +
     IBConnection1.Password + ' -y ' + BKPFolder + sLog +
     ' ' + IBConnection1.DatabaseName + ' ' + BKPFolder + sNombre;
   if not FileExists(sBack) then
     MessageDlg('Aviso', 'Falta ejecutable de backup', mtWarning, [mbOK], 0)
   else
   begin
     p := Tprocess.Create(nil);
     p.Options := [poWaitOnExit, poNoConsole];
     p.CommandLine := sBack + sPara;
     p.Execute;
     p.Free;
     if FileExists(BKPFolder + sNombre) then
       MessageDlg('Aviso', 'Respaldo realizado', mtWarning, [mbOK], 0)
     else
       MessageDlg('Aviso', 'No se pudo realizar el respaldo', mtWarning,
[mbOK], 0);
   end;
end;

El 10/11/2010 12:50 p.m., Paola Bruccoleri escribi�:

El 10/11/2010 10:07 p.m., Hector S. Ponce escribi�:

Hola H�ctor..
veo que tu usas la clase tProcess.. es m�s eficiente que hacer un ShellExecute?
Claro, usando shellexecute me limito solo a windows... calculo que con el tprocess queda multiplataforma..

chauuuuuuuu

Shellexecute Only HuindoUS, Tprocess funcionara en caulquier SO.

El 10 de noviembre de 2010 19:14, Paola Bruccoleri < pbruccoleri en adinet.com.uy> escribi�:

siempre uso process y funciona bien, no solo en windows

El 10/11/2010 09:47 p.m., christian Ortiz escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20101110/9d741adb/attachment.html>