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 setcurrentdir 设置当前文件夹路径

Delphi 根据年份获取年干支

Delphi2010中Delphi class explorer妙用

Delphi 中打开浏览器跳转网址链接网页的几种方法

Delphi opendialog1 savedialog1 默认路径

Delphi中设置条件断点

Delphi简单加密解密

Delphi中的字符串分割

Delphi 将base64字符串转化为jpeg图片

Delphi源码一个对字符加密解密的实例

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

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