PictureToString ?

[alzaimar]

Delphi-Quellcode:

Procedure StringToBitmap (Const aValue: String; aBitmap : TBitmap);
Var
  s: TStringStream;

Begin
  s := TStringStream.Create(aValue);
  Try
    aBitmap.LoadFromStream (S);
  Finally
    s.free
  End;
End;

Procedure BitmapToString (aBitmap : TBitmap; Var aString : String);
Var
  S : TStringStream;

Begin
  S := TStringStream.Create;
  Try
    aBitmap.SaveToStream (S);
    aString : =S.DataString;
  Finally
    M.Free;
  End;
End;