本文整理自网络，侵删。
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 在firemonkey应用程序中使用torientationsensor获取设备倾斜和指南针航向
Delphi版的隐藏模块单元 hidemoduleunit.pas
更多相关阅读请进入《Delphi》频道 >>
