Segundo os idealizadores da PasZLib, que cheguei a mencionar no meu penúltimo post, a mesma se propõe a gerar arquivos .ZIP usando o padrão de compactação que vêm com o Delphi, e que está encapsulado na unit ZLib. Sds.
________________________________ To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 18:51:47 -0300 Subject: Re: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Nativo do delphi acho que não tem, mas se mesmo assim não quiser usar componentes de terceiros, pode usar um compactador por linha de comando. O 7z é uma opção neste caso, principalmente por ser freeware. Alem disso, o próprio xp tem recursos para compactação de arquivos no formato ZIP. Este último, é visível pela opção "enviar para" do seu Explorer. 2008/8/15 Rubem Nascimento da Rocha <[EMAIL PROTECTED]> > > O nome é Rubem! > > Sds. > > ________________________________ > To: delphi-br@yahoogrupos.com.br > From: [EMAIL PROTECTED] > Date: Fri, 15 Aug 2008 16:37:58 -0300 > Subject: Re: [delphi-br] Compactar arquivo pelo delphi, sem usar > componentes > > 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 >> From: [EMAIL PROTECTED] >> 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 >>> From: [EMAIL PROTECTED] >>> 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