CheatsNaNet
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Criando um extrator

2 participantes

Ir para baixo

Criando um extrator  Empty Criando um extrator

Mensagem por Mr.Positive Ter Dez 28, 2010 2:35 pm

[QUOTE=~ Galegin';350700]
Primeiro baixe o componente DFUnRAR no seguinte Link

Criando um extrator  90rtx4

Scan

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


Criando um extrator  Instcompwa4

Clique na aba "Into New Package"

Criando um extrator  Instcomp2ak5

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"

Adicione a unit "untUnRAR" e a unit QDialogs que tem uma função util para nós

( tanto tempo sem mexer com delphi que não lembro + como escolher diretórios manualmente Imagem



Declare na seção Public do Form1 as variáveis


IsExtracting: Boolean;

Abort: Boolean;


no evento OnCreate do Form1 adicione:

procedure TForm1.FormCreate(Sender: TObject);

begin

LoadRarLibrary();

end;


e no envento OnDestroy:

procedure TForm1.FormCreate(Sender: TObject);

begin

LoadRarLibrary();

end;


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

Button1.Enabled:=False;
Button2.Enabled:=True;
SpeedButton1.Enabled:=False;
SpeedButton2.Enabled:=False;
Gauge1.Progress:=Gauge1.MinValue;
with Edit2 do
if Text <> '' then DFUnRAR1.Directory:=Text;
DFUnRar1.FileName := Edit1.Text;
if not FileExists(DFUnRar1.FileName) then begin
ShowMessage('Este arquivo não existe!'+#13#10+
'Você deve digitar o nome de um arquivo');
Exit;
end
else begin
isExtracting:=True;
DFUnRar1.Extract;

isExtracting:=False;
if not Abort then ShowMessage('Extração Competa!');
Button1.Enabled:=True;
Button2.Enabled:=False;
SpeedButton1.Enabled:=True;
SpeedButton2.Enabled:=True;
end;



no evento onclick do Button2 adicione:


DFUnRAR1.StopProcessing:=True;
Abort:=True;
ShowMessage('Extração cancelada pelo usuário!');
Gauge1.Progress:=Gauge1.MinValue;


no envento onclick do SpeedButton1 adicione:


if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;


e no evento onclick do SpeedButton2 adicione:

var
dir: widestring;
begin
// função da unit QDialogs seleciona um diretório
if SelectDirectory('Selecione um diretório','',dir ) then
Edit2.Text:=dir+'';
end;


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



if (FileCount > 0) and (isExtracting) then
begin
Gauge1.Progress:=FilesProcessed * 100 div FileCount;
Application.ProcessMessages;
end;


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

PS: não comentei o código aqui porque ia ficar uma confusão.

Credito: au Criador

[/QUOTE]
Mr.Positive
Mr.Positive
Membro
Membro

Mensagens : 54
Agradecimentos : 11
Data de inscrição : 28/12/2010
Idade : 29
Localização : Recreio

http://www.jonathanmaia.com.br

Ir para o topo Ir para baixo

Criando um extrator  Empty Re: Criando um extrator

Mensagem por Freak Ter Jan 04, 2011 6:50 pm

Eu mecho um pouso com o Delphi,
Caso eu presise eu ja sei onde achar,
Topic esta otimo,
Bem explicado e com tudo.
Obrigado por compartilhar.
Freak
Freak
Membro
Membro

Mensagens : 134
Agradecimentos : 7
Data de inscrição : 02/01/2011

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos