Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   Software (https://www.cobolforo.es/forumdisplay.php?f=78)
-   -   [Aporte] OCX para descomprimir .zip (https://www.cobolforo.es/showthread.php?t=369)

Fito 13 de abril de 2016 23:55
OCX para descomprimir .zip
 
Hola Amigos:

Alguien conoce un OCX para descomprimir archivos zip, freeware?

Gracias. Saludos

Fito

Kuk 14 de abril de 2016 08:59
1 Archivos Adjunto(s)
Fito, mira a ver estos OCX, vienen los 2, el Zip y el UnZip.

Fito 14 de abril de 2016 23:25
Hola KUK:

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

Saludos. Fito...

Kuk 15 de abril de 2016 08:44
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 15 de abril de 2016 13:06
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

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

Se puede bajar desde
Dropbox - saxzip.exe

Saludos

Lascu

Paulo 13 de marzo de 2018 13:26
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 13 de marzo de 2018 16:36
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.

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 WDATA        PIC 9(08).
  5.  01 WDATA0 REDEFINES WDATA.
  6.     03 WANO PIC 9999.
  7.     03 WMES PIC 99.
  8.     03 WDIA PIC 99.
  9.  01 Q PIC 9(07).
  10.  01 R PIC 9(07).
  11.  
  12.  01 WDATAx PIC X(03).
  13.  
  14.  01 wFolderDate   pic x(200) .
  15.  01 wcmdl02       pic x(400).
  16.  01 status-code   PIC S9(4) COMP-5.  
  17.  PROCEDURE       DIVISION.
  18.  
  19.      MOVE "Text" OF CmText1 TO WDATA
  20.      DIVIDE WDIA BY 2 GIVING Q REMAINDER R.
  21.  
  22.      IF R = 0
  23.         MOVE "PAR" TO WDATAx
  24.      ELSE 
  25.         MOVE "IMP" TO WDATAx
  26.      END-IF
  27.  
  28.      MOVE "Text" OF CmText1 TO WDATA
  29.      move SPACES TO wFolderDate
  30.  
  31.      FBACKUP  *> pasta predefinida
  32.  
  33.      string FBACKUP delimited by "     "  "" delimited by size WDATAx delimited by size into wFolderDate
  34.  
  35.      string "7z a -tzip -y -pMyPassword " delimited by size wFolderDate delimited by "     "  
  36.                              "\backup.zip " delimited by size 
  37.                               '"' delimited by size FBACKUP delimited by "    "  "\f*" delimited by size 
  38.                                '"' delimited by size into wcmdl02
  39.      INVOKE POW-SELF "ExecuteSync" USING wcmdl02  POW-SWHIDE.
  40.  
  41.  
  42.      EXIT PROGRAM.

Paulo 3 de abril de 2018 15:02
Já testei SaxZip em vários ambientes x86 e x64, em Win19 e Win Server, e funciona bem.


La franja horaria es GMT +2. Ahora son las 13:03.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.