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中控制扫描仪

Delphi一句话获取本机ip

Delphi 模拟按键的一些误解

Delphi 内存管理[5]

Delphi 使用 idhttp 获取 utf-8 编码的中文网页

Delphi 获得当前进程所使用的内存

Delphi得到字符串中第一个汉字的位置

Delphi unigui获取连接的客户端列表

Delphi2009 使用 png 图片

Delphi格式化函数format、formatdatetime和formatfloat

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

转载请注明出处：木庄网络博客 » Delphi 读取图像文件base64编码加载到Image组件显示图片