Arsip: Konversi Bitmap ke Text atau Text ke Bitmap

procedure BitmapToText(Bmp:TBitmap;var strBmp:string);
var aStrStream:TStringStream;
begin
  aStrStream:=TStringStream.Create('');
  try
    bmp.SaveToStream(aStrStream);
    strBmp:=astrStream.DataString;
  finally
    astrStream.Free;
  end;
end;
procedure TextToBitmap(const
strBmp:string;Bmp:TBitmap)
var aStrStream:TStringStream;
begin
  aStrStream:=TStringStream.Create(strBmp);
  try
    bmp.LoadFromStream(aStrStream);
  finally
    astrStream.Free;
  end;
end;

//menampilkan data bitmap kedalam memo
BitmapToText(Image1.Picture.Bitmap,Memo1.Text);
//mengkopi data di memo ke suatu bitmap
TextToBitmap(Memo1.Text,Bitmap2);
Bitmap2.SaveToFile('copy.bmp');