topic-25353

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

zip en xHarbour
Posted: Thu Dec 13, 2012 10:59 PM

Quiero comprimir las bases de datos de mi sistema, a modo de backup. Estoy compilando con xHarbour 1.2.1 Rev 9421 y he leido los hilos en el foro cuales son las funciones y librerías para poder comprimir. Una de las funciones es hb_zipfile() y las librerías para la compilación son zlib.lib y hbzip.lib. No tengo hbzip y al invocar la función hb_zipfile me dice que no la encuentra. evidentemente me hace falta otra librería. La pregunta es donde puedo conseguir la librería y si estoy bien orientado ??? Gracias de antemano

Saludos

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: zip en xHarbour
Posted: Fri Dec 14, 2012 02:14 AM

Horacio la función a utilizar es hb_zipfile

Code (fw): Select all Collapse

Function CreateZip(aBtns,oDlg )
local z
oMtr:SetRange( 1,  Len( aZip ))
oMtr:setpos(0) 

 for z = 1 to len(aZip)
       Hb_ZIPFILE( cname1,aZip[z],9,,,,.F.)
      oMtr:nPosition += 1
      sysrefresh()
next
abtns[3]:Enable()

odlg:update()
Return nil

Luis

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: zip en xHarbour
Posted: Fri Dec 14, 2012 02:16 AM

Tienes que enlazar zlib.lib y hbzip.lib para xharbour

Disculpa anteriromente se me escapo el submit

Luis

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: zip en xHarbour
Posted: Fri Dec 14, 2012 02:19 AM

Otra vez... hbzip.lib la tenes en el directorio lib de xharbour

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: zip en xHarbour
Posted: Fri Dec 14, 2012 02:27 AM

Gracias Luis por contestar, no está esa libreria en el directorio .\lib, por eso pregunte donde podía bajarla. Tienes idea donde ??? Nuevamente muchas gracias.

Saludos

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: zip en xHarbour
Posted: Fri Dec 14, 2012 10:39 AM

En xharbour\lib siempre vino con esa librería seguramente se te ha borrado bajala de aqui

http://www.4shared.com/file/zV1-hIXY/hbzip.html

Luis

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: zip en xHarbour
Posted: Fri Dec 14, 2012 12:04 PM