Auf SetSize reagierst du nicht, also da sollte ja die Dateigröße angepaßt werden.
SetSize ist jetzt drin (hatte ich auch vermisst)
Wieso schneidest du das Ende des übergebenen Pfades ab?
Es würde mir nicht gefallen, wenn ein anderer Pfade verwendet würde, als ich angegeben hab.
Delphi-Quellcode:
if APath = '' then
// Temp-Pfad holen
Path := GetDirTemp
else
Path := IncludeTrailingPathDelimiter( APath );
Ich hatte in einer vor-vor-version noch Aufrufe der Klasse mit einem Dateinamen und den wollte ich damit rausschneiden, also soweit ist dein Vorschlag da schon richtiger
Ansonsten sieht es gibt aus, vorallem FILE_ATTRIBUTE_TEMPORARY und FILE_FLAG_DELETE_ON_CLOSE.
merci
Als kleinen Schönheitsfehler, das Const in const Stream : TStream
ist unnötig
und im Prinzip auch "falsch", da du den Stream, also .Position kurzzeitig veränderst.
öh, das
const
schützt doch nur davor, dass die übergebene Referenz nicht verändert wird. Die Properties erben ja nicht den
const
Status, oder
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)