Delphi IdDecoderMIME 对图像编码base64解码成图像文件-木庄网络博客

本文整理自网络，侵删。

 //编码
procedure TForm1.Button3Click(Sender: TObject);

var
  filepath:string ;
  filestream:TFileStream;

  EncoderMIME:TIdEncoderMIME;
  encode_result:String;
begin
   if OpenPictureDialog1.Execute then
   begin
   Memo1.Clear;
   EncoderMIME:=TIdEncoderMIME.Create(self);
   filestream:= TFileStream.Create(OpenPictureDialog1.FileName,fmOpenRead);
   encode_result:=EncoderMime.Encode(filestream);
   Memo1.Lines.BeginUpdate;
   Memo1.Lines.add(encode_result);
   Memo1.Lines.EndUpdate;
   filestream.Free;
   end;

end;

//解码
procedure TForm1.Button4Click(Sender: TObject);
var
 DecoderMIME:TIdDecoderMIME;
 filestream:TFileStream;
 strm:TMemoryStream;
 filepath:string;
 myjpeg: TJPEGImage;

begin

  myjpeg := TJPEGImage.Create;
  strm := TMemoryStream.Create;
  filepath:=ExtractFileDir(Application.ExeName);
  DecoderMIME:=TIdDecoderMIME.Create(nil);
  DecoderMIME.DecodeStream(trim(Memo1.text),strm);
  strm.Position:=0;
  if strm.size>1 then
   begin
   //ShowMessage('字符长度：'+IntToStr(strm.size));
  // myjpeg.LoadFromStream(strm);
  Image1.Picture.Assign(myjpeg);

  end;
  strm.Free;

end;

Delphi IdDecoderMIME 对图像编码base64解码成图像文件

相关推荐

评论