Página 1 de 1
DESCOMPACTAR ARQUIVO ZIP
Enviado: 18 Ago 2007 11:17
por 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) )
Enviado: 18 Ago 2007 17:27
por 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
Enviado: 18 Ago 2007 19:34
por HASA
, estou usando bcc 5.5.1 e mudei de xharbour 09960 para 09971 :-O
Enviado: 18 Ago 2007 20:38
por 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
Enviado: 18 Ago 2007 21:39
por 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 ?
Enviado: 18 Ago 2007 21:50
por 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.
Enviado: 20 Ago 2007 13:34
por 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
Enviado: 21 Ago 2007 08:32
por 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.
Enviado: 21 Ago 2007 08:43
por 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
Enviado: 21 Ago 2007 09:29
por sygecom
HASA escreveu:
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
Enviado: 21 Ago 2007 09:51
por HASA
)
VALEU, É QUE PUXEI O CVS A MESES, E ESTOU COM MEDO DE ATUALZIAR E AI BAGUNÇAR AS COISAS, + UMA VEZ VALEU !!!
-:]
Enviado: 21 Ago 2007 09:57
por sygecom
Tche, não tenha medo, a CVS não morde !!! eu atualizo uma vez por semana !!! e sem problema !!!