| Clase
para crear archivos ZIP con Visual FoxPro 9
La clase ZIP.VCX esta desarrollada
en Visual FoxPro 9 y permite comprimir y descomprimir
archivos zip, para eso se usan las librerías
aZip32.dll y aUnZip32.dll. Esta librería
cuenta con la siguientes clases:
1.Clases
1.1 Interface
1.1.1 Compresión
1.1.1.1 Destino
1.1.1.2 Contraseña
1.1.1.3 Pestaña Incluir
1.1.1.4 Pestaña excluir
1.1.1.5 Comentario
1.1.2 Descompresión
1.1.2.1 Origen
1.1.2.2 Destino
1.1.2.3 Contraseña
1.3 Opciones
1.3.1 Modo de ompresión
1.3.2 Sobrescrinir
archivos en el zip
1.4 Metodos
y eventos
1.2 Zip
1.2???;?n`a?A ?a?a????.1
Metodos y eventos
1.2.1.1 Metodo Objeto.Comprimir()
1.2.1.2 Metodo Objeto.Descomprimir()
1.2.1.3 Metodo Objeto.Agregar(tcArchivo,
tcOpcion)
1.3 Nota SET PATH TO
-->
DESCARGAR ZIP.VCX, EJEMPLO Y DLL´S <--
CLASE: Zip.Interface
Esta clase permite a través de una interfase
grafica permite al usuario trabajar con archivos
zip a su antojo.
COMPRESIÓN
Destino:
Es la ruta y el nombre del archivo ZIP que se
generara, por ejemplo C:/prueba.zip, utilice el
botón “…” para especificar
el archivo.
Contraseña:
Permite proteger el archivo ZIP con una
contraseña, si desea ver la contraseña
ingresada haga clic en “Mostrar Contraseña”,
para ocultarla haga clic nuevamente.
Pestaña
“Archivos a incluir”: En esta
pestaña se agregan a la lista los archivos
a respaldar, para tal fin existen cuatro botones:
- Agregar archivo: permite agregar
un archivo a la lista
- Agregar carpeta:???;?n`a?A ?a?a????
Permite agregar todo el contenido de una carpeta,
para tal fin se usa el carácter *, por
ejemplo si queremos agregar todo el contenido
de una carpeta hacemos clic en el botón
Agregar carpeta, el nos muestra una ventana
donde seleccionamos la carpeta, luego nos muestra
la siguiente ventana
Si quisiéramos ingresar
todos los archivos cuyo nombre empezaran
con la letra “A” escribiríamos
I:\TRUCOS VFP\A*.*, si por el contrario
quisiéramos todos los archivos que
fueran de texto escribiríamos I:\TRUCOS
VFP\*.TXT, la opción I:\TRUCOS VFP\*.*
selecciona todos los archivos.
- Quitar: remueve de la lista de archivos el
que este seleccionado
- Limpiar: Quita de la lista todos los archivos
Pestaña
“Archivos a Excluir ”: Similar
a Archivos a incluir
Comentario:
permite agregar un comentario al archivo zip,
el botón “…” que esta
al lado permite cargar el comentario desde un
archivo de texto
DESCOMPRESIÓN
Origen:
Indica el archivo zip a descomprimir, para seleccionar
el origen haga clic en el botón “…”
que se encuentra al lado
Destino:
Especifica la carpeta en donde serán e???;?n`a?A
?a?a????xtraídos los archivos
Contraseña:
Permite desproteger el archivo ZIP en caso de
que lo estuviera
OPCIONES
Incluir sub-directorio:
hace la inserción de archivos recursiva
Incluir directorio: NO
DOCUMENTADA
Incluir directorio Vacíos:
NO DOCUMENTADA
Restaurar estructura:
Si es verdadera restaura las carpetas y subcarpetas,
de lo contrario extrae todos los archivos en el
directorio de destino y omite la estructura previa
Incluir archivos ocultos:
Si es verdadero agrega los archivos ocultos, de
lo contrario los omite
Incluir archivos del sistema
y solo lectura funcionan igugual que incluir
archivos ocultos
Modo
de compresión: La librería
aZip32.dll soporta cuatro niveles de compresión,
seleccione según su criterio, por defecto
se estable la Normal
Sobrescribir
archivos: estable la acción para
cuando los archivos a incluir ya existen en el
zip
Métodos
y propiedades de la clase Zip.Interface
 |
Comprimir:
Hace llamado al método comprimir
del objeto Zip1 y muestra resultados
Descomprimir:
Hace llamado al método descomprimir
del objeto Zip1 y muestra resultados
|
CLASE ZIP.ZIP
Esta clase se encarga de dar uso a las dll aZip32.dll
y aUnZip32.dll
Métodos
y propiedades de la clase Zip.Interface
 |
Propiedades
ArchivosExcluir
: Propiedad tipo texto que indica
los archivos que no se incluiran en el zip,
para mas de un archivo deben estar separados
por el signo | (chr(124) Ejemplo: "C:\autoexec.bat|C:\bott.ini"
ArchivosExtraer
: Propiedad tipo texto que indica
los archivos que no se extraeran del zip,
por defecto se extraeran todos (*.*), para
mas de un archivo deben estar separados
por el signo | (chr(124)
ArchivosIncluir
: Propiedad tipo texto que indica
los archivos que se incluiran en el zip,
para mas de un archivo deben estar separados
por el signo | (chr(124)
ArchivosZip
: Propiedad tipo texto que indica
la ruta???;?n`a?A ?a?a???? y nombre dela
rchivo zip a comprimir o descomprimir. Ejemplo
"C:\prueba.zip"
Comentario
: Propiedad tipo texto que contiene
el comentario que se agregara en el zip
Compresion
: Propiedad tipo entero que indica
indica el nivel de compresion del archivo,
3:Maximo, 2:Normal, 1:Minimo, 0:Ninguno
Contraseña
: Propiedad tipo texto que contiene
la contraseña del archvo zip a comprimir
o descomprimir
DirectorioDestino
: Propiedad tipo texto que estable
el directorio en donde los archivos seran
extraidos
EntrarDirectorio
: NO DOCUMENTADO
EntrarDirectorioVacio
: NO DOCUMENTADO
Fresehn
: NO DOCUMENTADO
GuardarEsctructura
: Propiedad tipo entero que indicasi
se guarda la estructura de los directorios,
1:Si, 0:No
IncluirArchivosDelSistema:
1:Si, 0:No
IncluirArchivosSoloLectura:
1:Si, 0:No
IncluirOcultos:
,1:Si, 0:No
MultiVolumenes
:1:Si, 0:No
RestaurarEstructura:
1:Si, 0:No
Sobrescribir
: 1:Si, 0:No
Subdirectorios
: 1:Si, 0:No
Metodos
Agregar
: Este metodo permite adicionar al
la lista de ArchivosIncluir nuevos arcivos,
revisando que no existan y agregando | para
separarlos, tiene dos parametros, el primero
es el archivo con su ruta, el segundo si
el archivo se incluira en la lista ArchivosIncluir
+, o en la lista ArchivosExcluir
- su uso es :
Objeto.Agregar('C:/archivo.000','+')
&&Agrega un archivo a ArchivosIncluir
Objeto.Agregar('C:/archivo.000','-')
&&Agrega un archivo a ArchivosExcluir
Comprimir:
Inica el proceso para comprimir archivos,
no requiere parametros y retorna el numero
de archivos procesados
Descomprimir:
Inica el proceso para descomprimir archivos,
no requiere parametros y retorna el numero
de archivos procesados |
Metodo
Objeto.Comprimir()
WITH
this
*!* Validando propiedades antes de Iniciar
DO CASE
CASE EMPTY(.ArchivoZip)=.t.
=MESSAGEBOX('No ha definido el archivo zip
de destino',0+48+0,'Zip destino')
RETURN 0
CASE EMPTY(.ArchivosIncluir)=.t.
=MESSAGEBOX('No ha incluido archivos para
comprimir',0+48+0,'Archivos a incluir')
RETURN 0
CASE FILE('aZip32.dll')=.f.
=MESSAGEBOX('No se ha encontrado el archivo
aZip32.dll',0+16+0,'Falta archivo')
RETURN 0
OTHERWISE
*!* Declarando metodos de la API de Windows
PRIVATE HWND
DECLARE INTEGER GetActiveWindow IN win32api
HWND = GetActiveWindow()
*!* Declarando metodos
y propiedades de la API aZIP32.dll
DECLARE addZIP_Initialise IN AZIP32
DECLARE SHORT addZIP_SetParentWindowHandle
IN AZIP32 SHORT HWindow
DECLARE SHORT addZIP_ArchiveName IN AZIP32
STRING @ sArchName
DECLARE SHORT addZIP_Include IN AZIP32 STRING
@ sFileName
DECLARE SHORT addZIP_Exclude IN AZIP32 STRING
@ seFileName
DECLARE SHORT addZIP_Recurse IN AZIP32 SHORT
nRecurse
DECLARE SHORT addZIP_SetCompressionLevel
IN AZIP32 SHORT nComprLvl
DECLARE SHORT addZIP_IncludeDirectoryEntries
IN AZIP32 SHORT nInclDir
DECLARE SHORT addZIP_IncludeEmptyDirectoryEntries
IN AZIP32 SHORT nInclEDir
DECLARE SHORT addZIP_Update IN AZIP32 SHORT
nUpdate
DECLARE SHORT addZIP_SpanSizes IN AZIP32
LONG @ ulFirst, LONG @ ulOther
DECLARE SHORT addZIP_Span IN AZIP32 SHORT
nSpan
DECLARE SHORT addZIP_Register IN AZIP32
STRING @ RegName, LONG RegNum
DECLARE SHORT addZIP_Encrypt IN AZIP32 STRING
@ sPassw
DECLARE INTEG???;?n`a?A ?a?a????ER addZIP
IN AZIP32
DECLARE INTEGER addZIP_Comment IN AZIP32
STRING @ lpStr
DECLARE INTEGER addZIP_SaveStructure IN
AZIP32 INTEGER Int16
DECLARE INTEGER addZIP_BuildSFX IN AZIP32
INTEGER iFlag
DECLARE INTEGER addZIP_IncludeHidden IN
AZIP32 INTEGER iFlag
DECLARE INTEGER addZIP_IncludeSystem IN
AZIP32 INTEGER iFlag
DECLARE INTEGER addZIP_IncludeReadOnly IN
AZIP32 INTEGER iFlag
*!* Iniciando proceso
addZIP_Initialise() && Iniciando
proceso
addZIP_IncludeHidden(IIF(.IncluirArchivosOcultos>1,1,.IncluirArchivosOcultos))
&& Incluir en el Zip Archivos Ocultos
addZIP_IncludeSystem(IIF(.IncluirArchivosSoloLectura>1,1,.IncluirArchivosSoloLectura))
&& Incluir en el Zip Archivos del
sistema
addZIP_IncludeReadOnly(IIF(.IncluirArchivosSoloLectura>1,1,.IncluirArchivosSoloLectura))&&
Incluir en el Zip Archivos de solo lectura
addZIP_SetParentWindowHandle(_screen.HWnd)
&& Handle
addZIP_Register(.RegistroUsuario,.RegistroLlave)
&& Registrando
addZIP_Recurse(IIF(.Subdirectorios=.t.,1,0))
&&Almacenar informacion de subdirectorios
addZIP_IncludeDirectoryEntries(IIF(.EntrarDirectorio=.t.,1,0))
&&
addZIP_IncludeEmptyDirectoryEntries(IIF(.EntrarDirectorioVacio=.t.,1,0))
&&
addZIP_SetCompressionLevel(ICASE(.Compresion<0,2,.Compresion>3,2,.Compresion))
addZIP_SaveStructure(ICASE(.GuardarEstructura<0,0,.Compresion>2,2,.GuardarEstructura))
addZIP_ArchiveName(.ArchivoZip) &&
Archivo de destino ZIP
addZIP_Include(.ArchivosIncluir) &&
Archivos a Incluir, separador por |
addZIP_Exclude(.ArchivosExcluir) &&
Archivos a excluir, separados por |
addZIP_Encrypt(.Contraseña) ???;?n`a?A
?a?a????&& Contraseña de
acceso
addZIP_Comment(.Comentario) && Comenatorio
en el archivo
addZIP_Span(.MultiVolumenes) &&
Multiples volumenes
RETURN addZIP() && Comprime y retorna
los archivos procesados
ENDCASE
ENDWITH
|
Metodo
Objeto.Descomprimir()
WITH
this
*!* Validando propiedades antes de Iniciar
DO CASE
CASE EMPTY(.ArchivoZip)=.t. OR FILE(.ArchivoZip)=.f.
=MESSAGEBOX('No ha definido el archivo zip
de origen o no exite',0+48+0,'Zip origen')
RETURN 0
CASE FILE('aUnZip32.dll')=.f.
=MESSAGEBOX('No se ha encontrado el archivo
aUnZip32.dll',0+16+0,'Falta archivo')
RETURN 0
OTHERWISE
*!* Declarando metodos de la API de Windows
PRIVATE HWND
DECLARE INTEGER GetActiveWindow IN win32api
HWND = GetActiveWindow()
*!* Declarando metodos
y propiedades de la API aUnZIP32.dll
DECLARE LONG addUNZIP IN aunzip32.DLL
DECLARE INTEGER addUNZIP_Abort IN aunzip32.DLL
INTEGER iFlag
DECLARE INTEGER addUNZIP_ArchiveName IN
aunzip32.DLL STRING filename
DECLARE INTEGER addUNZIP_Decrypt IN aunzip32.DLL
STRING cPassword
DECLARE INTEGER addUNZIP_DisplayComment
IN aunzip32.DLL INTEGER bFlag
DECLARE INTEGER addUNZIP_Exclude IN aunzip32.DLL
STRING FILES
DECLARE INTEGER addUNZIP_ExcludeListFile
IN aunzip32.DLL STRING cFile
DECLARE INTEGER addUNZIP_ExtractTo IN aunzip32.DLL
STRING cPath
DECLARE INTEGER addUNZIP_Freshen IN aunzip32.DLL
INTEGER iFlag
DECLARE INTEGER addUNZIP_GetLastError IN
aunzip32.DLL
DECLARE I???;?n`a?A ?a?a????NTEGER addUNZIP_GetLastWarning
IN aunzip32.DLL
DECLARE INTEGER addUNZIP_Include IN aunzip32.DLL
STRING FILES
DECLARE INTEGER addUNZIP_IncludeListFile
IN aunzip32.DLL STRING cFile
DECLARE addUNZIP_Initialise IN aunzip32.DLL
DECLARE INTEGER addUNZIP_InstallCallback
IN aunzip32.DLL STRING funnc
DECLARE INTEGER addUNZIP_Overwrite IN aunzip32.DLL
INTEGER iFlag
DECLARE INTEGER addUNZIP_Register IN aunzip32.DLL
STRING cName, LONG lNumber
DECLARE INTEGER addUNZIP_ResetDefaults IN
aunzip32.DLL
DECLARE INTEGER addUNZIP_RestoreAttributes
IN aunzip32.DLL INTEGER iFlag
DECLARE INTEGER addUNZIP_RestoreStructure
IN aunzip32.DLL INTEGER iFlag
DECLARE INTEGER addUNZIP_SetParentWindowHandle
IN aunzip32.DLL LONG HWND
DECLARE INTEGER addUNZIP_SetWindowHandle
IN aunzip32.DLL LONG HWND
DECLARE INTEGER addUNZIP_Test IN aunzip32.DLL
INTEGER iFlag
DECLARE INTEGER addUNZIP_ToMemory IN aunzip32.DLL
STRING lpStr, LONG Uint32
DECLARE INTEGER addUNZIP_Update IN aunzip32.DLL
INTEGER iFlag
DECLARE INTEGER addUNZIP_View IN aunzip32.DLL
INTEGER bFlag
*!* Iniciando proceso
addUNZIP_Initialise()
addUNZIP_SetParentWindowHandle(_screen.HWnd)
addUNZIP_Register(ALLTRIM(.RegistroUsuario),.RegistroLlave)
addUNZIP_Decrypt(.Contraseña)
addUNZIP_RestoreStructure(.RestaurarEstructura)
addUNZIP_Freshen(.Freshen)
addUNZIP_ArchiveName(.ArchivoZip)
addUNZIP_ExtractTo(ALLTRIM(FULLPATH(.DirectorioDestino)))
addUNZIP_Include(IIF(EMPTY(.ArchivosExtraer)=.t.,'*.*',.ArchivosExtraer))
addUNZIP_Overwrite(ICASE(.Sobrescribir>12,12,.Sobrescribir<10,10,.Sobrescribir))
RETURN addUNZIP()
ENDCASE
ENDWITH
|
Metodo
Objeto.Agregar(tcArchivo, tcOpcion)
LPARAMETERS
tcArchivo as String, tcOpcion as String
*!* Dando formato
a los parametros
tcArchivo=ALLTRIM(UPPER(TRANSFORM(tcArchivo)))
tcOpcion=ALLTRIM(UPPER(TRANSFORM(tcOpcion)))
WITH this
*!* Valida parametros
DO CASE
CASE tcArchivo$.ArchivosIncluir
=MESSAGEBOX('El archivo '+tcArchivo+' Ya
se ha agregado con anterioridad',0+48+0,'Archivo',3200)
OTHERWISE
*!* Segun opcion agrega a la lista de Inlcuir
o de escluir
DO CASE
CASE tcOpcion='+'
.ArchivosIncluir=.ArchivosIncluir+IIF(EMPTY(.ArchivosIncluir)=.f.,'|','')+tcArchivo
CASE tcOpcion='-'
.ArchivosExcluir=.ArchivosExcluir+IIF(EMPTY(.ArchivosExcluir)=.f.,'|','')+tcArchivo
OTHERWISE
=MESSAGEBOX('Error de parametro, A:Inlcuir
en zip, E:Excluir en zip',0+16+0,'Parametro',6400)
ENDCASE
ENDCASE
ENDWITH |
Nota:
Se debe especificar SET PATH TO 'Carpeta'
ADDITIVE donde Carpeta es la ubicacion de
las librerias aZip32.dll y aUnZip32.dll
, por ejemplo
Ruta relativa: SET
PATH TO FULLPATH(CURDIR()+'DLL') ADDITIVE
la dll se encuentra en el directorio por
defecto en la carpeta DLL si el directorio
por defecto fuera C:\MiApp, las dll estarian
en C:\MiApp\aZip32.dll y C:\MiApp\aUnZip32.dll
|
José
Guillermo Ortiz Hernández
Programador Visual FoxPro, WEB Developer
|
Microsoft explorer 6.0 