Barra De Progresso Gauge

[Geovani]

Olá Pessoal,

Fiz um programa de backup que compacta arquivos ou compacta pastas, ao compactar o sistema verifica se é arquivo ou pasta e compacta.

Estou utilizando o Delphi 5 e o componente ZIPMASTER para compactar, funciona assim:

if DirectoryExists(ArqDir) then
    begin
      zip.FSpecArgs.Add(ArqDir+'\*.*'); //  irá compactar todos os arquivos dessa pasta
      zip.AddOptions:=[AddDirNames,AddRecurseDirs]; // irá compactar as subpastas
      end;
if FileExists(ArqDir) then zip.FSpecArgs.Add(ArqDir);  // irá compactar o arquivo
zip.ZipFilename :=nomeArqDir; // define o nome do arquivo
zip.Add; //compacta

Alguém poderia me explicar como funciona a barra de progresso Gauge, ou como implemento nesse código?

Abraço

[Churc]

opa

você só vai conseguir criar progresso se você tiver o limite, no caso o número de arquivos a serem compactados, ou pastas e o componente tem que dar suporte também, tipo um evento OnAddItem estas coisas...

se for só zip.Add; e não tiver suporte, então você vai ter que ter o source do componente e criar alguma compatibilidade ou evento...

abs

[Geovani]

você só vai conseguir criar progresso se você tiver o limite, no caso o número de arquivos a serem compactados, ou pastas e o componente tem que dar suporte também, tipo um evento OnAddItem estas coisas...

Tem um Evento chamado OnProgress, mas não sei como utilizá-lo.

alguém sabe?

[Churc]

opa

então da pra montar progresso sim...

posta a estrutura do evento aqui exemplo

procedure TForm1.NomedoEvento(Sender: TObject; etc etc etc);

ou melhor, qual componente você está usando, Abrevia?

abs

[Geovani]

Componente Zipmaster:

evento :

procedure TFormBackupMicromed.ZipProgress(Sender: TObject;
  ProgrType: ProgressType; Filename: String; FileSize: Integer);

tem como colocar a barra de progresso gauge?

Abraço

[Churc]

opa

eu baxei aqui, do site: http://www.delphizip.net

certo?

nesse componente vem uns demo na pasta Demo...

abra o Demo3 ai tem um exemplo completo de progresso...

Se eu for falar aqui é mais díficil de entender do que você ver

ai e até copiar rsr

abraço

[Geovani]

cara!! Valeu

consegui fazer a barra!

abraço!

[Guest gabriela pardim]

E para descompactar???

[Churc]

gabriela pardim,

de uma olhada nos Demos, que vem na pasta "Demos" que possui todo tipo de exemplo...