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 中 使用 tidhttp 提交post数据

Delphi判断某个程序是否已经启动

Delphi jsondataobjects

Delphi application.messagebox 详解

Delphi和c++指针详解

Delphi tidhttp 超时设置无效的解决方法

Delphi2010中tresourcestream流使用

Delphi的串口通讯，数据接收实时性太差

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 判断字符串是否包含数字

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

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