Dateien erstellen

[Matze]

Wie groß kann man die datei dann machen? Irgendwann kommt:

Zitat:

[Fehler] Unit1.pas(41): Überlauf bei Konvertierung oder arithmetischer Operation

[kasi]

LongInt ist 32 Bit mit Vorzeichen also 2 GB

Wenn größer sein muß

Code:

procedure DoCreateFile2(Filename: string; Size: Int64);
var
  FS: TFileStream;

begin
FS := TFileStream.Create(Filename, fmCreate);
try
  FileSeek(FS.Handle, Size, 0);
  Win32Check(SetEndOfFile(FS.Handle));
finally
  FS.Free;
end;
end;

So ist THandleStream.setSize auch implementiert

Aufruf (10 GB )

Code:

DoCreateFile2(Application.ExeName+'.test', Int64(1024*1024*1024)*10);

KASI

[Matze]

Cool!
Danke, wie groß werden sie dort maximal. :mrgreen:

[kasi]

9.223.372.036.854.775.808 Byte

also ca. 9000 Terabyte-Platten :)
Werde es in 100 Jahren mal testen :mrgreen:

KASI

[Chewie]

Hmmm... einfach die Size zu setzen :wall:

Ist auch ne Idee :nerd:

[Luckie]

Die Dateigröäße steht nicht im Header der Datei. Wenn dann muß der Eintrag im Dateisystem manipuliert werden.

[Matze]

OK! Vielen Dank. :thumb:

[Dannyboy]

Ich denke, die Größe einer Datei wird berechnet. Das erklärt auch, warum
man zuschauen kann, wie die Anzeige der Größe steigt, wenn man einen
Ordner > 10 GB (z.B.) rechts klickt und auf Eigenschaften geht.
Sie steht nicht im Header!

Ich wollte auch mal sehen, wie schnell ich meine Platte zumüllen kann,
dazu habe ich die Funktionen BlockRead und Blockwrite verwendet.
Das ging sehr schnell, weil ich 5 Mio Byte per Block in die Datei geschrieben habe.
Probier's einfach mal aus. 8)

Denk daran, dass Du einen Runtime-Error kriegst, sollte Deine Datei die
4GB überschreiten. Da haut Dir Windows ganz gewaltig auf die Finger!

[Meflin]

chewies methode arbeitet zuverlässig und schnell, da so große dateien nicht erstellt werden müssen (die dateien werden wohl selten größer als 1mb). deshalb werde ich auch bei dieser methode bleiben!

[Chewie]

Die Geschwindigkeit und die Speicherauslastung kannst du ja über die Konstante BytesPerBlock regulieren..

Außerdem: NTFS (zumindest die Version ab 2000, wies bei NT ist, weiß ich nicht) unterstützen Dateien > 4 GB.
Einige API-Funktionen zum Dateeihandling nehmen für die Position des Dateizeigers 2 32Bit-Werte.