Valeu Rubens... estava tentando usar o zlib... []s
2008/8/15 Rubem Nascimento da Rocha <[EMAIL PROTECTED]> > > Procure tb, na Internet (Google, Altavista, etc.), por PasZLib! > > > Boa sorte. > Sds. > > ________________________________ > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > From: [EMAIL PROTECTED] <djpardalrocha%40hotmail.com> > Date: Fri, 15 Aug 2008 19:21:41 +0000 > Subject: RE: [delphi-br] Compactar arquivo pelo delphi, sem usar > componentes > > > Uma coisa é compactar, outra coisa é gerar o formato da compactação de > forma que o WinZip (ou similar!) consiga reconhecê-lo. > > Dica: http://cc.codegear.com/Item/17665 (para acessar o link, vc tem que > ser registrado no site!) > > Boa sorte. > Sds. > > ________________________________ > > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > > From: [EMAIL PROTECTED] <fellipeh%40gmail.com> > > Date: Fri, 15 Aug 2008 16:04:27 -0300 > > Subject: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes > > > > > > Olá amigos, preciso compactar e descompactar um arquivo pelo meu sistema, > > mas não quero usar componente para isso, procurei na net, e encontrei o > > seguinte codigo: > > > > InputFileName := JvFilenameEdit1.Text; > > OutputFilename := ExtractFilePath(Application.Exename) + Arq + '.z'; > > try > > InputStream := TFileStream.Create(InputFileName, fmOpenRead); > > OutputStream := TFileStream.Create(OutputFileName, fmCreate); > > CompressionStream := TZCompressionStream.Create(OutputStream, > > zcFastest); > > CompressionStream.CopyFrom(InputStream, InputStream.Size); > > finally > > CompressionStream.Free; > > OutputStream.Free; > > InputStream.Free; > > Screen.Cursor := crDefault; > > end; > > > > Ele cria o ZIP, mas parece ser corrompido...pois não consigo abrir ele em > > nenhum descompactador, e mesmo eu descompactando ele, é a mesma coisa, o > > arquivo fica corrompido. > > > > Alguém poderia me dar uma luz? > > > > []s > > __________________________________________________________ > Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o > Messenger! É GRÁTIS! > http://www.msn.com.br/emoticonpack > > -- _________________________________ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas]