czy mozna jakos kopiowac pliki z postepem pokazywanym w gauge poza kopiowaniem blok po bloq ( czy jak to sie zwie;) ) .. w delphi jest funkcja CopyFileEx i tam chyba mozna by to jakos zastosowac, ale .. w helpie nic o tym nie ma, a ja po paru probach podalem sie .. ktos wie jak tego uzyc ??
0
0
Przynajmniej byś FAQ poprzeglądał
0
przegladalem faq i to nie jedno, ale tam tego nie ma
0
widocznie źle szukałeś
0
Może cos ci się z tego przyda:
http://4programmers.net/Forum/viewtopic.php?id=43541
0
procedure Copy(CopyFrom,CopyTo : String);
var Source, Dest : TFileStream;
toCopy : Longint;
FBytesCopied,FProcessed : Integer;
const
ChunkSize : Integer = 8192;
begin
FBytesCopied:=0;
try
source := TFileStream.Create( CopyFrom, fmOpenRead or fmShareDenyWrite );
try
Dest := TFileStream.Create( CopyTo, fmCreate );
try
repeat
if (Source.Size-Source.Position) < ChunkSize then
toCopy := Source.Size-Source.Position
else
toCopy := ChunkSize;
Dest.CopyFrom( source, toCopy );
Inc( FBytesCopied, toCopy );
if Source.Size > 0 then
FProcessed := Round(FBytesCopied*100/Source.Size)
else
FProcessed := 0;
Form1.ProgressBar1.Position:=FProcessed;
Application.ProcessMessages;
until Dest.Size = Source.Size;
finally
end;
finally
Dest.Free;
end;
finally
Source.Free;
end;
end;