FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsoft.com/forums/

HBZipFile, hb_UnZipFile y Meter

https://fivetechsoft.com/forums/viewtopic.php?f=6&t=4594

Page 1 of 1

HBZipFile, hb_UnZipFile y Meter

Posted: Fri Oct 13, 2006 5:52 pm
by 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

Posted: Sat Oct 14, 2006 1:08 am
by 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

Posted: Sat Oct 14, 2006 8:29 am
by Manuel Aranda
Muchas gracias Carlos. La bajo y ya te contaré.

Un saludo,
Manuel

Posted: Sun Oct 15, 2006 11:41 am
by 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

/*
   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

Posted: Sun Oct 15, 2006 9:55 pm
by 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

Posted: Wed Oct 18, 2006 8:45 am
by 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

Posted: Fri Oct 20, 2006 12:07 am
by carlos vargas
de nada :-)

salu2
carlos vargas

Posted: Wed Nov 08, 2006 11:59 am
by 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

Posted: Wed Nov 08, 2006 1:02 pm
by karinha
Nueva Version

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

Saludos

Posted: Wed Nov 08, 2006 1:12 pm
by MarioG
muchas gracias!
All times are UTC
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited