Einzelnen Beitrag anzeigen

1aa

Registriert seit: 28. Sep 2008
48 Beiträge
 
Delphi XE5 Enterprise
 
#1

Stream in Stream kopieren

  Alt 20. Dez 2013, 01:42
Delphi-Version: XE5
Steh grad etwas aufm Schlauch:

Wenn ich mit:
Delphi-Quellcode:
procedure tTestStream.WriteStream(aStream: TStream);
 Var hSize : Int64;
begin
 aStream.Position :=0;
 hSize := aStream.Size;
 Write(hSize, Sizeof(hSize));
 CopyFrom(aStream,hSize);
end;
Daten aus einem anderem Stream in den neuen reinkopiere müsste ich diese doch mit :

Delphi-Quellcode:
function tTestStream.ReadStream: TStream;
var hSize : Integer;
begin
  Read(hSize,Sizeof(hSize));
  Result.CopyFrom(Self,hSize);
end;
auslesen können?

oder hab ich hier einen Denkfehler?

edit: tTestStream erbt von TMemoryStream
  Mit Zitat antworten Zitat