Problema con SaveDialog

[krlox31416]

Buen día Efren2006 espero esto te pueda ayudar o por lo menos puedas hacer algunas modificaciones este codigo utiliza un componente ShellTreeView dependiendo de la ruta en que desees respaldar dale un click y despues dale aceptar(puedes ponerle el nombre que quieras al boton o bitbtn) deacuerdo al sig. código.

Código Delphi [-]
procedure TForm24.BitBtn1Click(Sender: TObject);
var PathDestino, Origen, aPath, Destino, my_mensaje : string;
sr: TSearchRec;// para definir el tipo de busqueda
begin
my_mensaje:='Y se han guardado en la siguiente ubicación.'+#13;
PathDestino := ShellTreeView1.SelectedFolder.PathName+'\[ Respaldo Base de Datos Sistema Caja ]'; //creamos el nombre de mi carpeta y concatenamos al directorio
if not DirectoryExists(PathDestino) then // verifica que no exista una carpeta con el nombre Respaldo al directorio destino
   begin
   aPath := 'C:\sistema_caja\base de datos\';//asignamos el origen de mis tablas
   if FindFirst(aPath + '*.db', faAnyFile, sr) = 0 Then  //busca el primer archivo .db o cualquiera
   repeat
   CreateDir(PathDestino); //Creamos el directorio ...................
   Origen := aPath+sr.Name;//directorio origen o path
   Destino :=  PathDestino+'\'+ sr.Name; //aqui agregamos las tablas a la carpeta
   CopyFile(PChar(Origen), PChar(Destino), False);// copiamos de mi origen al destino
   until FindNext(sr) <> 0;// hacer todo el recorrido hasta encontrar mi archivo
   SysUtils.FindClose(sr);//cerramos la busqueda del archivo
   Application.MessageBox('Las bases de datos se han respaldado ! ! ! ','Información',MB_ICONINFORMATION);
   MessageDlg( my_mensaje + ShellTreeView1.SelectedFolder.PathName + '\[ Respaldo Base de Datos Sistema Caja ]',mtInformation,[mbOK],0);
   end
   else
   begin
   Application.MessageBox('La carpeta ya existe.','Error',MB_ICONERROR);
   Application.MessageBox('Por el momento no es necesario respaldar en esta ubicación ! ! !','Suerte',MB_ICONINFORMATION);
   end;
end;

Nota: Si deceas guardar un excel o word basta cambiar la extención del archivo *.db por *.xls *.doc etc.

Saludos y espero que esto sea lo que buscas! : )

[afunez2007]

si Me das un email te envio el ejemplo y solo tendrias que reemplazar la rutina de backup con lo que utilizan los componentes que estas usando

[afunez2007]

Empezado por afunez2007

si Me das un email te envio el ejemplo y solo tendrias que reemplazar la rutina de backup con lo que utilizan los componentes que estas usando

es raro que digas que te da error, yo descargue el archivo y lo puedo abrir sin problemas

Saludos

[afunez2007]

Partiendo del hecho que lo quieres hacer usando los componentes IB podria ser asi:

Código Delphi [-]
  try
    IBBackupService1.Active := true;
    IBBackupService1.Options := [IgnoreLimbo]+[NoGarbageCollection]+[NonTransportable];
    IBBackupService1.BackupFile.Clear;
    IBBackupService1.BackupFile.Text:=edtRuta.Text;
    IBBackupService1.BackupFile.Create;
    IBBackupService1.ServiceStart;
    while not IBBackupService1.Eof do
    begin
      s := IBBackupService1.GetNextLine;
    end;
  finally
    ShowMessage('Copia de seguridad realizada con exito');
  end;

La unica desventaja es que solo puedes escoger rutas que esten en el servidor, ya que el servicio no puede transportar el archivo automaticamente a otra pc si lo estas haciendo desde en equipo remoto.

a diferencia de la otra opcion que te habia enviado con el gbak.

edtRuta.Text es un t edit que lo debes llenar con un Save dialog que llamas desde un boton con el siguiente codigo:

Código Delphi [-]
if dlgSave1.Execute then
begin
  edtRuta.Text:=dlgSave1.FileName;
end;

en el save dialog debes configurar las siguientes propiedades:
DefaultExt=*.fbk
Filter=FireBird Backup (*.fbk)|*.fbk

Saludos

[Efren2006]

Empezado por afunez2007

Partiendo del hecho que lo quieres hacer usando los componentes IB podria ser asi:

Código Delphi [-]
try
IBBackupService1.Active := true;
IBBackupService1.Options := [IgnoreLimbo]+[NoGarbageCollection]+[NonTransportable];
IBBackupService1.BackupFile.Clear;
IBBackupService1.BackupFile.Text:=edtRuta.Text;
IBBackupService1.BackupFile.Create;
IBBackupService1.ServiceStart;
while not IBBackupService1.Eof do
begin
s := IBBackupService1.GetNextLine;
end;
finally
ShowMessage('Copia de seguridad realizada con exito');
end;





La unica desventaja es que solo puedes escoger rutas que esten en el servidor, ya que el servicio no puede transportar el archivo automaticamente a otra pc si lo estas haciendo desde en equipo remoto.

a diferencia de la otra opcion que te habia enviado con el gbak.

edtRuta.Text es un t edit que lo debes llenar con un Save dialog que llamas desde un boton con el siguiente codigo:

Código Delphi [-]
if dlgSave1.Execute then
begin
edtRuta.Text:=dlgSave1.FileName;
end;





en el save dialog debes configurar las siguientes propiedades:
DefaultExt=*.fbk
Filter=FireBird Backup (*.fbk)|*.fbk

Saludos

Amigo

Gracias por tu ayuda, efectivamente asi como me lo describes lo estoy haciendo solo me faltaba era que el usuario me indicara la carpeta donde hiba a registrar el Backup, con la opcion que me dio ROMAN todo quedo muy bien.

Saludos