Stream in Stream kopieren

[1aa]

oder auch nicht jetzt bekomme ich wenn ich den internen memoryStream mit Copyfrom in einen FileStream copieren will die Fehlermeldung : "Stream-Lesefehler"

Delphi-Quellcode:

procedure TForm1.DateiSave(aStream: TMemoryStream);
var hStream : TStream;
begin
  hStream := TFileStream.Create('Test2.txt',fmCreate);
  try
    hStream.CopyFrom(aStream,aStream.Size);{hier kommt der Fehler}
  finally
    hStream.Free;
  end;
end;

Weis einer woran das liegen könnte?

[himitsu]

Zitat von 1aa:

hStream.CopyFrom(aStream,aStream.Size);{hier kommt der Fehler}

Was ist aStream?
Ist das "OK"?
Wie groß ist aStream? (Size)
Wo der steht der Zeiger im aStream? (Position)

[1aa]

Noch mal danke....
die zeiger position wars.....

für die die es interessiert :

Delphi-Quellcode:

function tTestStream.ReadStream: TMemoryStream;
var hSize : Int64;
begin
  Result := TMemoryStream.Create;
  Read(hSize,Sizeof(hSize));
  Result.CopyFrom(Self,hSize);
end;

...

aStream := hStream.ReadStream;

...
procedure TForm1.DateiSave(aStream: TMemoryStream);
var hStream : TStream;
begin
  hStream := TFileStream.Create('Test2.exe',fmCreate);
  try
    aStream.Position := 0;
    hStream.CopyFrom(aStream,aStream.Size);
  finally
    hStream.Free;
  end;
end;