Witam, zarzuce najpierw kodem:
var s:string;plik,plik2:TFileStream;
begin
try
plik:=TFileStream.create(path,fmopenread);
plik2:=TFileStream.create(path2,fmopenreadwrite or fmCreate);
setlength(s,1024);
repeat
if plik.Size-plik.Position<1024 then
setlength(s,plik.Size-plik.Position); // tu zwonienie jest znikome, poniewaz wykonuje sie to tylko raz
plik.Read(pchar(s)^,length(s));
plik2.Write(pchar(s)^,length(s));
form1.gauge1.Progress:=plik.Position;
form1.gauge1.Refresh;
form1.label1.caption:=inttostr(plik.position)+' of '+inttostr(plik.size)+' bytes transferred';
form1.label1.refresh;
until plik.Position>=plik.Size;
except
showmessage('Error');
plik.destroy;
plik2.destroy;
exit;
end;
plik.Destroy;
plik2.Destroy;
messagebox(form1.handle,'Done','Done',MB_OK);
end;
A teraz pytanie - jak mozna przyspieszyc proces kopiowania?? - bo dziala mi to dosyc wolno.