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:

stream.ReadBuffer(MyBytes,stream.size); Wie müsste ich dies richtig machen?

**Uwe Raabe**

markieren

Delphi-Quellcode:

			SetLength(MyBytes, stream.size);

if stream.size > 0 then

  stream.ReadBuffer(MyBytes[0],stream.size);

**Sir Rufo**

markieren

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

Einen TMemoryStream in ein TBytes packen

Einen TMemoryStream in ein TBytes packen

AW: Einen TMemoryStream in ein TBytes packen

AW: Einen TMemoryStream in ein TBytes packen

AW: Einen TMemoryStream in ein TBytes packen

AW: Einen TMemoryStream in ein TBytes packen

Forumregeln

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#1 Einen TMemoryStream in ein TBytes packen 14. Nov 2012, 09:48 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: stream.ReadBuffer(MyBytes,stream.size); Wie müsste ich dies richtig machen? Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat

Uwe Raabe Registriert seit: 20. Jan 2006 Ort: Lübbecke 11.452 Beiträge Delphi 12 Athens	#2 AW: Einen TMemoryStream in ein TBytes packen 14. Nov 2012, 09:58 markieren Delphi-Quellcode: SetLength(MyBytes, stream.size); if stream.size > 0 then stream.ReadBuffer(MyBytes[0],stream.size); Uwe Raabe Certified Delphi Master Developer Embarcadero MVP Blog: The Art of Delphi Programming
	Zitat

Sir Rufo Registriert seit: 5. Jan 2005 Ort: Stadthagen 9.454 Beiträge Delphi 10 Seattle Enterprise	#3 AW: Einen TMemoryStream in ein TBytes packen 14. Nov 2012, 10:07 markieren Delphi-Quellcode: SetLength( MyBytes, Stream.Size - Stream.Position ); if Length( MyBytes ) > 0 then Stream.ReadBuffer( MyBytes[0], Length( MyBytes ) ); Kaum macht man's richtig - schon funktioniert's Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#4 AW: Einen TMemoryStream in ein TBytes packen 14. Nov 2012, 10:12 Hat geklappt. Vielen Dank! Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.062 Beiträge Delphi 12 Athens	#5 AW: Einen TMemoryStream in ein TBytes packen 14. Nov 2012, 10:14 TBytesStream Neuste Erkenntnis: Seit Pos einen dritten Parameter hat, wird PoSex im Delphi viel seltener praktiziert.
	Zitat