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 控制台读写

Delphi 判断素数的简单例子

Delphi 利用createservice写与桌面交互的win32服务

Delphi xe下文件转base64编码函数

Delphi android权限

Delphi中对进程内存进行读写

Delphi xe8 numberbox使用方法及存在的问题

Delphi中如何用image控件显示网络图片

Delphi cef4 忽略不安全网站

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

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

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