TStringStream, nur andersrum o.O

[himitsu]

Moin, also ich hab zwar für mich schon eine Lösung, aber dennoch eine Frage dazu...

Warum kann man den TStringStream nicht nutzen, um einen String aus einem Stream rauszuholen?

TStringReader oder so hilft da auch nichts.

Grund:
auf einer Seite wollte ich einen String in einen Stream verfrachten, welches ja mit TStringStream und WriteString geht.
Nach der Datenübertragung wollte ich dann den String wieder aus dem Stream rausholen, aber irgendein Id*** hat da was vergessen, so daß man keinen Stream übergeben kann, um danach über ReadString auszulesen.

Wenn ich jetzt den Stream z.B erst in ein TBytes umwandeln muß, um den TStringStream nutzen zu können, dann kann ich auch gleich den Stream in einem String kopieren.

[Deep-Sea]

MeinStringStream.CopyFrom(Quellstream, 0);

[himitsu]

is ja umständlich
hatte im Constructor gesucht.

so ala

Delphi-Quellcode:

X := TStringStream.Create(MyStream);
S := X.ReadString;
X.Free;

[Bummi]

Das meintest Du nicht?

Delphi-Quellcode:

var
  st:TStringStream;
  s1,s2:String;
begin
  s1 := 'TestString';
  st:=TStringStream.Create;
try
  st.WriteString(s1);
  st.Position := 0;
  s2 := st.ReadString(st.Size);
  Showmessage(s2);
finally
  st.Free;
end;

end;

[himitsu]

Nicht ganz.
Auf Clientseite kommt ein String in 'nen Stream rein,
dieser wird dann zum server übertragen
und dort muß der String wieder aus dem Stream raus.
function TDataServerDemoMethods.AddStream(S: String; StringStream: TStream): String; Bei der Datenübertrageung kommt der Stream dann aber nicht als TStringStream im Server an, da dort vom Server ein neues/anderes Stream-Objekt erstellt wurde.

[Deep-Sea]

Kannst ja gerne eine Klasse von TStringStream ableiten und ihr einen Constructor verpassen, der dir passt

[himitsu]

Sowas hätte Emba aber auch schon verbauen können, denn wenn man damit einen String in einen Stream reinmachen kann,
X := TStringStream.Create('abcde'); .
dann wäre der umgekehrte Weg doch auch sehr naheliegend gewesen?