Comprimir archivos con azip32.dll y descromprimir con aunzip32.dll

[Oscar Quiros Coto]

Buenos días.

Amigo, con las librerías azip32.dll y aunzip32.dll yo puedo comprimir y descomprimir.

El problema que tengo es que me sale de ves en cuando una leyenda que dice This is an **UNREGISTERED** component. You need purchase a licence to use this software

Quien de ustedes sabe donde comparar esta licencia, o quien me puede pasar un procedimiento de compresion/descompresion que lo haga parecido.

Tengo esto como una alternativa:

************************************

* COMPRIMIR

************************************

*cNuevoZip = "e:\Miarchivo\"+"MiArchivo.Zip" && Unidad y Nombre del Archivo a Generar

*cOrigen = "e:\HOWARD\PRUEBAS" && Direcrorio a Comprimir y/o Grabar

cNuevoZip = "c:\tmp\prueba2.zip" && Unidad y Nombre del Archivo a Generar

cOrigen   = "c:\tmp\zip" && Direcrorio a Comprimir y/o Grabar

Strtofile(Chr(0x50)+Chr(0x4B)+Chr(0x05)+Chr(0x06)+Replicate(Chr(0),18),cNuevoZip)

oShell = Createobject("Shell.Application")

For Each oArchi In oShell.NameSpace(cOrigen).Items

oShell.NameSpace(cNuevoZip).CopyHere(oArchi)

Endfor

[Ricardo Peña]

¿ vfpcompression.fll en portalfox no te sirve ?

Ricardo Luis Peña
Analista de Sistemas
BA - Argentina
011-15-4440-7378
 

Date: Wed, 19 Jun 2013 09:47:44 -0700
From: os...@ssoqc.com
To: publice...@googlegroups.com
Subject: [vfp] Comprimir archivos con azip32.dll y descromprimir con aunzip32.dll

[Douglas Sánchez]

Hola que tal para comprimir con AZIP32.DLL y AUNZIP32.DLL

CUALES=SYS(5)+SYS(2003)+"\DATOS\*.*"
    wait wind "Un Momento por favor..." at 15,25 nowait
    =AZIP32(.T.,archivo,CUALES)
    wait wind "OK!" at 15,25 time 1

Descomprimir:

PASO1=SYS(5)+SYS(2003)+"\DATOS\"
            Wait wind "Un Momento por favor..." at 15,25 nowait
            Close Tables all
            Close Database All
            borrar=SYS(5)+SYS(2003)+"\DATOS\*.*"
            =ADIR(LIMPIA,borrar)
            If ALEN(LIMPIA)>1  &&para borrar todos los archivos temporales
                HASTA=ALEN(LIMPIA)/5
                For i=1 TO HASTA
                    If subs(LIMPIA(i,1),1,7)#"FOXUSER"
                        Dele FILE SYS(5)+SYS(2003)+"\DATOS\"+LIMPIA(i,1)
                    Endif
                Next
            Endif
            =AUNZIP32(.t.,archivo,PASO1)

Saludes

Douglas

[Douglas Sánchez]

Se me olvido adjuntarte estos archivos.

Saludes

[jcagu...@gmail.com]

Reviviré este hilo. funciona perfecto para 32 bits, pregunta: Existe algo similar que no haya necesidad de registrar pero para 64 bits

[Cristian Novoa]

Y si usas 7-ZIP portable y lo llamas con ShellExecute o RUN ?