toya Posted March 24, 2004 Report Share Posted March 24, 2004 Estou usando xHarbour + XP e esta ocorrendo um erro ...GPF Ocurred quando da primeira vez executo a minha aplicação e logo em seguida processa normalmente mas gera o arquivo zip com zero bytes. Alguem poderia me ajudar ? Quote Link to comment Share on other sites More sharing options...
gilmer Posted March 25, 2004 Report Share Posted March 25, 2004 Qual versão do xHarbour ? Quote Link to comment Share on other sites More sharing options...
Alexandre Bassanezi Posted March 25, 2004 Report Share Posted March 25, 2004 Toya Vc está criando um ZIP ou descompactando ??? Existem "n" funções no [x]Harbour para manipulação de Zips, pode estar faltando alguma coisa ou algum parametro. Poste parte do seu código para analisar ... []'s Alexandre Quote Link to comment Share on other sites More sharing options...
evandro Posted March 25, 2004 Report Share Posted March 25, 2004 Olá, Estou de intrometido, mas estou com o mesmo problema. A versão do xHarbour é a 0.92. Segue o prg. FUNCTION MAIN() //IF HB_ZIPFILE( "contabil.ZIP","plano.dbf") IF HB_ZIPFILE( "contabil.ZIP",{"f:\contab\plano.dbf","f:\contab\cont.dbf"}) qout("File was successly create") ENDIF return nil Ou o programa trava ou gera um .zip com 0 bytes. Já tentei das formas acima (e outras mais) e dá sempre o mesmo problema. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) Quote Link to comment Share on other sites More sharing options...
Alexandre Bassanezi Posted March 27, 2004 Report Share Posted March 27, 2004 Toya e Evandro Acabei de fazer o mesmo procedimento e não gerou erro. Obs.: Estou com a última versão do CVS []´s Alexandre Quote Link to comment Share on other sites More sharing options...
evandro Posted March 29, 2004 Report Share Posted March 29, 2004 Olá, Alexandre, me envie a lib com a qual você gerou o prg. Às vezes "sara" o meu problema. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) Quote Link to comment Share on other sites More sharing options...
toya Posted March 29, 2004 Author Report Share Posted March 29, 2004 Alexandre, elaborei o teste com a lib que vc enviou ao Evandro. Ocorreu o seguinte: Se executar a compactacao de um só arquivo ela efetua: Hb_ZipFile(cZip,'contabil.dbf') Mas, se utilizar um vetor, somente compacta o primeiro arquivo: cArq:=Directory( oVI:vpcPastaBanco+'ct_*.*') aFiles:={} set cent off cZip:=oVI:vpcPastaBanco+'becape\ct'+strtran( dtoc( dData ), '/','' )+'.zip' set cent on for x:=1 to Len(cArq) aadd(aFiles,cArq[x,1]) next if hb_zipfile( cZip,aFiles ) msginfo('Compactação executada com sucesso!!!') endif Quote Link to comment Share on other sites More sharing options...
Ladinilson Posted February 12, 2009 Report Share Posted February 12, 2009 Amigos desculpem "upar" este tópico antigo, mas o que esta acontecendo comigo é exatamente o que esta nestas postagens, alguém nesta época resolveu este problema para me dizer a solução? Obrigado e desculpem novamente! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.