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:

Delphi-Quellcode:

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 :roll:)

MfG Z4ppy

[3_of_8]

Delphi-Quellcode:

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 :D 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]

Delphi-Quellcode:

for i:=0 to 1048575 do t[i]:=$0;

Delphi-Quellcode:

ZeroMemory(t[0],1048575);

[Sunlight7]

Zitat:

Zitat von NamenLozer

Delphi-Quellcode:

ZeroMemory(t[0],1048575);

Delphi-Quellcode:

ZeroMemory(@t[0], 1048575);

Wobei bei nem Array of Byte

Delphi-Quellcode:

ZeroMemory(@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:

Zitat von Sunlight7

Zitat:

Zitat von NamenLozer

Delphi-Quellcode:

ZeroMemory(t[0],1048575);

Delphi-Quellcode:

ZeroMemory(@t[0], 1048575);

Wobei bei nem Array of Byte

Delphi-Quellcode:

ZeroMemory(@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?

Delphi-Quellcode:

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.
:gruebel:

[Hawkeye219]

Hallo alzaimar,

Zitat:

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

[Cyf]

Bei einer Datei einfach die Position über das Maximum nach hinten setzen, der Rest wird mit Nullen ergänzt, bei einem Stream die Size-Variante von Luckie benutzen und fertig. Dürfte viel schneller sein, als die Nullen wirklich schreiben zu wollen.

[Luckie]

Zitat:

Zitat von Cyf

bei einem Stream die Size-Variante von Luckie benutzen und fertig. Dürfte viel schneller sein, als die Nullen wirklich schreiben zu wollen.

Ich weiß auch nicht, was die da noch diskutieren. :?

[Namenloser]

Zitat:

Zitat von Luckie

Zitat:

Zitat von Cyf

bei einem Stream die Size-Variante von Luckie benutzen und fertig. Dürfte viel schneller sein, als die Nullen wirklich schreiben zu wollen.

Ich weiß auch nicht, was die da noch diskutieren. :?

Ist denn bei der Methode denn garantiert dass wirklich Nullen im Stream stehen?

[Luckie]

Ich habe die Datei mit dem Editor geöffnet und es war nichts zu sehen. Ich war an der Arbeit, deswegen habe ich das nur flüchtig überprüft.

[alzaimar]

Zitat:

Zitat von Hawkeye219

Meine Vermutung: ...

Lustig nur, das 'WriteBuffer' sofort knallt, obwohl es intern auch nur 'Write' aufruft.

[Z4ppy]

Ich habs grad mit HxD überprüft... Es werden tatsächlich 0-Bytes angehängt ;) (Ist ja auch das einzig logische :D)

MfG Z4ppy

[Sunlight7]

Zitat:

Zitat von NamenLozer

Zitat:

Zitat von Luckie

Zitat:

Zitat von Cyf

bei einem Stream die Size-Variante von Luckie benutzen und fertig. Dürfte viel schneller sein, als die Nullen wirklich schreiben zu wollen.

Ich weiß auch nicht, was die da noch diskutieren. :?

Ist denn bei der Methode denn garantiert dass wirklich Nullen im Stream stehen?

Das Problem ist mir letztens in die Query gekommen...

Also ist die Variante mit dem Stream klar nicht schneller, da (ab) XP sowieso die Datei nullt.