Ver Mensaje Individual
  #4  
Antiguo 11-03-2009
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
No conozco el componente (nunca lo he usado), pero me resulta raro lo siguiente:

Creo que en vez de ExtractFilename deberías usar ExtractFilePath para las rutas
(DLLDirectory, CreateDir y ExtrBaseDir)

Código Delphi [-]
   ...
   //DLLDirectory será el nombre de Archivo
   ZipMaster.DLLDirectory := ExtractFilename(Archivo);
   //ZipFileName TAMBIEN será el nombre de Archivo
   ZipMaster.ZipFileName := ExtractFilename(Archivo);
   //Creas un directorio que se llama C:\WINDOWS\TEMP\NombreDeArchivo
   CreateDir('C:\WINDOWS\TEMP\'+ExtractFilename(Archivo));
   //Utilizas un directorio que se llama C:\WINDOWS\TEMP\NombreDeArchivo
   ZipMaster.ExtrBaseDir := 'C:\WINDOWS\TEMP\'+ExtractFilename(Archivo);
   ...

Si Archivo='ARCHIVO.TXT';
Código Delphi [-]
   ...
   ZipMaster.DLLDirectory := 'ARCHIVO.TXT';
   ZipMaster.ZipFileName := 'ARCHIVO.TXT';
   CreateDir('C:\WINDOWS\TEMP\ARCHIVO.TXT');
   ZipMaster.ExtrBaseDir := 'C:\WINDOWS\TEMP\ARCHIVO.TXT';
   ...
Responder Con Cita