HBZipFile, hb_UnZipFile y Meter

[Manuel Aranda]

Estoy pasando de FW a FWH y me he encontrado con el inesperado problema de las copias comprimidas, algo que tenia perfectamente implementado en FW. Buceando por estos lugares he logrado comprimir y descomprimir con HBZip pero estoy teniendo problemas para visualizar el proceso mediante un meter. ¿Alguien de Vds. me puede facilitar un ejemplo de copias ZIP con meter utilizando HBZip?

Un saludo,
Manuel Aranda

[carlos vargas]

prueba xbackup lite
puedes usar el codigo como gustes

http://www.megaupload.com/es/?d=RL9PL07U

mirate esta utilidad hecha con xharbour y fivewin for harbour
la hemos realizado kleyber derick y tu servidor.

salu2
carlos vargas

[Manuel Aranda]

Muchas gracias Carlos. La bajo y ya te contaré.

Un saludo,
Manuel

[Manuel Aranda]

Hola de nuevo Carlos:

Es una herramienta excelente y te vuelvo a dar las gracias por ponerla al servicio de la comunidad de foma desinteresada.
Estoy adaptándola a mis necesidades y me he encontrado con un problemilla que no acabo de solucionar y es que quiero prescindir de TSBROWSE y sustituirlo por un TXBROWSE o un ListBox. En xblite.prg solo he sustituido las lineas que te detallo más abajo y sin embargo la comprensión la hace correcta, pero en la descomprensión da error y no sé por qué. Le podrías echar una mirada al código sustituído, por favor.
Gracias de antemano.

Code: Select all  Expand view

/*
   REDEFINE Browse oBrowseZip ;
            ID 104 OF PAGE1 FONT oFont ;
            COLOR CLR_BLACK, CLR_YELLOW01

   oBrowseZip:SetArray( acFilesToZip )

   ADD COLUMN TO oBrowseZip Array ELEMENT 1 ;
   TITLE "Nombre" SIZE 140 ;
   FOOTER { || Transform( nTotalFilesToZip, "99,999 ficheros" ) }

   ADD COLUMN TO oBrowseZip Array ELEMENT 2 ;
   TITLE "Tamaño" ;
   SIZE 100 ;
   PICTURE "9,999,999.99 Kb" ;
   FOOTER { || Transform( nSizeFilesToZip, "9,999,999.99 KB" ) } ;
   ALIGN DT_RIGHT

   ADD COLUMN TO oBrowseZip Array ELEMENT 3 ;
   TITLE "Fecha" SIZE 70 ;
   ALIGN DT_CENTER

   ADD COLUMN TO oBrowseZip Array ELEMENT 4 ;
   TITLE "Ruta" SIZE 180
*/
   /*propiedades de objeto browse*/
/*
   WITH OBJECT oBrowseZip
      :nFreeze     := 1
      :lNoVScroll  := FALSE
      :nHeightHead := 18
      :nHeightCell := 18
      :nHeightFoot := 18
      :SetColor( { CLR_HEADF, CLR_FOOTF }, { { || CLR_BLUE }, { || CLR_RED } } )
   END WITH
*/

