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;
end;

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

相关阅读 >>

Delphi 判断驱动器盘符是否有效

wmi远程访问问题解决方法

Delphi daysbetween 用法片段

Delphi 记录鼠标点击坐标

Delphi chromium post

Delphi 获取外部程序句柄与发送消息

Delphi canvas.lineto 画线

Delphi 查看字符串在不同编码(ascii、unicode、utf7、utf8、default、bigendianunicode)下的 hex

Delphi query1 导出csv txt

Delphi如何粘贴html格式文本到windows剪切板

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

转载请注明出处：木庄网络博客 » Delphi 读取Image组件转换base64编码