Copiando arquivos e mostrando no gauge seu progresso.

Question

Boa noite, sou novo no forum e em program��o em delphi, gostaria de uma ajuda de vcs. Ser� que teria como vcs me informarem como fa�o para copiar um arquivo e mostrar no gauge seu progresso. (copia de arquivo j� tenho os comandos para faze-la). :lol:

Chico Gois · Answer

Beleza!Utilize o [b:cf166b90bd][i:cf166b90bd][color=red:cf166b90bd]PESQUISAR[/i:cf166b90bd][/b:cf166b90bd][/color:cf166b90bd], voce encontara muita coisa a respeito.T+...

Worlock · Answer

Bom dia amigos, estou informando a vcs que depois de muito custo eu consegui fazer o gauge mostrar o [b:5856442801]�[/b:5856442801] na copia.
Segue abaixo o c�digo fonte.

unit progressbar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Gauges;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Gauge1: TGauge;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  totlido,buf,NumRead,NumWritten,position,totlidoint: integer;
  //fileorigem: file;
  //fdirorigem,ArquivosOrigem: string;
  path,path2: string;
  F1, F2 : file;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
      totlido := 0;
      //verifico a
      path:= �c:\BACKU\calc.exe�;
      path2:= �c:\andre\calc.exe�;

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

      assignfile(f2,path2);
      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);

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

      closefile(f1);
      closefile(f2);


end;

end.

F�rum Copiando arquivos e mostrando no gauge seu progresso. #223154