Respaldos en Delphi

[vick]

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]]

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]

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]]

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]]

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,...