Es gibt ja auch den
TStringStream.
Damit wird's kurz & knackig:
Delphi-Quellcode:
function BitmapToString(Input: TBitmap): String;
var ms: TStringStream;
begin
ms := TStringStream.Create('');
try
Input.SaveToStream(ms);
Result := ms.DataSring;
finally
ms.Free;
end;
end
Für die Umkehrfunktion bitte beachten, dass man dem StringStream im Konstruktor einen Inhalt mitgeben kann.