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 strtodatetime 这个函数在win7下出错

Delphi 游戏是如何检测到有od等调试工具的

Delphi 中string字符串转换byte[]字节数组

Delphi 如何在twebbrowsers之间传递数据

Delphi monthcalendar1 获取选中日期

Delphi try abort、exit except 、finally end 执行情况

Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法

Delphi中使用flash控件

程序人生 : 30岁，我的程序员梦想

Delphi判断一个字符是否为汉字的最佳方法

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

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