Hi,
ich bin mir nicht ganz sicher, ob die Abbruchbedingung nicht viel mehr
Delphi-Quellcode:
if Stream.Read(Buffer, SizeOf(Buffer)) < SizeOf(Buffer) then
begin
break;
end;
heißen sollte. Immerhin kann es sein, dass die Datei sich nicht in 8 Byte Blöcke zerlegen lässt, dann wird irgendwann weniger gelsen als der Puffer aufnehmen kann. Da hier die Letzten Byte nicht gefüllt werden hätte man an der Stelle falsche Werte, vorallem kann man aber schon hier abbrechen.
Gruß Der Unwissende