Delphi：从图像创建一个字符串并添加到备忘录中

Question

我在TImage组件中有一张图片。我需要将该图像转换为字符串并将其放在TMemo组件中。怎么样？

Answer 1

您的代码可能是这样的。

implementation
uses
  EncdDecd;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ss    :TMemoryStream;
begin
  ss   :=TMemoryStream.Create();
  try
    Image1.Picture.Graphic.SaveToStream(ss);
    Memo1.Text  :=  EncodeBase64(ss.Memory, ss.Size);
  finally
    ss.Free;
  end;
end;