Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Respaldos en Delphi (https://www.clubdelphi.com/foros/showthread.php?t=50074)

vick 07-11-2007 17:15:28

Respaldos en Delphi
 
QUE TAL A TODOS.

Me gustaría aprender a hacer respaldos en Delphi, esto en las diferentes unidades de almacenamiento tales como 3 1/2, CD, DVD, Disco Duro, Unidades Extraibles, etc.

Si alguien conoce del tema o pudiera recomendarme algun sitio relacionado con lo mencionado, se lo agradecería bastante.

De antemano, GRACIAS.

SALUDOS.

Lepe 07-11-2007 17:17:39

Un respaldo puede ser copiar los archivos (CopyFile) de un sitio a otro, nada más.

Si quieres comprimir, existen bibliotecas gratuitas como Zlib.

¿realmente cual es la duda?

Saludos

vick 07-11-2007 17:26:18

Mi duda es en cuestión de que yo poseo las tablas y deseo mediante código hacer el respaldo de ellas, entonces la verdad no sé como hacer el direccionamiento hacia la unidad de almacenamiento, ni los componentes o código que debo utilizar.

enecumene 07-11-2007 17:42:45

No se si te servira, pero quizas puedes usar la funcion CopyFrom, aqui un ejemplo sacado de la ayuda de delphi:

Código Delphi [-]
procedure TForm1.Save1Click(Sender: TObject);

var
  NewFileName: string;
  Msg: string;
  NewFile: TFileStream;
  OldFile: TFileStream;
begin
  NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
  Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
  if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
  begin
    OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
    try
      NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

      try
        NewFile.CopyFrom(OldFile, OldFile.Size);
      finally
        FreeAndNil(NewFile);
      end;
    finally
      FreeAndNil(OldFile);
    end;
  end;

end;

Saludos.

Neftali [Germán.Estévez] 07-11-2007 18:11:53

Intenta ser más específico; Dedica tiempo a explicar el problema.
No tiene nada que ver hacer un respaldo de tablas SQL Server o de tablas de una base de datos access o tablas planas XML,...


La franja horaria es GMT +2. Ahora son las 02:29:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi