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 字符串查找替换函数

Delphi 设置系统静音取消系统静音

Delphi 使richedit中的链接可以点击

Delphi high 返回数组下标的最大值

Delphi mailurlmaybeinvalid 检测邮箱地址有效性

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

Delphi c语言对比指针的用法

idftp无法设置transfertype属性

Delphi ado 动态建立.mdb数据库，表

Delphi 从一个html返回所有的图片链接

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

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