DESCOMPACTAR ARQUIVO ZIP

[HASA]

Olá pessoal a mais de ano uso a função HB_UNZIPFILE, do mesmo jeito mais
depois que atualizei para xharbour 09971 parou de funcionar , alguem sabe
porque ??

HB_UNZIPFILE( cArqCopia , {|cFile, nFile| Verifica( nFile, cFile ) }, , ,
(BASEDADOS) )

[sygecom]

Qual vc usava antes !!!....esta usando o BCC 5.5.1 ? se não me falha a memoria ja ouvi fala que mudou alguma coisa da 99.60 para a 99.70 e 99.71.....

Abraços

[HASA]

, estou usando bcc 5.5.1 e mudei de xharbour 09960 para 09971 :-O

[sygecom]

Me chama, no MSN que te mando uns exemplos que uso...

Obs: Não pra postar pq tem que mandar os DBF,CDX junto no exemplo...


Abraços
Leonardo Machado

[Hasse]

Boa noite colegas.

Andei pesquisando no ZIPNEWS.TXT do xHarbour e encontrei o seguinte exemplo:

Código: Selecionar todos

 *      aFiles := { "TEST.PRG", "c:\windows\win.ini" }
 *      nLen   := Len( aFiles )
 *      aGauge := GaugeNew( 5, 5, 7, 40, "W/B", "W+/B" , "²" )
 *      GaugeDisplay( aGauge )
 *      HB_ZIPFILE( "test33.zip", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ) },, "hello" )

No código acima temos:
GaugeNew(), e
GaugeDisplay()

Alguém sabe onde encontro estas Funções ou como funcionam, ou ainda, qual a sua finalidade ?

[Maligno]

Gauge serve para o acompanhamento do progresso de um processo qualquer, seja mostrando uma barra de progresso, um percentual com algumas firulas gráficas. É pra não deixar o usuário nervoso. ))
Provavemente essas funções devem estar "encrustadas" numa LIB qualquer do pacote.

[sygecom]

Hasse, de uma olhada na pasta DOC da CVS do xharbour...lah tem samples de ZIP..

Qualquer duvida posta ai !!!

Abraços
Leonardo Machado

[TerraSoftware]

Caro colega HASA.

Já passei pelo mesmo problema ao migrar do harbour 0.99.3 para o 0.99.7. Realmente, ao que parece, a funcão HB_UNZIPFILE trabalha de forma diferente nesta ultima compilacao. Resolvi o problema trocando de funcao, passei a usar a HB_UnZipFileIndex.

No momento naum sei onde esta o codigo fonte com o exemplo funcionando.

Se ainda precisar me avise, pois posso procurar melhor outra hora.

[HASA]

Nossa, o pessoal sempre inovando, essa função eu não conheço, se tiver oportunidade poste para que eu e outros colegas conheçamos ok
:xau

[sygecom]

Nossa, o pessoal sempre inovando, essa função eu não conheço, se tiver oportunidade poste para que eu e outros colegas conheçamos ok
:xau

Conforme falado antes na Pasta da DOC da CVS tem tudo até exemplos o sample abaixo foi tirado de la !!!

Código: Selecionar todos

      FUNCTION MAIN()

      IF HB_UNZIPFILEINDEX( "TEST.ZIP",,,, ".", 1 )
         qout( "File was successfully created" )
      ENDIF

      IF HB_UNZIPFILEINDEX( "TEST2.ZIP", {|cFile|, qout(cFile) },,, ".", { 1, 2 } )
         qout( "File was successfully created" )
      ENDIF

      Return Nil

Abraços
Leonardo Machado

[HASA]

)
VALEU, É QUE PUXEI O CVS A MESES, E ESTOU COM MEDO DE ATUALZIAR E AI BAGUNÇAR AS COISAS, + UMA VEZ VALEU !!!
-:]

[sygecom]

Tche, não tenha medo, a CVS não morde !!! eu atualizo uma vez por semana !!! e sem problema !!!