![]() |
Dateien erstellen
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* |
Re: Dateien erstellen
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... ;) |
Re: Dateien erstellen
das ist ja die frage wie ich das machen kann... :wall:
aber im prinzip mein ich das! |
Re: Dateien erstellen
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. |
Re: Dateien erstellen
ja, auf die idee bin ich auch schon gekommen. aber das muss doch auch einfacher gehen!
|
Re: Dateien erstellen
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:
Edit: Ein kleiner Fehler korrigiert
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; |
Re: Dateien erstellen
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? |
Re: Dateien erstellen
: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: |
Re: Dateien erstellen
ok, aber die dateigröße ist ja variabel. weis hier einer die genauen umrechnungen von MB KB und GB?
|
Re: Dateien erstellen
Ich habe Chewie's Möglichkeit getestet mit
Delphi-Quellcode:
und das geht! Es dauert halt 2-3 Minuten! :thumb:
size:=1024*1024*1024;
Nachtrag: Mein Editor kann die Datei nicht öffnen, weil sie zu groß ist. Word auch nicht. :mrgreen: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz