150 MB Datei erstellen immer in 256byte schritten?

[R0BIN]

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

[Zacherl]

Guck dir mal TFileStream an ...

[R0BIN]

ok, ansich hab ich das verstanden:

Delphi-Quellcode:

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;

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.

R0BIN

[Zacherl]

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:

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;

Florian

[R0BIN]

irgendwie funktioniert das nicht...die zahlen sind durcheinander und die datei ist keine 150mb groß!

hmm komisch!

[Zacherl]

Wie groß ist die Datei denn?

[Mackhack]

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.

[Zacherl]

Sorry war mein Fehler, aber so sollte es gehen:

Delphi-Quellcode:

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;

@Mackhack: Ja, hatte es zwischenzeitlich auch schon gemerkt ... Sowas blödes

Florian

[Mackhack]

Da war kein roter Kasten da

[Zacherl]

Mhh bei mir grade auch nicht ...