本文整理自网络,侵删。
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 winapi: getmodulefilename、getmodulehandle
Delphi xe android下让tmemo不自动弹出键盘
更多相关阅读请进入《Delphi》频道 >>