Delphi SendStream + Fortschrittsanzeige

Thema durchsuchen

Ansicht

Themen-Optionen

SendStream + Fortschrittsanzeige

Ein Thema von Real_Thunder · begonnen am 13. Jun 2006 · letzter Beitrag vom 5. Dez 2007

Vorheriger Beitrag

Nächster Beitrag

SirThornberry

(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge

Delphi 2006 Professional

#10

Re: SendStream + Fortschrittsanzeige

21. Jun 2006, 22:50

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

markieren

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)