Einen TMemoryStream in ein TBytes packen

[hedie]

Hallo zusammen.

Ich versuche hier ein TBytes aus einem TMemoryStream zu befüllen.

Leider klappt dies nicht so wie ich es gerne hätte.

Ich habe folgendes versucht:

Delphi-Quellcode:

stream.ReadBuffer(MyBytes,stream.size);

Wie müsste ich dies richtig machen?

[Uwe Raabe]

Delphi-Quellcode:

SetLength(MyBytes, stream.size);
if stream.size > 0 then
  stream.ReadBuffer(MyBytes[0],stream.size);

[Sir Rufo]

Delphi-Quellcode:

SetLength( MyBytes, Stream.Size - Stream.Position );
if Length( MyBytes ) > 0 then
  Stream.ReadBuffer( MyBytes[0], Length( MyBytes ) );

[hedie]

Hat geklappt.

Vielen Dank!

[himitsu]

TBytesStream :angle2: