logo

.
Wednesday 08th of September 2010    

Ankety

Co tu není dobré ?
 

Přihlášení



Provoz stránek

návštěv dnes: 57
návštěv včera: 62
návštěv za měsíc: 484
návštěv celkem: 17788

Home Tipy, triky, návody DISK, SLOŽKA, SOUBOR Soubor - Kopírování souboru s průběhem
Soubor - Kopírování souboru s průběhem Tisk Email
Hodnocení uživatelů: / 0
NejhoršíNejlepší 
Napsal uživatel Administrator   
Čtvrtek, 19 Listopad 2009 07:49

Procedure CopyFileWithProgressBar(SourceFile, TargetFile: string);
  var FromFile, ToFile: file of byte;
        Buffer: array[0..4096] of Char;
        NumRead: integer;
        FileLength: longint;
begin
 AssignFile(FromFile, SourceFile);
 Reset(FromFile);
 AssignFile(ToFile, TargetFile);
 Rewrite(ToFile);
 FileLength:=FileSize(FromFile);
  with Form1.Progressbar1 do
   begin
    Min:=0;
    Max:=FileLength;
     while FileLength > 0 do
      begin
       BlockRead(FromFile, Buffer[0], SizeOf(Buffer), NumRead);
       FileLength:=FileLength - NumRead;
       BlockWrite(ToFile, Buffer[0], NumRead);
       Position:=Position + NumRead;
       Application.ProcessMessages;
      end;
    CloseFile(FromFile);
    CloseFile(ToFile);
   end;
end;

Zdroj: http://havelka.wz.cz

Aktualizováno Pátek, 20 Listopad 2009 18:18
 

Přidejte svůj komentář

Vaše jméno:
Titulek:
Komentář:
bottom

top

kolik vás je ?

Právě připojeni - hostů: 4 

bottom

Založeno na Joomla!. Designed by: Free Joomla 1.5 Template, dns. Valid XHTML and CSS.