Moin !

Ich habe folgende Procedure:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm10.dxBarButton6Click(Sender: TObject);
var fs: TFileStream;
    ms: TMemoryStream;
begin
  ms := TMemoryStream.Create; // Memory Stream für Objekt erzeugen
  fs := TFileStream.Create('test.dat',fmCreate); // Filestream erzeugen in dem alles abgelegt wird

  aqDockingManager1.SaveToStream(ms); // aqDockingManager1 - Daten in dem Stream ablegen

  fs.WriteBuffer(ms, ms.Size); // aqDockingManager1 abspeichern

  fs.Free;
  ms.Free;
end;

Wenn ich das debugge dann kann ich feststellen das im MemoryStream MS alles sauber drin steht. Nämlich die Infos von DockingManager1. Wenn ich mir dann aber die Datei ansehe die durch TFileStream erzeugt wird, dann steht da was gänzlich anderes drin - nur Datenschrott.
Und ein Einlesen klappt dann logischerweise auch nicht mehr.

Kann mir jemand sagen wo mein Fehler liegt ? Warum wird der MemoryStream nicht sauber weggeschrieben ?

Hallo.

Write(a,b) oder WriteBuffera(a,b) verwendest du, wenn du den zu lesenden Inhalt der Länge b Bytes in Variable a speichern willst. "a" kann dann z.B. ein Integer sein. Strings muss man jedoch a[1] nennen. Aber in die MemoryStream-Variable kannst du nicht speichern!

Du kannst Inhalte von Streams mit "CopyFrom" rüberkopieren.

PS: Bitte Ressourcenschutzblöcke verwenden!

markieren

Delphi-Quellcode:

xyz := TStream.Create();
try
  // xyz...
finally
  xyz.free;
end;

Gruß
blackdrake

Moin !

Hmm, ich glaub ich steh auf der Leitung. Aber so tuts auch ned :

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm10.dxBarButton6Click(Sender: TObject);
var fs: TFileStream;
    ms: TMemoryStream;
begin
  ms := TMemoryStream.Create; // Memory Stream für Objekt erzeugen
  fs := TFileStream.Create('test.dat',fmCreate); // Filestream erzeugen in dem alles abgelegt wird

  aqDockingManager1.SaveToStream(ms); // aqDockingManager1 - Daten in dem Stream ablegen

  fs.CopyFrom(ms, ms.Size); // aqDockingManager1 abspeichern

  fs.Free;
  ms.Free;
end;

Da kriege ich einen Stream Lesefehler

Hallo,

Zitat von moelski:

Da kriege ich einen Stream Lesefehler

Zitat von blackdrake:

Aber in die MemoryStream-Variable kannst du nicht speichern!

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   fs: TFileStream;
   ms: TMemoryStream;
Begin
   ms := TMemoryStream.Create;
   ms.LoadFromFile('C:\Download\Source.txt');
   fs := TFileStream.Create('C:\Download\Dest.txt', fmOpenReadWrite);
   fs.CopyFrom(ms, ms.Size);
   fs.Free;
   ms.Free;
End;

Was spricht eigentlich gegen
ms.SaveToFile('filename');
also dann so in etwa:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm10.dxBarButton6Click(Sender: TObject);
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create; // Memory Stream für Objekt erzeugen
  try
    aqDockingManager1.SaveToStream(ms); // aqDockingManager1 - Daten in dem Stream ablegen

    ms.SaveToFile('test.dat'); // aqDockingManager1 abspeichern
  finally
    ms.Free;
  end;
end;

Hallo.

Unter Umständen musst du zwischen "SaveToStream" und "CopyFrom" die Position wieder auf 0 setzen.

Gruß
blackdrake

Eventuell musst du die Position des Streams vor CopyFrom() auch noch passend mit Seek() oder Position setzen.

Roter Kasten: Man, warum bin ich immer so spät...

Zitat:

If Count is 0, CopyFrom sets Source position to 0 before reading and then copies the entire contents of Source into the stream. If Count is greater than or less than 0, CopyFrom reads from the current position in Source.

Moin !

So gehts:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm10.dxBarButton7Click(Sender: TObject);
Var
   fs: TFileStream;
   ms: TMemoryStream;
Begin
   ms := TMemoryStream.Create;
   //ms.LoadFromFile('E:\Documents and Settings\Administrator\My Documents\RAD Studio\Projekte\Unit1.pas');
   aqDockingManager1.SaveToStream(ms);
   fs := TFileStream.Create('ZTest.txt', fmCreate);
   ms.Position := 0;
   fs.CopyFrom(ms, ms.Size);
   fs.Free;
   ms.Free;
End;

Zitat:

Unter Umständen musst du nach "SaveToStream" die Position wieder auf 0 setzen.

Das war der Hinweis im Zusammenhang mit CopyFrom.

Nu rennt das ! Danke !

typischer Anfängerfehler.

markieren

Delphi-Quellcode:

aqDockingManager1.SaveToStream(ms); // aqDockingManager1 - Daten in dem Stream ablegen
ms.position := 0;
fs.CopyFrom(ms, ms.Size); // aqDockingManager1 abspeichern

Wenn du irgendwas aus einem Stream liest oder schreibst, was passiert mit Stream.Position ?
Und wenn nun der Zielstream -> ms -> leer ist un man schreibt 1000 Bytes da hinein, wo steht ms.Position ? (Tipp .Positon = .Size)
Wenn du dann aus Stream -> ms lesen möchtest und .Positon = .Size, wieviele Bytes kann man dann daraus lesen ?

Diese Fragestellung kam schon oft in der DP vor.

Gruß Hagen

Zitat von wicht:

Zitat:

If Count is 0, CopyFrom sets Source position to 0 before reading and then copies the entire contents of Source into the stream. If Count is greater than or less than 0, CopyFrom reads from the current position in Source.

Zitate aus der Hilfe bitte mit Quote-Tags versehen - ich dachte gerade schon die Delphi-Tags wären defekt

Edit: ah, schon selber gemerkt