Bytes aneinanderhängen?

[Z4ppy]

Ich benötige für ein Programm ein MB 0-Bytes. Nun möchte ich das allerdings nicht von vornherein in die Source einbauen, sonst ist die EXE ja auch schon über ein MB gross
Ich will dieses eine MB also zur Laufzeit erzeugen. Danach möchte ich dieses MB in einen FileStream speichern. Ich habs nun so probiert:

Delphi-Quellcode:

//t ist ein Array of Byte
SetLength(t,1048576);
for i:=0 to 1048575 do t[i]:=$0;

Danach schreib ich das so in den FileStream:
F.Write(t,1048576); Es wird aber nichts geschrieben - warum?

(Wahrscheinlich ist es mal wieder ein ganz triviales Problem, aber ich komm einfach nicht auf die Lösung )

MfG Z4ppy

[3_of_8]

F.Write(t[0], 1048576);

[Christian Seehase]

Moin Z4ppy,

ich würde das ganz einfach mit einem String lösen:

Delphi-Quellcode:

s := StringOfChar(#00,1024*1024);

fs.Write(s[1],Length(s));

[Z4ppy]

War ja klar Danke, 3_of_8

@Christian: Danke, das wär natürlich auch ne Lösung, aber so ists natürlich eleganter

MfG Z4ppy

[Luckie]

Noch einfachher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  FILEPATH = 'd:\test.dat';
var
  fs: TFileStream;
begin
  fs := TFileStream.Create(FILEPATH, fmCreate);
  try
    fs.Size := 1024 * 1024;
  finally
    fs.Free;
  end;
end;

[Namenloser]

for i:=0 to 1048575 do t[i]:=$0; ZeroMemory(t[0],1048575);

[Sunlight7]

Zitat von NamenLozer:

ZeroMemory(t[0],1048575);

ZeroMemory(@t[0], 1048575); Wobei bei nem Array of ByteZeroMemory(@t, 1048575); auch möglich wäre und ein SizeOf anstatt einer Zahl besser wären.

Abgesehen davon fehlt sowieso das letzte Byte, 1024 * 1024 = 1048576

[Namenloser]

Zitat von Sunlight7:

Zitat von NamenLozer:

ZeroMemory(t[0],1048575);

ZeroMemory(@t[0], 1048575); Wobei bei nem Array of ByteZeroMemory(@t, 1048575); auch möglich wäre und ein SizeOf anstatt einer Zahl besser wären.

Abgesehen davon fehlt sowieso das letzte Byte, 1024 * 1024 = 1048576

Nicht SizeOf! SizeOf gibt die Größe des Pointers (4) zurück, der das Array eigentlich ist. Wenn, dann Length(t)*SizeOf(t[0]), was allerdings gefährlich ist, wenn t auch weniger als 1 Element haben kann. In dem fall müsste man den Typ dann wohl hardcoden.

[alzaimar]

Auf die Gefahr hin, das ich mich als Depp oute, aber wieso funktioniert das hier eigentlich nicht?
MyFileStream.Write(DynamicArray,1024*1024); Mir ist klar, das 'DynamicArray' ein Pointer ist und nur Schrott in der Datei stünde oder vielleicht sogar eine AV käme, aber wenigstens sollte sie 1MB groß sein, wenn keine AV kommt. Aber es wird wirklich gar nichts geschrieben.

[Hawkeye219]

Hallo alzaimar,

Zitat von alzaimar:

Mir ist klar, das 'DynamicArray' ein Pointer ist und nur Schrott in der Datei stünde oder vielleicht sogar eine AV käme, aber wenigstens sollte sie 1MB groß sein, wenn keine AV kommt. Aber es wird wirklich gar nichts geschrieben.

Meine Vermutung: die Systemroutinen von Windows verweigern das Schreiben, weil der zu schreibende Speicherbereich der Applikation nicht vollständig gehört.

Versuche folgendes:

Delphi-Quellcode:

var
  GlobalVar : array of Integer;
  Dummy     : array [1..1024 * 1024] of Byte;

procedure TForm1.Button1Click; 
var
  S : TFileStream;
begin
  Dummy[1] := 0; // damit Dummy nicht wegoptimiert wird...

  S := TFileStream.Create('C:\temp\test.stm', fmCreate);
  S.Write (GlobalVar, 1024 * 1024);
  S.Free;  
end;

Gruß Hawkeye