TMemoryStream in String umwandeln - funzt nicht...

[-Lucky-]

Kurz zur Sache. Ich habe eine Klasse in der verschiedene Werte gespeichert sind.

Nun sollen diese Werte alle in ein Stream gespeichert und von dort anschließend in ein String umgewandelt werden. Wie mache ich das? Alles was ich bisher probiert habe war leider ohne Erfolg, delphi gibt aber auch keine Fehlermeldung aus. Wenn ich die Daten aber als Dokument mit TFileStream auf die Festplatte speichere, dann werden dort alle Daten geschrieben. Nun habe ich als Typ TMemoryStream drauß gemacht und möchte, dass die Daten quasi in den Arbeitsspeicher gespeichert werden, und von dort in ein String gepackt werden.

Delphi-Quellcode:

procedure Tver.Button4Click(Sender: TObject);
var strom: TMemoryStream;
i: integer;
text: string;
begin
strom := TMemoryStream.Create;
strom.Write(anz,SizeOf(anz));
for i:= 1 to anz - 1 do
pwli[i].speichern(strom);
text := MemoryToString(strom);
ShowMessage(text);
strom.Free;
end;

Und die Funktion zum Umwandeln MemoryToString:

Delphi-Quellcode:

function MemoryToString(ms: TMemoryStream): AnsiString;// inline;
var
  Len: Integer;
begin
  ms := TMemoryStream.Create;
  try
    Len := ms.Size;
    SetLength(Result, Len);
    if Len > 0 then
      ms.ReadBuffer(Result[1], Len);
  finally
    ms.Free;
  end;
end;

Ich sitze jetzt schon die ganze Nacht dran, weil ichs einfach nur ins String speichern will. Langsam bin ich am Verzweifeln.

Für Hilfe wäre ich sehr dankbar. Auch was die Rückwärtsfunktion angeht, dass ich aus einem String wieder ein TMemoryStream erhalte, und die Daten somit wieder auslesen kann.

[sx2008]

Nimm doch einfach einen TStringStream anstelle des TMemoryStream

[-Lucky-]

Es klingt logisch, aber es funktioniert nicht.

Delphi-Quellcode:

procedure Tver.Button4Click(Sender: TObject);
var strom: TStringStream;
i: integer;
text: string;
begin
strom := TStringStream.Create(text);
strom.Write(anz,SizeOf(anz));
for i:= 1 to anz - 1 do
pwli[i].speichern(strom);
ShowMessage(text);
strom.Free;
end;

Die Variable Text hat immer den Wert ''.

[Die Muhkuh]

Hi,

vielleicht erkennst Du an diesem Beispiel Deinen Fehler:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
  sStream: TStringStream;
  Test: String;
begin
  Test := 'Ich bin eine Stringvariable';
  sStream := TStringStream.Create(Test);
  ShowMessage(sStream.DataString);
  sStream.Free;
end;

[Nuclear-Ping]

Was genau steht denn in dem Stream? Wenn da Steuerzeichen drin sind, ist klar, dass er ihn nicht anzeigt.

[SirThornberry]

hast du position von dem Memorystream vorher auf 0 gesetzt? Die Methoden ReadBuffer, WriteBuffer, Read und Write arbeiten ab der aktuellen Streamposition. Steht diese nicht auf 0 weil du vorher was rein geschrieben hast und somit die Position geändert wurde so kann natürlich nichts mehr aus dem Stream gelesen werden weil die Position ja am Ende ist und da keine weiteren daten folgen.

[Der_Unwissende]

Zitat von -Lucky-:

Delphi-Quellcode:

function MemoryToString(ms: TMemoryStream): AnsiString;// inline;
//...
  ms := TMemoryStream.Create;
 try
    Len := ms.Size;
    SetLength(Result, Len);
    if Len > 0 then
      ms.ReadBuffer(Result[1], Len);
  finally
    ms.Free;
  end;
end;

Hi Lucky,

sag mal was liefert wohl ms.Size nach der Zeile TMemoryStream.Create?! Wenn der Wert mal > 0 ist, dann würde ich mir echt Sorgen machen!
Wenn Du dann einen Stream übergibst (und den nicht gerade vorher erzeugst), dann musst Du auch tunlichst darauf achten, dass die Position auf 0 zurückgesetzt wird. Hast Du also gerade ein Datum in den Stream eingelesen, dann steht der Positions-Zeiger des Streams eben auch am Ende (um anzuhängen). Versuch mal folgenden Code:

Delphi-Quellcode:

function memoryToString(const ms: TMemoryStream): String;
var Length: Integer;
begin
  length := Integer(ms.Size);
  setLength(result,
            length);

  ms.Position := 0;

  ms.Read(Result[1],
          length);

  ShowMessage(result);
end;

Die Rückwärtsfunktion sollte dann einfach sein, so was in der Art:

Delphi-Quellcode:

function StringToMemory(const s: String): TMemoryStream;
begin
  result := TMemoryStream.Create;
  
  if length(s) > 0 then
  begin
    result.write(s[1], 
                 length(s));
  end; 
end;

Gruß,
Der Unwissende

[add]
Nix roter Kasten, deshalb das gleiche gesagt wie SirThornberry
[/add]

[-Lucky-]

Aber eins wundert mich jetzt immer noch. Wozu brauche ich die Variable:

Test: String; wenn ich den Inhalt des Streams als Stringform mit:

strom.DataString; auslese? Das raff ich jetzt irgendwie gar nicht, das brauch man doch nicht, aber ganz sinnlos wirds auch nicht da stehen?

[Die Muhkuh]

Schau mal, was die Delphi-Hilfe schönes sagt:

Die Delphi-Hilfe hat geschrieben:

Syntax


 constructor Create(const AString: string);
Beschreibung
Mit Create können Sie ein TStringStream-Objekt instantiieren. Die Methode initialisiert die Eigenschaft DataString mit dem Parameter AString

[SirThornberry]

Seine Ursprüngliche Funktion aus dem ersten Beitrag war ja schon richtig. Nur ist dort eben der Fehler das er den Stream erneut erzeugt und somit die Instanzvariable nicht mehr auf den eigentlichen Stream zeigt.
Einfach das Create und Free innerhalb der Funktion weg lassen und es funktioniert.