![]() |
150 MB Datei erstellen immer in 256byte schritten?
Also folgendes...
Ich möchte eine 150 MB große Datei erstellen, dabei sollen die ersten 256byte mit 1 gefüllt werden, die nächsten 256byte mit 2 u.s.w. Wie mach ich das am einfachsten? R0BIN |
Re: 150 MB Datei erstellen immer in 256byte schritten?
Guck dir mal
![]() |
Re: 150 MB Datei erstellen immer in 256byte schritten?
ok, ansich hab ich das verstanden:
Delphi-Quellcode:
Aber ich verstehe nicht wie ich genau 256byte als 1 und die nächsten als 2 und wieder die nächsten als 3 schreiben kann. Die Filegröße soll dabei dynamisch von mir zugewiesen werden können.
procedure caststring;
var fs: TFileStream; const s: string = '1'; begin fs := TFileStream.Create('dateia256.txt', fmCreate or fmOpenWrite); fs.Write(PChar(s)^, Length(s)); end; R0BIN |
Re: 150 MB Datei erstellen immer in 256byte schritten?
Ein Zeichen ist ein Byte ... du musst also nur in einer Schleife so lange Bytes in den Stream schreiben, bis die Dateigröße erreicht ist ...
Beispiel:
Delphi-Quellcode:
Florian
procedure caststring;
var fs: TFileStream; s: string; i: integer; const FileSize = 157286400; //In Byte 1024 * 1024 * 150 = 150MB begin fs := TFileStream.Create('dateia256.txt', fmCreate or fmOpenWrite); try for i := 1 to (FileSize div 256) do begin s := IntToStr(i); fs.Write(PChar(s)^, Length(s)); end; finally fs.Free; end; end; |
Re: 150 MB Datei erstellen immer in 256byte schritten?
irgendwie funktioniert das nicht...die zahlen sind durcheinander und die datei ist keine 150mb groß!
hmm komisch! |
Re: 150 MB Datei erstellen immer in 256byte schritten?
Wie groß ist die Datei denn?
|
Re: 150 MB Datei erstellen immer in 256byte schritten?
Die sollte nach deiner For-Schleife 150MB/256 gross sein. Ausserdem schreibst du ja nicht 1 256 mal rein dann 2 256 mal. Brauchst du doch 2 Schleifen um das zu machen. Die eine fuer die Anzahl der Zahlen die innere fuer die 256 mal der gleichen Zahl.
|
Re: 150 MB Datei erstellen immer in 256byte schritten?
Sorry war mein Fehler, aber so sollte es gehen:
Delphi-Quellcode:
@Mackhack: Ja, hatte es zwischenzeitlich auch schon gemerkt ... Sowas blödes :? ;)
procedure caststring;
var fs: TFileStream; s: string; i, i2: integer; const FileSize = 1024; //In Byte 1024 * 1024 * 150 = 150MB begin fs := TFileStream.Create('C:\dateia256.txt', fmCreate or fmOpenWrite); try for i := 1 to (FileSize div 256) do begin s := ''; SetLength(s, 256); for i2 := 1 to 256 do s[i2] := IntToStr(i)[1]; fs.Write(PChar(s)^, Length(s)); end; finally fs.Free; end; end; Florian |
Re: 150 MB Datei erstellen immer in 256byte schritten?
Da war kein roter Kasten da :cry:
|
Re: 150 MB Datei erstellen immer in 256byte schritten?
Mhh bei mir grade auch nicht ...
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 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