Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Stream in Stream kopieren

   
    by 1aa, 21. Dez 2013
  Noch mal danke....
  die zeiger position wars.....
  
  für die die es interessiert :
  
  function tTestStream.ReadStream: TMemoryStream;
  var hSize : Int64;
  begin
  Result := TMemoryStream.Create;
  Read(hSize,Sizeof(hSize));
• Forum: Object-Pascal / Delphi-Language

  AW: Stream in Stream kopieren

   
    by 1aa, 20. Dez 2013
  oder auch nicht jetzt bekomme ich wenn ich den internen memoryStream mit Copyfrom in einen FileStream copieren will die Fehlermeldung : "Stream-Lesefehler"
  
  
  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
• Forum: Object-Pascal / Delphi-Language

  AW: Stream in Stream kopieren

   
    by 1aa, 20. Dez 2013
  So etwas frischer heute...
  
  und Problem gelöst... man sollte nicht Tstream also constructor nutzen sondern zB. TMemoryStream...
  und schon geht es^^
  
  
  function tTestStream.ReadStream: TStream;
  var hSize : Integer;
  begin
  Result := TMemoryStream.Create;
• Forum: Object-Pascal / Delphi-Language

  AW: Stream in Stream kopieren

   
    by 1aa, 20. Dez 2013
  Ok man merkt ich sollte aufhören für heute....
  
  Überarbeitet:
  
  
  procedure tTestStream.WriteStream(aStream: TStream);
  Var hSize : Int64;
  begin
  hSize := aStream.Size;
  Write(hSize, Sizeof(hSize));
• Forum: Object-Pascal / Delphi-Language

  Stream in Stream kopieren

   
    by 1aa, 20. Dez 2013
  Steh grad etwas aufm Schlauch:
  
  Wenn ich mit:
  
  procedure tTestStream.WriteStream(aStream: TStream);
  Var hSize : Int64;
  begin
  aStream.Position :=0;
  hSize := aStream.Size;
  Write(hSize, Sizeof(hSize));