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 xe7 android通过配置实现splash功能

Delphi richedit根据鼠标位置定位光标的方法

Delphi如何过xp的防火墙而不被拦截

Delphi系统默认语言与系统支持的语言列表

Delphi xe7 rest获取天气实例

Delphi web格式与tcolor类型的转换函数

floattostr问题 保留小数位

Delphi 用内存流文件流资源生成客户端

Delphi用idhttp提交自定义cookie

Delphi判断驱动器类型

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

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