HBZipFile, hb_UnZipFile y Meter
- Manuel Aranda
- Posts: 561
- Joined: Wed Oct 19, 2005 8:20 pm
- Location: España
HBZipFile, hb_UnZipFile y Meter
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 Aranda
- carlos vargas
- Posts: 1421
- Joined: Tue Oct 11, 2005 5:01 pm
- Location: Nicaragua
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
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)
Carlos Vargas
Desde Managua, Nicaragua (CA)
- Manuel Aranda
- Posts: 561
- Joined: Wed Oct 19, 2005 8:20 pm
- Location: España
- Manuel Aranda
- Posts: 561
- Joined: Wed Oct 19, 2005 8:20 pm
- Location: España
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.
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
- Manuel Aranda
- Posts: 561
- Joined: Wed Oct 19, 2005 8:20 pm
- Location: España
- Manuel Aranda
- Posts: 561
- Joined: Wed Oct 19, 2005 8:20 pm
- Location: España
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
De nuevo gracias, Carlos y Kleyber, por el desarrollo de xBackup lite.
Un saludo,
Manuel
- carlos vargas
- Posts: 1421
- Joined: Tue Oct 11, 2005 5:01 pm
- Location: Nicaragua
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
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
Chaco - Argentina