Foros Club Delphi - Backup/Restaurar

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Backup/Restaurar (https://www.clubdelphi.com/foros/showthread.php?t=67499)

Backup/Restaurar

Hola!

Podrían ayudarme en:

Estoy realizando un programa (Delphi con Base de Datos SQL Server 2000). Pues debo realizar al hace un click en un boton, me permita sacar el Backup a una unidad/dirección del Disco Duro que yo elija.

De la misma manera poder restaurarla cuando sea preciso.

Similar a la que se puede sacar el Backup y Restaurar el Sistema Operativo: Copia de seguridad y Restaurar Sistema.

La verdad no sé hacerla :o

Por favor...

Gracias

Hola sisne el tema de los resguardos no es sencillo para exponerlo en pocas líneas. Hay muchas cosas que tomar en cuenta como el espacio disponible, manejo de errores físicos que pudieran presentarse, compresión de datos, resguardo incremental, etc, etc...

Pero te hago un simple código de copia de archivos desde Delphi, como para que empieces a trabajar sobre él:

Código:

procedure TForm1.Button1Click(Sender: TObject);

const

  Ori = 'C:\CarpetaOrigen\';

  Des = 'C:\CarpetaDestino\'; // Des, puede reemplazarse por Edit1.Text x ej. 

var

  sr: TSearchRec;

begin

  CreateDir(Des);

  if FindFirst(ORI+'*.*',faAnyFile, sr)= 0 then

  begin

   repeat

     CopyFile(PAnsiChar(Ori+sr.Name),PAnsiChar(Des+sr.Name),false);

   until FindNext(sr) <> 0;

  end;

  FindClose(sr);

end;

Saludos.