Binär oder Hex Datei erstellen

[Sharky]

Hai Trucki,

ich habe das ganze mal mit einem MemoryStream gemacht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 my_MStream : TMemoryStream;
 ndx,
 li_groesse : Integer;
 lb_wert    : Byte;

begin
  li_groesse := 1024 * 1024;
  my_MStream := TMemoryStream.Create;
 try
  my_MStream.SetSize (li_groesse);
  for ndx := 0 to li_groesse-1 do
   begin
    lb_wert := Random (256);
    my_MStream.Position := ndx;
    my_MStream.Write (lb_wert,1);
   end;
   my_MStream.SaveToFile ('c:\test.dat');
 finally
   my_MStream.Free;
 end;