Delphi Compactar Arquivos

[Marcelo Carvalho]

Bom Dia,

Estou enviando emails e preciso compactar alguns arquivos para enviar no anexo desses emails.

Qual componente usar ?

Como fazer ?

--
Atenciosamente,
 
Marcelo Carvalho

MSN carva...@hotmail.com

[Fernando Vargas]

Você pretende compacta-los em RAR ou ZIP?

 

Att.,

--
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
 
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
 
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+un...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.

--

Atenciosamente
Fernando C. Vargas - 51 95546697

[Fernando Vargas]

Existe no Delphi uma biblioteca nativa (System.zip) que pode te ajudar...

 

Esse exemplo serve para descompactar arquivos *.zip, mas tu pode adapta-lo para a tua necessidade...

 

function TSplash.ExtrairExe(var AMensagem: string): Boolean;
begin
  // Faz a extração do arquivo
  FZip.Open(_ORIG_FILE,zmRead);
  try
    FZip.Extract('spe.exe',_DEST_DIR);
    // Retorno
    Result := FileExists(_DEST_FILE);
    // Testa o retorno
    if not Result then
      AMensagem := 'Ocorreu um erro no processamento do arquivo de atualização -> Error [Arquivo não encontrado].';
  finally
    FZip.Close;
  end;
end;

 

Abraço..

 

Att.,

[Marcelo Carvalho]

Zip mesmo que eh o mais comum.
Imagine que vc tenha no banco de dados varios arquivos e quanfo vai emitir email vc escolha 5, dai vc precisa baixa-los e compactar, para poder anexar ao email.

Marcelo

[Fernando Vargas]

Esse exemplo vai servir certinho..

 

Com essa biblioteca do Delphi tu pode extrair, compactar, você só precisa adaptar ela conforme a tua necessidade..

 

Flw abraço

 

Att.,