Dateien erstellen

[Meflin]

hallo,

wie kann ich eine datei einer beliebeigen gröse erstellen? also der inhalt/typ ist egal, wichtig ist nur die größe!

*MFG & THX*

[Matze]

Wie meinst du das?
Du sagst z.B. TextFile - 1 GB
und dann möchtest du eine 1 GB große .txt haben? :gruebel:

Wie möchtest du das denn machen... ;)

[Meflin]

das ist ja die frage wie ich das machen kann... :wall:

aber im prinzip mein ich das!

[Matze]

Das kann man so nicht machen.
Höchstens, du nimmst eine Schleife und füllst in die Textdatei so viele Zeichen ein, bis die gewünschte Größe erreicht ist, aber ob das so toll ist, bezweifle ich.

[Meflin]

ja, auf die idee bin ich auch schon gekommen. aber das muss doch auch einfacher gehen!

[Chewie]

Damit eine Datei 1 GB groß ist, muss der Inhalt 1 GB belegen.
Am einfachsten, du schreibst immer die gleiche Zahl hinein.
Du nimmmst einen Filestream und los gehts:

Delphi-Quellcode:

var
  F: TFileStream;
  wrBytes, Size: LongWord;
  buf: Byte;
const
  BytesPerBlock = 1024;
begin
  F := TFileStream.Create('c:\test.txt', fmCreate or fmShareExclusive);
  try
    buf := 0;
    Size := 1024 * 1024;
    wrBytes := 0;
    while wrBytes + BytesPerBlock <= Size do
    begin
      F.Write(buf, BytesPerBlock);
      Inc(wrBytes, BytesPerBlock);
    end;
    if wrBytes + BytesPerBlock < Size then
      F.Write(buf, Size - wrBytes);
  finally
    F.Free;
  end;
end;

Edit: Ein kleiner Fehler korrigiert

[Matze]

Ich wüsste nicht wie.
Du musst der Datei ja irgend einen Inhalt "geben", damit sie so groß wird.
Wie groß sollen die Datein denn ungefär werden?

[flomei]

:lol: Wie viele Zeichen willst du denn in eine .txt Datei packen bis sie 1GB groß ist???
Aber mal ne Frage: Wofür willst du das haben? Für nen Benchmark? Die arbeiten mit solchen Verfahren: Datei mit der Größe xy auf Platte schreiben und gucken wie schnell die Platte ist und so was. Soll das für so etwas werden?

MfG Florian :hi:

[Meflin]

ok, aber die dateigröße ist ja variabel. weis hier einer die genauen umrechnungen von MB KB und GB?

[Matze]

Ich habe Chewie's Möglichkeit getestet mit

Delphi-Quellcode:

size:=1024*1024*1024;

und das geht! Es dauert halt 2-3 Minuten! :thumb:

Nachtrag: Mein Editor kann die Datei nicht öffnen, weil sie zu groß ist. Word auch nicht. :mrgreen: