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 tnethttpclient https忽略证书验证

Delphi检测鼠标指针的改变(全局)

Delphi 获得用android应用程序触摸到的位置(坐标)的方法

Delphi 读取文本文件的最后一行

Delphi 公历转农历函数

Delphi 配置驱动程序（firedac）

Delphi 结构化文件存取

Delphi edit,memo中禁用ctrl+v

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi 循环 low high 用法

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

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