Hasta ahora estaba usando una versi贸n antigua de xHarbour, pero al actualizarme a la nueva versi贸n de fivewin y xharbour, el c贸digo que usaba para descomprimir ficheros zip ha dejado de funcionar. La compresi贸n se realiza correctamente pero no as铆 la descomprensi贸n. Este es el c贸digo que hasta ahora funcionaba correctamente:
Alguien puede ayudarme con este asunto ?
聽 聽LOCAL lOkUnZip 聽 聽 聽:= FALSE
聽 聽LOCAL acFiles 聽 聽 聽 := Array( Len( acFilesToUnZip ) )
聽 聽LOCAL bOnUnZipFile 聽:= { | cFile, nPos | UpdateMeterUnZip( cFile, nPos ) }
聽 聽..............
聽 聽AEval( acFilesToUnZip, { | aFile, i | acFiles[ i ] := aFile[ XBL_UZFILEPATH ] + aFile[ XBL_UZFILENAME ] } )
聽 聽..............
聽 聽 聽 聽 聽 聽 lOkUnZip := hb_UnZipFile( cSourceUnZip 聽 聽 聽, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 bOnUnZipFile 聽 聽 聽, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 lUnZipWithPath 聽 聽, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 NIL 聽 聽 聽 聽 聽 聽 聽 , ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 cFolderTargetUnZip + "\" )Alguien puede ayudarme con este asunto ?
Un saludo,
Manuel
xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Manuel
xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
