TMemoryStream mit Zufallszahlen füllen

[DevidEspenschied]

Hallo,

ich habe einen TMemoryStream, den ich von einer bestimmten Stelle einlese und mit Zufallszahlen befüllen möchte. Hat jemand einen Tipp, wie ich das am schnellsten bewerkstelligen kann?

Vielen Dank.

[Sir Rufo]

Ja.

Code:

Wiederhole
  Erzeuge Zufallszahl
  Zufallszahl in Stream schreiben
Bis genug

Was konkret macht dir dabei Probleme?

1. Erzeugen einer Zufallszahl => Random
2. Schreiben einer Zahl in einen Stream => TStream

[Perlsau]

Zitat von devidespe:

Hallo, ich habe einen TMemoryStream, den ich von einer bestimmten Stelle einlese und mit Zufallszahlen befüllen möchte. Hat jemand einen Tipp, wie ich das am schnellsten bewerkstelligen kann?

Das sind recht dürftige Angaben, die du hier zur Verfügung stellst. Ein TMemoryStream ist ja nicht typisiert, deshalb könnte ich jetzt nicht entscheiden, ob du Float- oder Integerwerte oder die Zahlen in Stringform dort im Stream haben willst. Letztlich kommt es darauf an, was du mit diesem Stream machen willst bzw. wie diese etwas ominöse Anforderung "TMemoryStream mit Zufallszahlen füllen" überhaupt zustande kommt.

1. Was hast du denn bereits veruscht?
2. Was ist dabei herausgekommen?
3. Wie lauten die Fehlermeldungen?

[DevidEspenschied]

Ich lese eine Datei in einen Memory Stream ein, möchte den Inhalt gerne mit Zufallszahlen beschreiben, und das wieder in die Datei zurück schreiben.

Dabei wird die MemoryStream Größe automatisch der Dateigröße mit SetSize angepasst.

Im Prinzip benötige ich eine Schleife, in der ich abhängig von der Streamgröße Zufallszahlen generiere. Bisher habe ich folgendes:

Delphi-Quellcode:

var i : Integer;
    Beispielstream : TMemoryStream;
...
begin
  Beispielstream:=TMemoryStream.Create;
  Beispielstream.SetSize(DateiGroesseInBytes);
  Beispielstream.LoadFromFile(Datei);

  Randomize;
  for i:=0 to Beispielstream.Size do Beispielstream.Write(Random(256), 1);

  Beispielstream.SaveToFile(Datei);
  Beispielstream.Free;
end;

[p80286]

Wie wäre es so:

Delphi-Quellcode:

var i : Integer;
    Beispielstream : TMemoryStream;
...
begin
  Beispielstream:=TMemoryStream.Create;
  Beispielstream.SetSize(DateiGroesseInBytes);

  Randomize;
  for i:=0 to Beispielstream.Size-1 do Beispielstream.Write(Random(256), 1);

  Beispielstream.SaveToFile(Datei);
  Beispielstream.Free;
end;

Gruß
K-H

[Sir Rufo]

Das erzeugt natürlich einen Stream in Quattro-Größe

Nehmen wir an, wir setzen Size auf 100 und schreiben jetzt also 100 Integer-Werte (=4 Byte) ...

[DevidEspenschied]

Genau genommen ist die Streamgröße durch 4 teilbar und es müssen vorzeichenlose Integerwerte, also DWords sein.

[Mavarik]

Zitat von devidespe:

Delphi-Quellcode:

var i : Integer;
    Beispielstream : TMemoryStream;
...
begin
  Beispielstream:=TMemoryStream.Create;
  Beispielstream.SetSize(DateiGroesseInBytes);
  Beispielstream.LoadFromFile(Datei);

  Randomize;
  for i:=0 to Beispielstream.Size do Beispielstream.Write(Random(256), 1);

  Beispielstream.SaveToFile(Datei);
  Beispielstream.Free;
end;

hmm

Delphi-Quellcode:

var i : Integer;
    Beispielstream : TMemoryStream;
...
begin
  Beispielstream:=TMemoryStream.Create;
  Beispielstream.SetSize(DateiGroesseInBytes); // Wofür?
  Beispielstream.LoadFromFile(Datei); // Daraus ergibt sich die Größe des Memstreams...


  Randomize;
  for i:=0 to Beispielstream.Size do Beispielstream.Write(Random(256), 1);  // Warum erst die Datei laden um die Daten dann zu überschreiben...

  Beispielstream.SaveToFile(Datei);
  Beispielstream.Free;
end;

Wenn Du nur Bytes schreiben willst... Dann schreib auch nur Bytes...

[Neutral General]

Ich schätze er will einen Datei-Shredder bauen....
Du brauchst diese durch-4-Teilerei nicht.

Delphi-Quellcode:

var i : Integer;
    Beispielstream : TMemoryStream;
begin
  Beispielstream:=TMemoryStream.Create;
  try
    Beispielstream.LoadFromFile(Datei);

    //Randomize; Sollte nur einmal im Programm aufgerufen werden!
    for i:=0 to Beispielstream.Size-1 do
      PByte(NativeUInt(Beispielstream.Memory)+i)^ := random(256); 

    Beispielstream.SaveToFile(Datei);
  finally
    Beispielstream.Free;
  end;
end;

[Mavarik]

Na dann eher so...

Delphi-Quellcode:

var i : byte;
    Beispielstream : TMemoryStream;
begin
  Beispielstream:=TMemoryStream.Create;
  try
    Beispielstream.LoadFromFile(Datei);

    //Randomize; Sollte nur einmal im Programm aufgerufen werden!

    for i:=0 to 255 do
      begin
        Fillchar(Beispielstream.Memory^,I,Beispielstream.Size);
        Beispielstream.SaveToFile(Datei);
      end; 
        
  finally
    Beispielstream.Free;
  end;
end;