gauge regressivo?

Question

ol� pessoal estou com fonte de copia de arquivo vinculado a um gaugeso que eu tenho de fazer o gauge regredir de 100� para 0� vou postar o c�digo se alguem tiver alguma ideia ficarei gratoprocedure TF...

Adriano Santos · Answer

N�o testei, mas acredito que basta voc� fazer um esquema semelhante a isto:

Gauge1.Progress := Gauge1.Progress - (trunc(filesize(f2) * 100 / filesize(f1)));

Posso estar falando besteira.
Vc pode tamb�m usar um For..donwto..

  for I := 100 downto 0 do
  begin
    //comandos necess�rios  
  end;

Paullsoftware · Answer

voc� pode usar a mesma regra que usa para chegar no final do Gauge, mais ao inv�s de fazer:

Query.Open;
Query.Last;
Gauge1.Max := Query.RecordCount;
Gauge1.Progress := Query.RecordCount;
While Not Query.Bof do
 begin
  Gauge1.Progress := Gauge1.Progress - 1;
  Query.Prior;
 end;

acho que assim tamb�m funciona! :wink:

Crcam · Answer

Adriano Santos valeu mas infelizmente n�o deu resultado o gauge fica 0� no click...

PaullSoftware legal o esquema vou tentar usar em outros projetos mas nesse em quest�o n�o estou usando query a copia do arquivo � de pasta p/ pasta

Massuda · Answer

N�o testei mas isso deve funcionar...[code:1:9c69c7daca]totLido := totLido + Numread; Gauge1.Progress := Gauge1.maxvalue -   trunc(totLido * Gauge1.maxvalue /  filesize(f1));[/code:1:9c69c7daca]...

Crcam · Answer

Massuda valeu mesmo cara vc resolver o dilema

fica aqui o codigo corrigido para os irm�ozinhos que tiverem as mesma d�vida

procedure TForm1.btn_restauraClick(Sender: TObject);
begin
totlido := 0;
//verifico a
Origem:= (ExtractFileDir(Application.ExeName)+�\destino\gostosa.rar�);
Destino:= (ExtractFileDir(Application.ExeName)+�\origem\gostosa.rar�);

assignfile(f1,Origem);
filemode := 0;
reset(f1,1);

assignfile(f2,Destino);
filemode := 1;
rewrite(f2,1);

Gauge1.maxvalue := 100;
Gauge1.Progress := 100;

repeat
BlockRead(f1, Buf, SizeOf(Buf), NumRead);
BlockWrite(f2, Buf, NumRead, NumWritten);
totLido := totLido + Numread;

Gauge1.Progress := Gauge1.maxvalue - trunc(totLido * Gauge1.maxvalue / filesize(f1));

totlidoint := trunc(totlido);

// eventos
if Gauge1.Progress = 90 then Label1.Visible:= true;;
if Gauge1.Progress = 70 then Label1.Caption:= �j� se foram 30��;
if Gauge1.Progress = 50 then Label1.Caption:= �Metade j� foi�;
if Gauge1.Progress = 10 then Label1.Caption:= �S� Fata 10��;
if Gauge1.Progress = 100 then Label1.Caption:= �Terminou�;
// fim eventos

Application.ProcessMessages;
until (NumRead = 0) or (NumWritten <> NumRead) ;

closefile(f1);
closefile(f2);
end;

Crcam · Answer

vou por o c�digo de backup e restore mas esse esquema so deixa a desejar em uma coisa ele so copia um arquivo somente eu tentei fazer ele copiar usando *.* mas bug o sistema====================FONTE=======================var  Form1: TForm1;  // -------------------   totlido,buf,NumRead,NumWritten,position,totlidoint: integer;  Origem,Destino: string;  F1, F2 : file;  //--------------------implementation{$R *.dfm}//BACKUP--------------------procedure TForm1.btn_bkpClick(Sender: TObject);begintotlido := 0;      //verifico a      Origem:= (ExtractFileDir(Application.ExeName)+�origemgostosa.rar�);      Destino:= (ExtractFileDir(Application.ExeName)+�destinogostosa.rar�);      assignfile(f1,Origem);      filemode := 0;      reset(f1,1);      assignfile(f2,Destino);      filemode := 1;      rewrite(f2,1);      Gauge1.maxvalue := 100;      Gauge1.Progress := 0;      repeat        BlockRead(f1, Buf, SizeOf(Buf), NumRead);        BlockWrite(f2, Buf, NumRead, NumWritten);        totLido := totLido + Numread;        Gauge1.Progress := trunc(filesize(f2) * 100 / filesize(f1));        totlidoint := trunc(totlido);        // eventos        if Gauge1.Progress = 10 then Label1.Visible:= true;;        if Gauge1.Progress = 30 then Label1.Caption:= �j� se foram 30��;        if Gauge1.Progress = 50 then Label1.Caption:= �Metade j� foi�;        if Gauge1.Progress = 100 then Label1.Caption:= �Terminou�;        // fim eventos        Application.ProcessMessages;      until (NumRead = 0) or (NumW...

Adriano Santos · Answer

Pow velho, vlw.Vou dar uma olhada na rotina com mais calma depois.[]s...