Ok man merkt ich sollte aufhören für heute....
Überarbeitet:
Delphi-Quellcode:
procedure tTestStream.WriteStream(aStream: TStream);
Var hSize : Int64;
begin
hSize := aStream.Size;
Write(hSize, Sizeof(hSize));
CopyFrom(aStream,hSize);
end;
function tTestStream.ReadStream: TStream;
var hSize : Integer;
begin
Result := TStream.Create;
Read(hSize,Sizeof(hSize));
Result.CopyFrom(Self,hSize);
end;
Edit : wobei... dann kopiert mir ja die Read Funktion den ganzen stream und nicht nur den Stream ab der position?
glaube da muss ich morgen noch mal aus anderes suchen...