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:

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