Delphi – Kopiranje fajlova sa prikazom progresa

Gotovo uvek je preporučljivo da u svoje aplikacije ugradite grafiku radi prikazivanja protoka nekog procesa. Ovim ćete zabaviti korisnika programa i istovremeno ćete mu dati korisnu informaciju, o protoku nekog procesa. Prikazaćemo vam primer za prikaz progresa prilikom kopiranja fajlova. Videćete proceduru koja istovremeno kopira određeni fajl sa jednog mesta (Izvor) na drugo (Odrediste), i pri tom prikazuje putem kontrole ProgressBar napredovanje kopiranja.

U novom projektu, na praznu formu postavite jedno komandno dugme i kontrolu ProgressBar i dodajte sledeći kod. Procedura KopirajFajl će vršiti kopiranje fajla i istovremeno prikazivati napredovanje, a pozivaćemo je kada se klikne dugme Button1.

Procedure TForm1.KopirajFajl(Izvor, Odrediste : string);

var

  IzvorF,OdredisteF  : file of byte;

  Bafer    : array[0..4096] of char;

  Procitano: integer;

  Velicina : longint;

begin

  AssignFile(IzvorF,Izvor);

  reset(IzvorF);

  AssignFile(OdredisteF,Odrediste);

  rewrite(OdredisteF);

  Velicina:=FileSize(IzvorF);

  With Progressbar1 do

  begin

    Min := 0;

    Max := Velicina;

    while Velicina > 0 do

    begin

      BlockRead(IzvorF,Bafer[0],SizeOf(Bafer),Procitano);

      Velicina := Velicina – Procitano;

      BlockWrite(OdredisteF,Bafer[0],Procitano);

      Position := Position + Procitano;

    end;

    CloseFile(IzvorF);

    CloseFile(OdredisteF);

end;  end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  KopirajFajl(‘c:WindowsWelcome.exe’,’c:Welcome.exe’);

end;

Pratite Krstaricu na www.krstarica.com