Inhalt von TMemoryStream als String auslesen?

[LDericher]

Hallo DP!

Ich krieg' noch zu viel bei dem Mist :D
Ich versuche wie besessen, ein Bild, das ich in einem TMemoryStream habe, in einen String zu packen - komm aber nicht gut dabei weg. Hat wer nen akuten Einfall?
(->Problem: Inhalt eines TMemoryStream in einen string laden)

Ich habe es auch schon mit TStringStream versucht - Geht nicht!

Danke im Voraus für eine Antwort,
Euer LDer.

[DeddyH]

Wieso willst Du ein Bild in einen String packen? Da kann doch nichts Gescheites bei herauskommen :gruebel:

[turboPASCAL]

@DeddyH,
http://www.delphipraxis.net/internal...t.php?t=148264

[smallsmoker]

pack die daten doch in einen tstringstream und benutze dann tstringstream.datastring :)

[DeddyH]

Aso, klingt aber ein bisschen nach "von hinten durch die Brust ins Auge".

[nicodex]

Delphi-Quellcode:

var
  S: AnsiString;
  Buffer: TMemoryStream;
begin
  SetString(S, PAnsiChar(Buffer.Memory), Buffer.Size);
end;

[smallsmoker]

oder so: link

[LDericher]

Kann mir denn wirklich NIEMAND helfen?
Ausnahmsweise suche ich mal eine konkrete LÖSUNG oder einen quasi perfekten ANSATZ, nicht nur irgendeinen...
Ich bin hier am Verzweifeln! :pale:
Kann nicht mal wer negaH rufen? Unser Overkiller kann das doch bestimmt! :D
Danke.

LDer.

PS: Eure Lösungsansätze da sind zwar bestimmt nett gemeint, aber ich sagte bereits:
TStringStream FUNKTIONIERT NICHT!
Ich hab es ja versucht:

Delphi-Quellcode:

function BitmapToString(Input:TBitmap):string;
var
  P:TStringStream;
  CurChar:int64;
begin
P:=TStringStream.Create('');
Input.SaveToStream(P);
Result:='';
P.Position:=0;
Result:=P.DataString;
P.Free;
end;

Und nein, ICH WILL KEINEN STRING IN EINEN STREAM LADEN!
ICH HABE EINEN STREAM MIT EINEM BILD! ICH WILL EINEN STRING!
RUFT NEGAH! DER KANNS! BESTIMMT!

Add:
Das funktioniert auch nicht, da bekomm nur 5 Zeichen raus:

Delphi-Quellcode:

function BitmapToString(Input:TBitmap):string;
var
  P:TMemoryStream;
  CurChar:int64;
begin
P:=TMemoryStream.Create;
Input.SaveToStream(P);
Result:='';
P.Position:=0;
SetString(Result, PAnsiChar(P.Memory), P.Size);
P.Free;
end;

[DeddyH]

Hast Du mal den Ansatz von Nico versucht?

P.S.: Deine CapsLock-Taste scheint defekt zu sein.

[LDericher]

Zitat:

Zitat von DeddyH

Hast Du mal den Ansatz von Nico versucht?

Ja habe ich... siehe voriger Post.

Zitat:

Zitat von DeddyH

P.S.: Deine CapsLock-Taste scheint defekt zu sein.

Nein, ich musste einfach mal ausrasten ;) Ich habe nun schon so viele Ansätze vorgeworfen bekommen, die entweder nicht funktioniert haben - ist ja nicht schlimm - oder die einfach total am Geforderten vorbeigegangen sind, wie der vorschlag "TStringStream"...

Und ich bin Vertreter der Theorie, dass sich solche Ausbrüche vermeiden ließen, wenn die User erst mal lesen, ggf. Fragen stellen und DANN erst ihren Senf dazugeben würden...

Der LDer.

Edith: Dazu kommt noch, dass ich es komfortabler finde, in Großbuchstaben zu schreiben, als BBCodes zu verwenden -> so fett und so :D Naja egal, so oder so musste das raus ;)