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 2009 泛型容器单元(generics.collections)[5]: tobject...<t> 系列

Delphi 让label 始终在form的正中显示

Delphi中in的使用

Delphi 获取cpu占用时间

Delphi 过滤网页代码 <script></script>

Delphi idsmtp控件发送邮件

Delphi程序不受windows日期格式的影响

Delphi timer定时器 实现定时执行

Delphi 将memo转化为jpg输出

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

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