TMemoryStream mit Zufallszahlen füllen

[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.

[sahimba]

Zitat von devidespe:

...und es müssen vorzeichenlose Integerwerte, also DWords sein.

Ob das vorzeichenlose DWords, Integer oder Rumpelpumpels sind macht doch keinen Unterschied, so lange es 4 Byte sind. WAS diese 4 Byte darstellen ist am Ende reine "Interpretationssache".

[Sir Rufo]

Zitat von devidespe:

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

Wenn da eine zufällige Folge von 4 Byte Blöcken rein soll, wen interessiert dann ob da was vorzeichenlos ist oder nicht?

Lies diese 4 Bytes nachher in ein DWORD und du hast ein DWORD .
Lies diese 4 Bytes nachher in ein Integer und du hast ein Integer .
Lies diese 4 Bytes nachher in ein Double und du hast ein Double .
...


@sahimba Ich mach hier mal das Echo

[DevidEspenschied]

Okay also dann muss ich ja durch 4 teilen bei der For-Schleife, und Ramdom entsprechend nach oben anpassen (ich glaube Integer ist vordefiniert mit einem Maximalwert von 2147483647:

for i:=0 to (Beispielstream.Size-1 DIV 4) do Beispielstream.Write(Random(2147483647), 4);

[HolgerX]

Zitat von devidespe:

Okay also dann muss ich ja durch 4 teilen bei der For-Schleife, und Ramdom entsprechend nach oben anpassen (ich glaube Integer ist vordefiniert mit einem Maximalwert von 2147483647:

for i:=0 to (Beispielstream.Size-1 DIV 4) do Beispielstream.Write(Random(2147483647), 4);

Nicht unbedingt

Da 4 Bytes = 1 DWORD, ist es egal, ob Du nun 4 zufällige Bytes oder 1 zufalliges DWORD erzeugst..

Nur bei dem vorhandenen RANDOM von Delphi, ist sogar die Lösung per 4x Byte zufälliger, wie einmal DWORD..
Ist halt kein 'richtiger' Zufallsgenerator, da Coputer sich damit schwer tun..

[Sir Rufo]

Nur mal so OT am Rande:

Schon mal darüber nachgedacht, dass man mit so einer zufälligen Bytefolge auch zufällig einen Virus produziert, der vom Virenscanner dann gefressen wird?

Oder es ist ein ganz neuer noch unbekannter Virus der dann das ganze Internet lahmlegt?
Oder es wird ein Bild, was den wahren Mörder von JFK zeigt? (Vielleicht sogar irgendein Alien?)
...

Also nicht wundern was dabei herauskommen kann

[nahpets]

for i:=0 to (Beispielstream.Size-1 DIV 4) do Beispielstream.Write(Random(2147483647), 4);

Punkt vor Strichrechnung beachten!
for i:=0 to ((Beispielstream.Size-1) DIV 4) do Beispielstream.Write(Random(2147483647), 4);


Wie wäre es denn damit?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i                   : Integer;
    Beispielstream      : TMemoryStream;
    DateiGroesseInBytes : Integer;
    dw                  : DWord;
begin
  DateiGroesseInBytes := 100;
  Beispielstream:=TMemoryStream.Create;
  Beispielstream.SetSize(DateiGroesseInBytes);
  Randomize;
  for i := 0 to (Beispielstream.Size - 1) Div SizeOf(dw) do begin
    dw := Random(MaxInt);
    Beispielstream.Write(dw, SizeOf(dw));
  end;
  Beispielstream.SaveToFile('Datei');
  Beispielstream.Free;
end;

[Sir Rufo]

So gibt es einen Zufallswert, der den gesamten Integer-Bereich abdeckt:

Delphi-Quellcode:

function GetTotalRandomInteger() : Integer;
begin
  Result := 0;
  for i := 1 to 4 do
    Result := ( ( Result shl 8 ) and $FFFFFF00 ) or Random( 256 );
end;