////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////
   oBrowseZip := TXBrowse():New(PAGE1)
   oBrowseZip : nMarqueeStyle := MARQSTYLE_HIGHLROW
   oBrowseZip : nColDividerStyle    := LINESTYLE_BLACK
   oBrowseZip : lColDividerComplete := .t.
   oBrowseZip : nHeaderLines      := 1
   oBrowseZip : nFooterLines      := 1
   oBrowseZip : nDataLines        := 1
   oBrowseZip : CreateFromResource(104)
   oBrowseZip : lFooter           := .t.
   oBrowseZip : nFreeze           := 1
   oBrowseZip : SetArray( acFilesToZip )

   oBrowseZip :aCols[1]:cHeader := "Nombre"
   oBrowseZip :aCols[1]:cFooter :=  STR( nTotalFilesToZip,5)+"   ficheros"
   oBrowseZip :aCols[1]:nDataStrAlign := AL_RIGHT
   oBrowseZip :aCols[1]:nHeadStrAlign := AL_CENTER
   //
   oBrowseZip :aCols[2]:cHeader := "Tamaño Kb"
   oBrowseZip :aCols[2]:cFooter :=  STR( nSizeFilesToZip,9,2)
   oBrowseZip :aCols[2]:nDataStrAlign := AL_RIGHT
   oBrowseZip :aCols[2]:nHeadStrAlign := AL_CENTER
   //
   oBrowseZip :aCols[3]:cHeader := "Fecha"
   oBrowseZip :aCols[3]:nDataStrAlign := AL_RIGHT
   oBrowseZip :aCols[3]:nHeadStrAlign := AL_CENTER
      //
   oBrowseZip :aCols[4]:cHeader := "Ruta"
   oBrowseZip :aCols[4]:nDataStrAlign := AL_RIGHT
   oBrowseZip :aCols[4]:nHeadStrAlign := AL_CENTER
////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////

   REDEFINE CHECKBOX oZipToFloppy ;
            VAR lZipToFloppy ;
            ID 105 OF PAGE1 ;
            ON CHANGE ( cFolderTargetZip := "", oFolderTargetZip:Refresh() )

   REDEFINE GET oFolderTargetZip ;
            VAR cFolderTargetZip ;
            ID 106 OF PAGE1 ;
            WHEN FALSE COLOR CLR_BLACK, CLR_MENTA2

   REDEFINE BUTTON oGetFolderTargetZip ;
            ID 107 OF PAGE1 ;
            ACTION SetFileZip()

   oFilesCountZip := TProgress() :Redefine( 108, PAGE1 )

   REDEFINE BUTTON oDoCompress ;
            ID 109 OF PAGE1 ;
            ACTION DoMakeZip( oBrowseZip )

   /*redefinicion de controles de pagina #2*/
   REDEFINE GET oSourceUnZip ;
            VAR cSourceUnZip ;
            ID 101 OF PAGE2 ;
            WHEN FALSE COLOR CLR_BLACK, CLR_MENTA2

   REDEFINE BUTTON oGetSourceUnZip ;
            ID 102 OF PAGE2 ;
            ACTION GetFileToUnZip( oBrowseUnZip )
/*
   REDEFINE Browse oBrowseUnZip ;
            ID 103 OF PAGE2 FONT oFont ;
            COLOR CLR_BLACK, CLR_YELLOW01

   oBrowseUnZip:SetArray( acFilesToUnZip )

   ADD COLUMN TO oBrowseUnZip Array ELEMENT 1 ;
   TITLE "Nombre" SIZE 140 ;
   FOOTER { || Transform( nTotalFilesToUnZip, "99,999 Ficheros" ) }

   ADD COLUMN TO oBrowseUnZip Array ELEMENT 2 ;
   TITLE "Tamaño Normal" ;
   SIZE 100 ;
   PICTURE "9,999,999.99 KB" ;
   FOOTER { || Transform( nSizeFilesToUnZip, "9,999,999.99 KB" ) } ;
   ALIGN DT_RIGHT

   ADD COLUMN TO oBrowseUnZip Array ELEMENT 3 ;
   TITLE "Tamaño Comp." ;
   SIZE 100 ;
   PICTURE "9,999,999.99 KB" ;
   FOOTER { || Transform( nSizeFilesToUnZipC, "9,999,999.99 KB" ) } ;
   ALIGN DT_RIGHT

   ADD COLUMN TO oBrowseUnZip Array ELEMENT 4 ;
   TITLE "Fecha" SIZE 70 ;
   ALIGN DT_CENTER

   ADD COLUMN TO oBrowseUnZip Array ELEMENT 5 ;
   TITLE "Ruta" SIZE 180
*/
   /*propiedades de objeto browse*/
