Hallo flattman,
bevor man Objekte verwenden kann muss man sie erzeugen.
Dein Source muss entsprechend erweitert werden.
Delphi-Quellcode:
var memstream:TMemoryStream;
Filestream:TFileStream;
P:PByte;
X:integer;
begin
// Objekte erzeugen !!!
MemStream:=TMemoryStream.Create;
FileStream:=TFileStream.Create(Dateiname,Optionen); // Die Optionen kannst Du in der Hilfe finden.
try
MemStream.Size := 1024000;
P:= MemStream.Memory; //hier bleibt der compiler stehen
For X := 0 TO MemStream.Size - 1 Do
Begin
P^ := Random(256);
inc(P);
end;
FileStream.CopyFrom(MemStream, 0);
finally
// Objekte freigeben nicht vergessen !!!
MemStrem.Free;
FileStream.Free
end;
end;