Delphi Xe下文件转Base64编码函数

本文整理自网络，侵删。

 
Delphi Xe下文件转Base64编码函数

uses　EncdDecd;

function EncodeFile(const FileName: string): AnsiString;
var
   stream: TMemoryStream;
begin
   stream := TMemoryStream.Create;
   try
    stream.LoadFromFile(Filename);
    result := EncodeBase64(stream.Memory, stream.Size);
   finally
    stream.Free;
   end;
end;

来源：http://www.xuexidashi.vip/h-nd-1516.html#_np=125_826
 

相关阅读 >>

Delphi qr /条形码扫描仪应用示例代码（使用zxing，tframestand）

Delphi的tclientsocket组件和tserversocket组件(c/s)说明

Delphi idhttp post 普通提交乱码处理

Delphi 字符串加密解密(不支持中文)

Delphi 全局键盘钩子(wh_keyboard)

Delphi xe7 新的并行库 system.threading

Delphi 判断文件名是否有效

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

Delphi一句话获取本机ip

Delphi xe5 Delphi 解析 json

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

转载请注明出处：木庄网络博客 » Delphi Xe下文件转Base64编码函数