Copia de seguridad Delphi

[luna]

HOLA!!

He intentado hacer la copia por otro camino y me sale el siguiente error:
"cannot open AVI". Alguien sabe lo que significa??

Por cierto Julio, no te puedo ayudar porque sigo sin entender los parámetros de la función.

Gracias!!

[marcoszorrilla]

He intentado hacer la copia por otro camino y me sale el siguiente error:
"cannot open AVI". Alguien sabe lo que significa??

Cuando dices por otro camino, que quieres decir?, si quieres que te ayudemos nos tienes que ayudar tu también, dando más detalles y siendo más explícito.

Un Saludo.

[luna]

HOla!!!

Me dijeron que para hacer una copia de seguridad de dos tablas: alumnos.dbf y bancos.dbf sería
muy simple con el comando backupdatabase, pero no lo entiendo.

Entonces me pasaron un código, lo he arreglado un poco xo me sale el error de
cannot open AVI. El código es el siguiente. La primera función y el segundo procedimiento pertenecen
a una unidad y son llamados desde la unidad que contiene el tercer procedimiento.

Graciasssssssss

Código Delphi [-]
 
function TForm5.discolisto(drive:char):boolean;
 var ErrorMode:word;
 begin
  if drive in ['a'..'z'] then Dec(Drive,$20);
  if not (drive in ['A'..'Z'] )then
   raise EConvertError.Create('Unidad no válida');
  ErrorMode:=SetErrorMode(SEM_FailCriticalErrors);
  try
   if DiskSize(Ord(drive)-$40) = -1 then
    result:=false
     else result:=true;
  finally
   SetErrorMode(ErrorMode);
  end;
 end;
procedure TForm5.copiarTabla(const strFuente,strTarget:string);
 var hDB:HDBIDB;
 const SOBRESCRIBIR=Bool(TRUE);
 begin
  screen.cursor:=crHourglass;
  with TTable.Create(Application) do
   try
    DatabaseName:=extractFilePath(strFuente);
    TableName:=extractFileName(strFuente);
    ProgressBar1.Position:=10;
    open;
    ProgressBar1.Position:=15;
    hDB:=DBHandle;
    close;
    ProgressBar1.Position:=25;
    check(dbiCopyTable(hDB,SOBRESCRIBIR,pChar(strFuente),'DBASE',
pChar(strTarget)));
    ProgressBar1.StepBy(25);
   finally
    free;
    ProgressBar1.Position:=25;
    screen.cursor:=crDefault ;
    ProgressBar1.Position:=ProgressBar1.Max;
   end;
  end;
 end.
 
procedure TPRINCIPAL.CopiaClick(Sender: TObject);
begin
 origen:= origen1;
 destino:=destino1;
 if Form5.discolisto(des) then
  begin
   with Form5 do
    begin
    Show;
     animacion.active:=true;
     copiarTabla(origen,destino);
     Lcopia.Caption:='Copia realizada ';
     animacion.active:=false;
     close;
    end;
 end
 else
  MessageDlg('Introduzca disco',mtWarning,[mbOK],0);
end;

[__cadetill]

Dios!!!! pero como se le va la olla a la peña!!!!

luna, en serio, si sólo son 2 ficheritos..... has caso a Marcos y mírate el comando CopyFile

Si fuera todo una carpeta, en mi web tienes un truco (no recuerdo si el 1 o el 2 ) que te ayudará a copiar toda una carpeta

También tienes en mi web un programa para hacer backup que incluso te comprime los datos (usando la librería ZLib), pero repito, si sólo son 2 tablas... no te compliques la vida y usa lo que te comenta Marcos

[luna]

Hola otra vez!!!

Hemos entrado en tu pagina y el truco 2 está muy bien xo no lo entendemos del todo, de q parte podríamos prescindir o todo es absolutamente necesario para lo que necesitamos hacer??

buscamos lo del CopyFile en la ayuda de delphi xo no vienen ejemplos


Graciasssssssssss

[__cadetill]

Hola

Como te decía, eso es para copiar toda una carpeta y sus subcarpetas. Si es solo para 2 archivos y sabes la ruta y el nombre.....

Código Delphi [-]
CopyFile('FOrigen', 'FDestino', false);

[luna]

Hola!!

Somos muy pesadas, xo eso es lo que hemos hecho:

FOrigen:=' C:\Documents and Settings\MANUEL\Mis documentos\Home\DELPHI\Fuentes Ejercicios Delphi\Tablas\Bancos.dbf';
FDestino:=' C:\Documents and Settings\MANUEL\Mis documentos';
ok:=CopyFile(Pchar(FOrigen), Pchar(FDestino), false);
if ok then
MessageDlg('funciona',mtWarning,[mbOK],0);

¿Qué es lo que estamos haciendo mal? xq el mensaje de ok no se imprime y
x supuesto no copia nada

gracias de verdad.