Dateien erstellen

[Matze]

Ich hab XP und NTFS, da hab ich eine 5 GB-Datei in weniger als einer Sek.

So ein unsinniges Programm
Für meine Zwecke jedenfalls.

[Duffy]

Hallo alle zusammen,
so gehts auch ...

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
const
  OpenFlags: array[Boolean] of Integer = (fmCreate or fmShareExclusive, fmOpenReadWrite or fmShareExclusive);
var
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create('C:\BigBigWorld.txt', OpenFlags[FileExists('C:\BigBigWorld.txt')]);
  FileStream.Size := 1024*1024*1024;
  FileStream.Free;
end;

byr

[wb32]

Fragen über Fragen, als Kommentare im Source
Wäre nett wenn mir das jemand erklären könnte.
Wenn ich damit Dateien erstelle ist die mit irgendwelchen Werten gefüllt, wo kommen die her ?

Code:

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); // hier wird in die datei geschreiben ??? 
  Inc(wrBytes, BytesPerBlock); // was wird hier gemacht ??? 
 end; 
if wrBytes + BytesPerBlock < Size then F.Write(buf, Size - wrBytes); // und was wird dann hier gemacht ??? 
 finally 
  F.Free; 
 end; 
end;

danke ...

[Wormid]

Zitat:

F.Write(buf, BytesPerBlock); // hier wird in die datei geschreiben ???

Jau, da wird in die Datei gschrieben... Und zwar der Inhalt von "buf" mit der Länge "BytesPerBlock".

Zitat:

Inc(wrBytes, BytesPerBlock); // was wird hier gemacht ???

Hier wird die Variable "wrBytes" um "BytesPerBlock" erhöht (incrementiert). Alternativ könnte man schreiben "wrBytes := wrBytes + BytesPerBlock". Inc ist aber eleganter und der Assemblercode dahinter ist angeblich auch besser optimiert... Die Variable wrBytes hält also fest, wieviele Bytes bisher in die Datei geschrieben wurden.

Zitat:

if wrBytes + BytesPerBlock < Size then F.Write(buf, Size - wrBytes); // und was wird dann hier gemacht ???

Ich denke, die Zeile soll dafür gut sein, den Rest in die Datei zu schreiben, bis sie die Größe "Size" erreicht hat, falls das innerhalb der Schleife nicht glatt aufging. Allerdings bin ich mir so in der Form nicht sicher, ob das korrekt ist... Müsste es nicht "if wrBytes + BytesPerBlock > Size then ..." heißen?

Gruß

Wormid

[wb32]

hmm aber

buf := 0;

woher kommt denn da der buchstaben salat in den dateien ?

[Christian Seehase]

Moin wb,

buf ist als Byte deklariert, hat also die Länge 1.
Je Durchgang werden aber BytesPerBlock (hat den Wert 1024) Bytes geschrieben.
In der Datei landet also eine Null und die 1023 Zeichen die im Speicher auf die Null folgen. Was auch immer da stehen mag.

[wb32]

ok verstanden danke