Delphi 文件转换Base64

本文整理自网络，侵删。

 
uses EncdDecd;
function FileToBase64(FileName: string): string;
var
  MemoryStream: TMemoryStream;
begin
  Result := '';
  MemoryStream := TMemoryStream.Create;
  try
    MemoryStream.LoadFromFile(FileName);
    Result := EncodeBase64(MemoryStream.Memory, MemoryStream.Size);
  finally
    MemoryStream.Free;
  end;
end; 

相关阅读 >>

Delphi 实现程序开机自动启动

print documents from Delphi - print pdf, doc, xls, html, rtf, docx, txt

快速查询posex与posrightex

Delphi如何计算一个文件目录的大小

Delphi字符串旋转任意角度

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi字符串反转函数

Delphi 给label1字加边的又一个算法

Delphi 在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

Delphi 中的自动引用计数使用规则

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

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