我用indy上的IdBase64Encoder对gif图片进行的base64编码,然后存在c:/tupian.text文件
procedure TForm1.Button1Click(Sender: TObject);
var
  MyFileStream  :TFileStream;
  Buffer        :String;
begin
  memo1.Clear;
  if openDialog1.Execute then
  try
    MyFileStream:=TFileStream.Create(openDialog1.FileName,fmOpenRead);
    SetLength(buffer, MyFileStream.Size);
    MyFileStream.Read(Buffer[1], MyFileStream.Size);
    Buffer:=IdBase64Encoder1.CodeString(Buffer);  //得到编码后的字符串
    memo1.Lines.Add(Buffer);
  finally
    MyFileStream.Free; //eventually
  end;end;procedure TForm1.Button2Click(Sender: TObject);
begin
   with SaveDialog1 do
     if Execute then
     begin
       Memo1.lines.SaveToFile(Filename);
     end
end;
我怎么从c:/tupian.text 中把编好的base64码,用IdBase64Decoder解码成二进制即还原成gif文件呢??
分不够再加。