Olá, Alguém conhece alguma rotina para compactar e descompactar arquivos sem uso de componente? Tentei usar essa rotina abaixo, mas o arquivo gerado dá erro quando tento abrir com o Winzip.
procedure TForm1.CompressãoClick(Sender: TObject); var FileIni, FileOut: TFileStream; Zip: TCompressionStream; begin FileIni := TFileStream.Create ('C:\pasta\...arquivo a ser comprimido...', fmOpenRead and fmShareExclusive); FileOut := TFileStream.Create('C:\pasta\...arquivo comprimido...', fmCreate or fmShareExclusive); Zip := TCompressionStream.Create(clMax, FileOut); Zip.CopyFrom( FileIni, FileIni.Size); Zip.Free; FileOut.Free; FileIni.Free; end; _______________________________________________________ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html