本文整理自网络，侵删。
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 二进制值转换十六进制 bintohex和hextobin
Delphi windows 编程[18] - 更换菜单项: modifymenu
更多相关阅读请进入《Delphi》频道 >>
