StreamToString

[arbu man]

Ich steh grade ziehlich auf den Schlauch. Ich will einen Stream in einen String umwandeln. Doch folgende funktion gibt ein eigenartiges ergebnis aus. Was mache ich da falsch und welche ausgabe hat der Code bei euch ?

Delphi-Quellcode:

function streamtostr(S: TStream): string;
var
  str: string;
begin
  setlength(str, S.size);
  S.Read(str[1],length(str));
  result:= str;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: tmemorystream;
  s: string;
begin
  ms:= tmemorystream.Create;
  s := 'gsfdgfdghgfd';
  ms.Write(s, length(s));
  showmessage(streamtostr(ms));
end;

Was steht in der ShowMessage ???

[SirThornberry]

du musst die Streamposition wieder an den Anfang setzen bevor du daraus liest.

[arbu man]

So also ?

Delphi-Quellcode:

function streamtostr(S: TStream): string;
var
  str: string;
begin
  setlength(str, S.size);
  S.Position:=0;
  S.Read(str[1],length(str));
  result:= str;
end;

Jetzt erhalte zwar keinen dll namen aber aber auch noch nicht den text

[Zacherl]

Erzeuge doch einen TStringStram, lade mit CopyFrom den QuellStream in den StringStream. Danach kannst du den String aus dem StringStream auslesen.

Florian

[SirThornberry]

das liegt daran das du beim schreiben den Fehler gemacht hast den du beim lesen glücklicher Weise nicht gemacht hast. Mit
ms.Write(s, length(s)); schreibst du nicht den String sondern die Adresse wo der String hinzeigt + die Variablen dahinter. Wenn dann so:
ms.Write(s[1], length(s)); war aber sicher nen Pflüchtigkeitsfehler.

[arbu man]

Danke, meine güte bei stream mach ich wirklich alles falsch was auch nur geht

[Muetze1]

Ausserdem schreibt er die Adresse des Strings und alles nachfolgende im RAM in den Stream anstatt dem String selber. Ausserdem gibt es doch den TStringStream.

Delphi-Quellcode:

function streamtostr(S: TStream): string;
var
  str: string;
  lStringStream: TStringStream;
begin
  lStringStream := TStringStream.Create;
  Try
    lStringStream.CopyFrom(S, 0);
    Result := lStringStream.DataString;
  Finally
    lStringStream.Free;
  End;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: tmemorystream;
  s: string;
begin
  ms:= tmemorystream.Create;
  try
    s := 'gsfdgfdghgfd';
    ms.Write(s[1], length(s));
    ms.Position := 0;
    showmessage(streamtostr(ms));
  finally
    ms.Free;
  end;
end;

// Alternativ:
procedure TForm1.Button2Click(Sender: TObject);
var
  ms: tstream;
  s: string;
begin
  ms := tstringstream.Create('gsfdgfdghgfd');
  try
    ms.Position := 0;
    showmessage(streamtostr(ms));
  finally
    ms.Free;
  end;
end;

/EDIT: rote Box???

[taktaky]

Zitat von Muetze1:

...//

Delphi-Quellcode:

function streamtostr(S: TStream): string;
var
  str: string;
  lStringStream: TStringStream;
begin
  lStringStream := TStringStream.Create;
  Try
...

/EDIT: rote Box???

Du hast einen Fehler gemacht !
soll vielleicht so :
lStringStream := TStringStream.Create('');

[mkinzler]

Aber eigentlich ist doch egal, wie alt der Thread ist.

[taktaky]

Zitat von cruiser:

Sogar ÜBER ein Jahr... 1 1/4 sogar

zu alt, Und? Was falsch ist muss weg und updatet
Es gibt viele Leute, die in Archiv suchen