[Tutorial] Extraindo arquivos RAR com seu programa

[MarcoA' 0]

Oi, tudo bem com vocês? espero que sim, então vamos ao que interresa...

 

Primeiro baixe o componente DFUnRAR" no seguinte Link:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Descomprima o arquivo em um diretório qualquer

vá até o diretório "src" e abra o arquivo "DFUnRAR.pas"

 

Vá até Component >Install Compoenent

 

Clique na aba "Into New Package"

 

Clique em OK e depois responda "Yes" na mensagem que irá aparecer

Pronto! O Componente será instalado e a aba "DFrisch" aparecerá no Delphi.

 

Crie um novo projeto no Delphi

 

Adicione 3 Label, 2 Button,2 SpeedButton, 1 OpenDialog, 2 Edit, um Gauge que fica na aba "Samples"

e por fim o componente DFUnRAR (na aba DFrisch)

 

Agora mude algumas propriedades....

 

Label1.Caption = "Arquivo:"
Label2.Caption = "Extrair para:"
Label3.Caption = "Progresso:"
Button1.Caption = "Extrair"
Button2.Caption = "Cancelar Extração"
SpeedButton1.Caption = "..."
SpeedButton2.Caption = "..."
SpeedButton1.Flat = "True"
SpeedButton2.Flat = "True"
OpenDialog1.Filer = "Arquivos RAR|*.rar"

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No evento OnCreate do Form1 adicione:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E no envento OnDestroy:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No evento onclick do Button1 adicione o seguite código:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No evento onclick do Button2 adicione:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No envento onclick do SpeedButton1 adicione:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E no evento onclick do SpeedButton2 adicione:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Mude a propriedade CanProgress do DFUnRAR1 para True e adicione o seguinte codigo ao evento onprogress do componente DFUnRAR1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Copie a dll "UnRAR.dll" para o diretório do seu aplicativo!!

se a dll não estiver lá o programa não funciona!!!

 

Pronto! Agora seu programa já pode extrair arquivos RAR. Por enquanto este programa extrai todos os arquivo comprimidos dentro do RAR

mas com alguns melhoramentos ele pode extrair arquivos individuais.

 

Espero ter ajudado.

 

Por:MarcoA'

[-BliG. 0]

Amigo, Nao Estou Conseguindo.

Esta Dando Erro.

Ja Reinstalei o Progama.

Abraçs.

[MarcoA' 0]

Amigo, Nao Estou Conseguindo.

Esta Dando Erro.

Ja Reinstalei o Progama.

Abraçs.

 

Oi, tudo bom? então poderia me mostrar o erro?

Abraço

[iMelo~' 15]

Parabens marcos realmente é um tutorial excelente com belos prints , nao sabia desse componente e.e , obrigado por compartilhar.