Oto procedurka (ściągnięta z forum), która odczytuje niecały plik wejściowy - w tym przypadku bez ostatnich 300 bajtów - i zapisuje je w pliku xxx.ddd.
procedure TForm1.Button1Click (Sender : TObject);
var
Source, Destination : TStream;
begin
if OpenDialog1.Execute
then begin
Source := TFileStream.Create (OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite);
try
Destination := TFileStream.Create ('xxx.ddd', fmCreate or fmShareDenyRead);
try
Destination.CopyFrom (Source, Source.Size - 300);
finally
Destination.Free;
end;
finally
Source.Free;
end;
end;
end;
I teraz moje pytanie. Czy (i ewentualnie w jaki sposób) mogę mieć dostęp do wszystkich odczytanych bajtów - oczywiście 'w biegu'. Np. do obliczenia sumy CRC, czy też do czegoś innego?
basia, adamm9@wp.pl