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