Delphi 读取图像文件base64编码加载到Image组件显示图片


本文整理自网络,侵删。

 

uses EncdDecd;

 

function Base64ToImage(const base64: string;AImage: TImage):Boolean;

var

  Input: TStringStream;

  Output: TBytesStream;

begin

Result :=False;

  Input := TStringStream.Create(base64, TEncoding.ASCII);

  try

    Output := TBytesStream.Create;

    try //www.delphitop.com

      EncdDecd.DecodeStream(Input, Output);

      Output.Position := 0;

      try

        AImage.Picture.LoadFromStream(Output);

        if AImage.Picture.Graphic<>nil then

        begin

        Result :=true;

        end

        else

        begin

        Result :=false;

        end;

      except

        AImage.Free;

        raise;

      end;

    finally

      Output.Free;

    end;

  finally

    Input.Free;

  end;

end;

 

用法:

Base64ToImage(Memo1.Text,Image1); //Image1 为组件

 

Delphi 读取Image组件转换base64编码 http://www.delphitop.com/html/tuxiang/4535.html

相关阅读 >>

Delphi [函数] unicode 检查字符串是否含中文字

Delphi 将自己的app.ico应用程序图表添加到dephi资源文件res中

Delphi中组件panel、splitter、groupbox、按钮组件(checkbox...)、计时器、滚动条、多选卡

Delphi删除cookie和ie缓存

Delphi 如何解析网址?

Delphi xe程序的主题(theme)设置

Delphi winapi: getmodulefilename、getmodulehandle

Delphi 去除 tstringlist 重复项

Delphi中判断窗体最大化和最小化事件

Delphi xe android下让tmemo不自动弹出键盘

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...