[Aporte] OCX para descomprimir .zip

[Fito]

Hola Amigos:

Alguien conoce un OCX para descomprimir archivos zip, freeware?

Gracias. Saludos

Fito

[Kuk]

Fito, mira a ver estos OCX, vienen los 2, el Zip y el UnZip.

[Fito]

Hola KUK:

Ahi bajé los ocx, pero no los pude registrar, me da un error.

Saludos. Fito...

[Kuk]

Fito, juraría que lo había usado, aunque no me acuerdo exactamente y si es así, fue hace tiempo en XP o sea que puede ser que no sea compatible con SO posteriores.

Mira a ver esto: Ocx para comprimir archivos

[Lascu]

Hola
En el enlace podés bajar el SaxZip. Es un exe que te instala el ocx y un archivo help. Es el que yo uso en mis aplicaciones, es un poco tosco en la selección de archivos a comprimir pero funciona bien.

Este es un ejemplo del metodo zip

     MOVE "6110-8320691-02" TO "SerialNumber"    OF SAXZIP.  *> Evita la ventana que avisa que es un trial.
     MOVE "*.INX"           TO "IncludeFileMask" OF SAXZIP.
     MOVE WK-CARPETA-ORIGEN TO "SourceDirectory" OF SAXZIP.
     MOVE WK-NOMBRE-ZIP     TO "ZipFileName"     OF SAXZIP.
     MOVE 1 TO "Action" OF SAXZIP.                           *> 1 es el equivalente a saxZip_Add.
     *> Inicio el proceso de compresión.
     INVOKE SAXZIP "Add".

Se puede bajar desde
Dropbox - saxzip.exe

Saludos

Lascu

[Paulo]

Estou a precisar de um ocx para comprimir, por isso retomo este post.

Lascu, já baixei o SaxZip, mas verifiquei que já tem algum tempo, e o site do produtor já não existe.
Tenho uma questão: funciona em win 10 x64 e em Windows Server ?
Obrigado.

[Joseg]

Para quem quiser usar o 7zip.
Funciona muito bem.
Solução que cria uma cópia de segurança para pastas diferentes automaticamente, se for dia par ou ímpar.

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 WDATA        PIC 9(08).
 01 WDATA0 REDEFINES WDATA.
    03 WANO PIC 9999.
    03 WMES PIC 99.
    03 WDIA PIC 99.
 01 Q PIC 9(07).
 01 R PIC 9(07).
 
 01 WDATAx PIC X(03).
 
 01 wFolderDate   pic x(200) .
 01 wcmdl02       pic x(400).
 01 status-code   PIC S9(4) COMP-5.  
 PROCEDURE       DIVISION.
 
     MOVE "Text" OF CmText1 TO WDATA
     DIVIDE WDIA BY 2 GIVING Q REMAINDER R.
 
     IF R = 0
        MOVE "PAR" TO WDATAx
     ELSE 
        MOVE "IMP" TO WDATAx
     END-IF
 
     MOVE "Text" OF CmText1 TO WDATA
     move SPACES TO wFolderDate
 
     FBACKUP  *> pasta predefinida
 
     string FBACKUP delimited by "     "  "" delimited by size WDATAx delimited by size into wFolderDate
 
     string "7z a -tzip -y -pMyPassword " delimited by size wFolderDate delimited by "     "  
                             "\backup.zip " delimited by size 
                              '"' delimited by size FBACKUP delimited by "    "  "\f*" delimited by size 
                               '"' delimited by size into wcmdl02
     INVOKE POW-SELF "ExecuteSync" USING wcmdl02  POW-SWHIDE.
 
 
     EXIT PROGRAM.

[Paulo]

Já testei SaxZip em vários ambientes x86 e x64, em Win19 e Win Server, e funciona bem.