/*
   WITH OBJECT oBrowseUnZip
      :nFreeze     := 1
      :lNoVScroll  := FALSE
      :nHeightHead := 18
      :nHeightCell := 18
      :nHeightFoot := 18
      :SetColor( { CLR_HEADF, CLR_FOOTF }, { { || CLR_BLUE }, { || CLR_RED } } )
   END WITH
*/
////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////
   oBrowseUnZip := TXBrowse():New(PAGE2)
   oBrowseUnZip : nMarqueeStyle := MARQSTYLE_HIGHLROW
   oBrowseUnZip : nColDividerStyle    := LINESTYLE_BLACK
   oBrowseUnZip : lColDividerComplete := .t.
   oBrowseUnZip : nHeaderLines      := 1
   oBrowseUnZip : nFooterLines      := 1
   oBrowseUnZip : nDataLines        := 1
   oBrowseUnZip : CreateFromResource(103)
   oBrowseUnZip : lFooter           := .t.
   oBrowseUnZip : nFreeze           := 1
   oBrowseUnZip : SetArray( acFilesToUnZip )

   oBrowseUnZip :aCols[1]:cHeader := "Nombre"
   oBrowseUnZip :aCols[1]:cFooter :=  STR( nTotalFilesToUnZip,5)+"   ficheros"
   oBrowseUnZip :aCols[1]:nDataStrAlign := AL_RIGHT
   oBrowseUnZip :aCols[1]:nHeadStrAlign := AL_CENTER
   //
   oBrowseUnZip :aCols[2]:cHeader := "Tamaño Normal"
   oBrowseUnZip :aCols[2]:cFooter :=  STR(nSizeFilesToUnZip,9,2)
   oBrowseUnZip :aCols[2]:nDataStrAlign := AL_RIGHT
   oBrowseUnZip :aCols[2]:nHeadStrAlign := AL_CENTER
   //
   oBrowseUnZip :aCols[3]:cHeader := "Tamaño Compr."
   oBrowseUnZip :aCols[3]:cFooter :=  STR(nSizeFilesToUnZipC,9,2)
   oBrowseUnZip :aCols[3]:nDataStrAlign := AL_RIGHT
   oBrowseUnZip :aCols[3]:nHeadStrAlign := AL_CENTER
   //
   oBrowseUnZip :aCols[4]:cHeader := "Fecha"
   oBrowseUnZip :aCols[4]:nDataStrAlign := AL_RIGHT
   oBrowseUnZip :aCols[4]:nHeadStrAlign := AL_CENTER
   //
   oBrowseUnZip :aCols[5]:cHeader := "Ruta"
   oBrowseUnZip :aCols[5]:nDataStrAlign := AL_RIGHT
   oBrowseUnZip :aCols[5]:nHeadStrAlign := AL_CENTER
////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////

   REDEFINE CHECKBOX oUnZipWithPath ;
            VAR lUnZipWithPath ;
            ID 104 OF PAGE2


[Manuel Aranda]

Hola de nuevo Carlos:

He pensado que quizá el problema esté en la hbzip.lib que esto usando.
Puedes enviarme la que tu usas con xblite?

Un saludo,
Manuel

[Manuel Aranda]

Bueno, gracias a Carlos que por privado me ha ayudado he podido solucionar el problema. No se trata del XBrowse o ListBox, el problema estaba en que hay que enlazar también con la libreria pcrepos.lib disponible en xharbour\lib. Ya todo funciona perfectamente.
De nuevo gracias, Carlos y Kleyber, por el desarrollo de xBackup lite.

Un saludo,
Manuel

[carlos vargas]

de nada

salu2
carlos vargas

[MarioG]

Por favor; podrían subir xbackup lite a http://www.hyperupload.com/
Al acceder al enlace que dajaron siempre me dá el mismo mensaje: Todos los puertos de descarga asignados a su país (Argentina) están en uso.

gracias
Saludos

[karinha]

Nueva Version

http://www.fivewin.com.br/exibedicas.asp?id=674

Saludos

[MarioG]

muchas gracias!