Verificar password en unzip xharbour
Posted: Wed Sep 21, 2011 4:00 am
Hola a todos.
Tengo una aplicaciòn con opcion de Copias de Respaldo, con la siguiente linea
lOk:= HB_ZipFile( cNameZip, aFile, 9,{|x,i| PINTAR(i, nLast, oProg) } ,;
TRUE, cCodAlm, TRUE, FALSE ) //, pFileProgress )
donde cCodAlm es una variable alfanumerica de 3 digitos que constituye el password
ahora lo que quiero es restaurar
lOk := hb_unzipfile(cNameZip,,.TRUE.,cCodAlm, ,aFiles,NIL)
Como puedo controlar el password ?
Al asignar a la variable cCodAlm una llave que no corresponde al archivo zip me devuelve la funcion
hb_unzipfile , TRUE
Gracias por su ayuda.
Tengo una aplicaciòn con opcion de Copias de Respaldo, con la siguiente linea
lOk:= HB_ZipFile( cNameZip, aFile, 9,{|x,i| PINTAR(i, nLast, oProg) } ,;
TRUE, cCodAlm, TRUE, FALSE ) //, pFileProgress )
donde cCodAlm es una variable alfanumerica de 3 digitos que constituye el password
ahora lo que quiero es restaurar
lOk := hb_unzipfile(cNameZip,,.TRUE.,cCodAlm, ,aFiles,NIL)
Como puedo controlar el password ?
Al asignar a la variable cCodAlm una llave que no corresponde al archivo zip me devuelve la funcion
hb_unzipfile , TRUE
Gracias por su ayuda.