FiveTech Software tech support forums

anserkk wrote:Dear Mr.Carlos

To use Zip & Unzip functions in xHarbour you have to link hbzip.lib and zlib.lib
Both the lib files are available in your \xHarbour\Lib folder

viewtopic.php?f=3&t=18033#p94332

Regards
Anser

Code: Select all  Expand view

STATIC FUNCTION Descomprime(cFile)

   LOCAL oDlg,nFiles,oText, cMsg, lVal, oMeter,nActual:=0

   nFiles:=Len(hb_GetFilesInZip(cFile))

   DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere ejecutando recuperación de datos..."

   @ 0.5, 2  SAY oText VAR cMsg SIZE 180, 20 OF oDlg

   @ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 200, 20
[b]? "Existe", File( cfile ), cfile[/b]
   oDlg:bStart:={||lVal:=Hb_UnZipFile('bdcentral.zip',{|cFile,nPos|oText:SetText('Descomprimiendo'+CRLF+cFile),;
                                                         nActual:=nPos/nFiles*100,oMeter:Set(nActual)} ),;
                          IF(lVal,MsgInfo('Restauracion completada con éxito'+CRLF+CRLF,'Bielsys 2009'),;
                           MsgStop('No se han podido restaurar los datos')),;
                   oDlg:END()}

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL
 

Code: Select all  Expand view

....
.....
cDrive:="D:"
@05,14 BUTTONBMP oBtnInstall PROMPT "Install on "+cDrive+" Drive" TEXTRIGHT SIZE 50,20 ;
         ACTION { lOk:=ExtractZip(cDrive) }


*------------------------------------*
Function ExtractZip(cDrive)
*------------------------------------*
Local aFiles,lOk,cDriveLetter
// Zip and Unzip functions, should include the libs named HbZip & zlib available in \xHarbour\lib
cDriveLetter:=cDrive+"\"

// Array containing the list of files in the Zip with Path
aFiles := hb_GetFilesInZip("Sam.ans")

// The 3rd Parameter should be .T. if you need to extract contents of zip file as per Path
lOk := hb_unzipfile("Sam.ans",,.T.,,cDriveLetter,aFiles,NIL)
Return lOk