请教下把图片编码后如何解码和读取

Question

{问题是如何用IdDecoderMIME来解码后让Image读取呢？
俺把照片编码后在Memo1得到字符后不知如何让Image来读，不好意思，所有可用分只有42分了。}
procedure TForm1.Button1Click(Sender: TObject);
  var
    f : TFileStream;
begin
    f := TFileStream.Create('D:\Pictures\随照\DSC00111.JPG', fmOpenRead);
    try
    Memo1.Lines.Text := IdEncoderMIME1.Encode(f);
    finally
    f.Free;
    end;
end;

Answer 1

{各位大哥，俺是Delphi2009的环境，好像都不能用DecodeToStream了》？
[DCC Error] Unit1.pas(52): E2003 Undeclared identifier: 'DecodeToStream'}
procedure TForm1.Button2Click(Sender: TObject);
var
f : TmemoryStream;
begin
f := TmemoryStream.Create;
try
    IdDecoderMIME1.DecodeToStream(Memo1.Lines.Text,f);
    f.Position := 0;
    image1.Picture.bitmap.LoadFromStream(f);
finally
    f.Free;
end;
end;

Answer 2

在你的上个贴子里面我不是已经发了一个base64编解码的单元了么

Answer 3

谢谢月亮，我想试试Indy这个,同时我在Delphi2009的环境，那个base64编解码需要修改一些类型，以为是新手，所以就暂时无法都搞懂了。

Answer 4

Indy的没试过  帮你顶下