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!
Kann nicht mal wer negaH rufen? Unser Overkiller kann das doch bestimmt!
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;