Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-01-2009
Avatar de ulice
ulice ulice is offline
Registrado
 
Registrado: oct 2008
Ubicación: Cuba
Posts: 6
Poder: 0
ulice Va por buen camino
Comprimir con Zipmaster

Saludo a todos.
Necesito ayuda para obtener archivos multivolúmenes comprimidos en el disco duro. Para ello, uso el componente Zipmaster. He logrado comprimir pero no dividir. No importa si el resultado es *.zip o *.rar Yo uso Delphi 7 y la versión de Zipmaster es zm179setup1004

Mis agradecimientos a todos por adelantado.

El código que he usado es el siguiente:

Código Delphi [-]
Procedure TF_MA.Comprimir;
var
Origen, Destino, Nombre: String;

begin
Nombre:= LE_NombreCoprimido.Text;
Origen:=LE_Dir_Origen.Text+'\*.*';
Destino:=LE_Dir_Destino.Text+'\';
ZipMaster1.DLLDirectory := ExtractFilePath( Application.ExeName );
ZipMaster1.ZipFileName := Destino+nombre+'.zip';
ZipMaster1.TempDir := Origen;
ZipMaster1.FSpecArgs.Clear;
ZipMaster1.FSpecArgs.Add(Origen);
try
ZipMaster1.Add;
except
raise exception.Create( 'Error al comprimir los archivos.' );
end;
end;

Última edición por ulice fecha: 05-01-2009 a las 16:46:26. Razón: Lograr comprimidos multivolumenes
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Comprimir Roxy188 Varios 1 23-09-2008 23:52:18
Comprimir y descomprimir con ZipMaster Espartaco OOP 2 22-02-2007 12:45:27
ZipMaster jmc2869 Varios 9 16-01-2007 10:50:43
Comprimir con UPX Mr.Vaka Varios 6 29-12-2005 14:00:50
comprimir un jpg User_baja1 Gráficos 1 08-07-2005 11:47:56


La franja horaria es GMT +2. Ahora son las 20:01:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi