Einzelnen Beitrag anzeigen

1aa

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

AW: Stream in Stream kopieren

  Alt 20. Dez 2013, 23:34
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?
  Mit Zitat antworten Zitat