HB_ZIPFILE

[Hasse]

Boa noite colegas.

Estou com dificuldades com o HB_ZIPFILE:

Usando a sintaxe abaixo compila normalmente e funciona corretamente:

Código: Selecionar todos

HB_ZIPFILE( "Dt0814_2" , aCopiar , , , .T., , .F., .F. , {|nPos2,nTotal2| GaugeUpdate( {1} , (nPos2/nTotal2) )} )

No arquivo ZIPNEW.TXT temos:

Código: Selecionar todos

HB_ZIPFILE( "TEST2.ZIP", { "TEST.PRG", "c:\windows\win.ini" }, 9, {|cFile,nPos,| qout(cFile) } )

À partir deste exemplo, adicionei um bloco no 4º parâmetro (como acima) com a finalidade de informar o nome do arquivo que está sendo comprimido. Donde a sintaxe abaixo:

Código: Selecionar todos

HB_ZIPFILE( "Dt0814_2" , aCopiar , , {|cFile,nPos,| qout(cFile) } , .T., , .F., .F. , {|nPos2,nTotal2| GaugeUpdate( {1} , (nPos2/nTotal2) )} )

Nesta opção ocorre um erro que aborta o compilador Harbour.exe com aquela mensagem janelada característica do Windows, informando que o executável encontrou um problema e precisda ser fechado.

Testei com as versões do xHarbour 1.0.0, 1.1.0. Atualizei para a versão 1.2.0 do CVS e ocorre o mesmo erro.
No momento estou baixando o pacote completo do CVS para ver se o resultado é diferente.

Algum colega tem alguma informação, algum teste ou exemplo ?

[Hasse]

Faltou somente um pouco mais de "esquenta neurônios", o famoso "Tico e Teco"....

Acontece que no exemplo do ZIPNEWS.txt tem uma vírgula demais. O correto é:

Código: Selecionar todos

{|cFile,nPos| qout(cFile) }

A linha completa:

Código: Selecionar todos

HB_ZIPFILE( cArq , aCompactar , , {|cFile,nPos| qout(cFile) } , .F., , .F., .F. , {|nPos2,nTotal2| GaugeUpdate( {1} , (nPos2/nTotal2) )} )

De qualquer maneira obrigado a todos.

[Hasse]

Boa noite colegas.

Estive dando tratos ao Tico e Teco durante alguns dias sobre o assunto, e acredito que o autor do texto ZIPNEWS.TXT ficaria satisfeito se fosse alertado sobre o erro e pudesse efetuar a correção, e desta forma evitar que algum colega nosso perca algumas horas para encontrar o erro, como aconteceu comigo.

Também acredito que o compilador não deveria abortar e sim deveria relatar a ocorrência de erro de sintaxe ou semelhante.

Como não tenho a intimidade suficiente com o trato destes assuntos e muito menos com os seus autores, deixo a sugestão para um dos nossos mestres.

Abraços fraternais.

[sygecom]

Hasse, tente enviar isso para o Luiz Culik do xharbour comercial, quem sabe ele ajusta isso lá ! alias, não achei esse arquivo que vc menciona "ZIPNEWS.TXT"

[Hasse]

Boa tarde Leonardo.

Este arquivo acompanha todas as versões desde o 0.99.60 que estou guardando. Está na pasta \xHarbour\Doc\En\ZipNews.txt, na linha 78. Na dúvida estou anexando o citado arquivo.

Ainda hoje envio o assunto para o Culik. Muito oportuna esta tua sugestão.

Obrigado pela atenção.