FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour HBZipFile, hb_UnZipFile y Meter
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Fri Oct 13, 2006 05:52 PM

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

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Sat Oct 14, 2006 01:08 AM

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Sat Oct 14, 2006 08:29 AM

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

Un saludo,
Manuel

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Sun Oct 15, 2006 11:41 AM
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 Collapse
/*
   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
Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Sun Oct 15, 2006 09:55 PM

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

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Wed Oct 18, 2006 08:45 AM

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

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Fri Oct 20, 2006 12:07 AM

de nada :-)

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Wed Nov 08, 2006 11:59 AM
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
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Wed Nov 08, 2006 01:02 PM

Nueva Version

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

Saludos

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
HBZipFile, hb_UnZipFile y Meter
Posted: Wed Nov 08, 2006 01:12 PM

muchas gracias!

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion

Static archive · New replies & topics via GitHub Discussions