Ver Mensaje Individual
  #1  
Antiguo 14-08-2006
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 22
FGarcia Va por buen camino
CopyFile String Pchar

Hola!

Antes de que me hechen bronca debo decir que ya busque en varios hilos y no encuentro una respuesta para esto de como usar el CopyFile pues tengo problemas con los tipos string y pchar. Mi codigo:

Código Delphi [-]
function TMDatos.CrearBackUp(DBAccessName: String): boolean;
var
  BackUpDir, BackUpFile, respaldo : string;
begin
  result := false;
  BackUpDir := RutaAPP + '\Respaldos\';
  BackUpFile := 'BkUP_' + DBAccessName;
  Respaldo := (BackUpDir + BackUpFile);
  if not FileExists(DBAccessName) then Exit;
  try
    {Creamos una copia del archivo
    El primer Parametro es el archivo origen, el segundo es el archivo destino
    El tercer parametro si es FALSE sobreescribe el fichero si existe }
    CopyFile(pChar(DBAccessName), PChar(Respaldo), False);
    Result := true;
  except
    Exit;
  end;
end;

la variable RutaApp es:
Código Delphi [-]
 
//Establecemos la ruta de la aplicacion
  RutaAPP := ExtractFilePath(ParamStr(0));

La intencion es crear un respaldo de una BD Access en otra carpeta diferente de donde esta la aplicacion (Respaldos). El problema con este codigo es que cuando verifico el result en otra parte de la aplicacion me dice que el respaldo fue hecho con exito sin embargo no se crea absolutamente nada.
Si creo el respaldo en la misma carpeta de la aplicacion todo funciona OK

Código Delphi [-]
CopyFile(pChar(DBAccessName), PChar(BackUpFile), False);

Gracias!
Responder Con Cita