am besten du packst die Klasse in eine eigene
Unit und bindest diese
Unit dann ein. Anschließend benutzt du anstelle von TFileStream diese neue Klasse.
mit
Delphi-Quellcode:
procedure TYourForm.OnReadProc(Sender: TStream; AMethodRes: LongInt);
begin
ShowMessage('Bisher gelesen (byte): ' + IntToStr(TFileStreamEx(Sender).BytesRead));
end;
[...]
TheStreamInstanzce.OnRead := OnReadProc;
kannst du bei jedem lesevorgang des Streams anzeigen lassen wieviel bisher gelesen wurde. (ShowMessage ist natürlich nicht das optimalste Beispiel)