delphi 读取Image组件转换base64编码

uses EncdDecd;

function ImageStreamToBase64(AImage: TImage): string; //读取 Image 组件转换base64编码

var

ReadImageStream:TMemoryStream;

ToBase64Stream: TMemoryStream;

begin

Result := '';

ToBase64Stream := TMemoryStream.Create;

ReadImageStream := TMemoryStream.Create;

try

AImage.Picture.SaveToStream(ReadImageStream);

ReadImageStream.Position := 0;//www.delphitop.com

ToBase64Stream.LoadFromStream(ReadImageStream);

Result := EncodeBase64(ToBase64Stream.Memory, ToBase64Stream.Size);

finally

ToBase64Stream.Free;

ReadImageStream.Free;

end;

Delphi 读取图像文件base64编码加载到Image组件显示图片 http://www.delphitop.com/html/tuxiang/4539.html

推荐分享