SendStream + Fortschrittsanzeige

[Real_Thunder]

Irgendwie bekomme ich das nicht gebacken....

so, ich habe die Klasse nun eingebunden (in eine neue unit gepackt, und dann in die uses liste gestellt
und den TFileStream durch den TFileStreamEx ersetzt.


Wenn ich den TFileStreamEx erstelle, bringt er mir ne fehlermeldung....

ich mache:

Delphi-Quellcode:

abs_file_stream[0]:= TFileStreamEx.Create(selected_file, fmOpenRead or fmShareDenyWrite);

die Fehlermeldung ist:
Zu viele Parameter

aber ich muß dem filestream ja eine datei zuordnen etc...

währe nett wenn du ein beispiel nennen könntest...


MfG real_Thunder

[SirThornberry]

der Fehler liegt hier:

Delphi-Quellcode:

TFileStreamEx = class(TMemoryStream)

Es muss natürlich so aussehen:

Delphi-Quellcode:

TFileStreamEx = class(TFileStream)

[Real_Thunder]

Zitat:

Zitat von SirThornberry

ich hab mal eine Klasse geschrieben welche dir das abnimmt (abgeleitet von TFileStream):

Ooops sorry, wer lesen kann ist klar im vorteil :)