Also ich darf hier nur ausschnitte posten, deshalb mal das relevante:
Delphi-Quellcode:
var
Buf: array[1..8191] of Char;
gel, ges: Integer;
begin
repeat
try
try
BlockRead(fFrom,Buf,SizeOf(buf),gel);
BlockWrite(fTo,buf,gel,ges);
inc(iPos,gel);
except
//IOError abfangen
end;
until(gel<>ges)or(gel=0);
end;
Allerdings irritiert mich da selbst gerade warum das buf-Array von 1-8191 geht. Ein Block sollte doch ne Zweierpotenz sein oder?
