Zipar uma arquivo com senha (Resolvido)

[jfaguiar]

Olá Amigos.

Alguem em algum exemplo de como zipar com senha?

Grato

João

Editado por - jfaguiar on 16/08/2012 16:12:52

[jfaguiar]

Olá Amigos.

Alguem em algum exemplo de como zipar com senha?

Grato

João

Editado por - jfaguiar on 16/08/2012 16:12:52

[HERGON]

// lRet := HB_ZIPFILE( cFile, uContents, nLevel, bUpdate, lOverwrite, password, lPath, lDrive, bFileUpdate) )

lRet := HB_ZipFile( cLocBk+"\"+cArq, aFiles, , , .t., cSenha, .f.,,)

If lRet

? "ok"

Else

? "Problema na compactação"

Endif

Herberson Gontijo

Ponteware Software

[jfaguiar]

Valeu mesmo Ergon.

Precisa de alguma lib específica ou de algum CH?

Abraço amigo.

Muito obrigado.

[kapiaba]

ZLIB.LIB

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[jfaguiar]

Show, show. Consegui compactar.

Não estou conseguindo descompactar. Alguém pode dar um ajudinha na sintaxe?

Obrigado, segue o código:

FUNCTION Descompacta(cARQPRG)

cARQZIP := StrTran(cARQPRG,"PRG","ZIP")

aFiles := {"TESTZIP.PRG"}

cSenha := "150812"

lRet := HB_UnZipFile( cARQZIP, aFiles, , , .t., cSenha, .f.,,)

If lRet

? "ok"

Else

? "Problema na descompactação"

Endif

RETURN NIL

id=code>id=code>

[kapiaba]

Veja se o PKUNZIP.EXE ou o BRAZIP.EXE está descompacatando, pode não ser erro de lógica e sim da criação do arquivo.zip

abs,

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[kapiaba]

A lógica do XBLITE.PRG é:

lOkUnZip := hb_UnZipFile( cSourceUnZip , ;

bOnUnZipFile , ;

lUnZipWithPath , ;

NIL , ;

cFolderTargetUnZip + "\" )

id=code>id=code>

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[jfaguiar]

Olá Kapiaba.

É o que tô fazendo, mas num fununcia.

FUNCTION Descompacta()

cARQZIP := "TESTZIP.ZIP"

cSenha := "150812"

lRet := hb_UnZipFile(cARQZIP,,.F.,,cPATH,cSenha)

If lRet

? "ok"

Else

? "Problema na descompactação"

Endif

RETURN NIL

id=code>id=code>

[kapiaba]

citação:

Olá Kapiaba.

É o que tô fazendo, mas num fununcia.

FUNCTION Descompacta()

cARQZIP := "TESTZIP.ZIP"

cSenha := "150812"

lRet := hb_UnZipFile(cARQZIP,,.F.,,cPATH,cSenha)

If lRet

? "ok"

Else

? "Problema na descompactação"

Endif

RETURN NIL

id=code>id=code>

---

id=quote>id=quote>

Você consegue descompactar com PKUNZIP.EXE ou BRAZIP.EXE?

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[jfaguiar]

blz, vou tentar com pkunzip, então.

Obrigado.

[jfaguiar]

Olá Kapiaba.

Consegui descompactar kkk.

Vi um exemplo em:

// http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=8731

Abraço

Segue o código

...

...

cPathExtr := C:\testzip\

Descompacta("FntTechlix.ZIP",{"Parazipar1.prg"},cPathExtr,"150812")

...

...

**********************************

FUNCTION Descompacta(cArqZip,aFiles,cPathExtr,cPass)

lRet := HB_UnZipFile(cArqZip,,.F.,cPass,cPathExtr,aFiles)

If lRet

? "ok"

Else

? "Problema na descompactação"

Endif

RETURN NIL

*************************************************

FUNCTION Compacta(cARQZIP,aFiles,cPass)

lRet := HB_ZipFile( cARQZIP, aFiles, , ,.T., cPass, .T.,,)

If lRet

? "ok"

Else

? "Problema na compactação"

Endif

RETURN NIL

*************************************************

id=code>id=code>

Editado por - jfaguiar on 16/08/2012 16:01:13