Delphi 将文件转换成Base64编码

本文整理自网络，侵删。

 

{**************************************************************************
  名称：   BaseImage
  参数：   fn: TFilename
  返回值： string
  功能：   将文件转换成Base64编码，返回值为编码
 **************************************************************************}
function BaseImage(fn: string): string;
var
    m1: TMemoryStream;
    m2: TStringStream;
    str: string;
begin
    m1 := TMemoryStream.Create;
    m2 := TStringStream.Create('');
    m1.LoadFromFile(fn);
    EncdDecd.EncodeStream(m1, m2);                       // 将m1的内容Base64到m2中
    str := m2.DataString;
    str := StringReplace(str, #13, '', [rfReplaceAll]);  // 这里m2中数据会自动添加回车换行，所以需要将回车换行替换成空字符
    str := StringReplace(str, #10, '', [rfReplaceAll]);
    result := str;                                       // 返回值为Base64的Stream
    m1.Free;
    m2.Free;
end;
 

相关阅读 >>

Delphi 键盘记录源代码

Delphi adoquery查询，如何得到查询记录数？

Delphi firedac 连接access mdb数据库的方法

Delphi里实现对图片base64编码解码

Delphi webbrowser1 缩放网页

Delphi xe5中移动平台的字符串要注意的事项

Delphi xe2-firemonkey 新功能

Delphi 创建文件夹并打开

Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

Delphi用idhttp提交自定义cookie

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

转载请注明出处：木庄网络博客 » Delphi 将文件转换成Base64编码