TFileStream schreiben

[tomkupitz]

Hallo,

ich möchte eine neue Datei bzw. einen neuen Dateiinhalt anlegen.

Ich nutze fs:=TFileStream.Create('...', fmOpenWrite) und dann fs.Write(...). Ist die Datei (300Bytes) bereits vorhanden und ich schreibe 200Bytes, dann ist die Dateigröße nach fs.Free immer noch 300Bytes groß. Sie soll aber 200Bytes groß sein. Was habe ich nicht beachtet?

Beste Grüße

[Zacherl]

Wenn du die Datei immer überschreiben willst, musst du fmCreate nehmen. Im Falle von fmOpenRead öffnest du die vorhandene Datei und fängst bei Position 0 an zu (über)schreiben.

[himitsu]

Und fmOpenWrite knallt auch, wenn die Datei vorher noch nicht existiert, denn sie lässt sich bekanntlich nicht so gut öffnen.

Einige FileAPIs bieten auch ein fmOpenNew an, was TRUNCATE_EXISTING (CreateFile) entspricht.

Mir war so, als wenn TFileStream auch SetEndOfFile implementiert, also entsprechend einem FileTruncate, nur ich fand grade nichts,
aber indirekt geht auch FS.Size := FS.Position; , vor dem Schließen der Datei.

[Codehunter]

Ich dachte bisher immer, TFileStream.Position stünde auf TFileStream.Size nach dem .Create? Zur Sicherheit würde ich das so machen:

Delphi-Quellcode:

FS:= TFileStream.Create(fmCreate or fmOpenWrite)
FS.Seek(0, soFromEnd); // oder: FS.Position:= FS.Size; (keine Ahnung was schneller ist ^^)
FS.Write(...

EDIT:
Noch vergessen, den "Egositen-Modus" FS:= TFileStream.Create(fmCreate or fmOpenWrite or fmShareExclusive) damit hier auch nix schief geht

Noch'n EDIT:
Grade gesehen, du willst ja nicht anhängen sondern ersetzen. Dann so:

Delphi-Quellcode:

FS:= TFileStream.Create(fmCreate or fmOpenWrite or fmShareExclusive);
FS.Size:= 0;
FS.Write(...

[Codehunter]

Gelöscht

[bytecook]

Noch ein kleiner Tipp zu Streams.

Es ist sicherer, WriteBuffer sowie ReadBuffer statt Write und Read zu verwenden. Können aus irgedeinem Grund nicht die angegebenen Bytes geschrieben oder gelesen werden, so erhält man eine EWrite- oder EReadException.