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 如何清空image1

Delphi rest api post sample

Delphi 窗口跟随

Delphi 简单的截图代码

Delphi unigui form控件跳转

Delphi 判断一个颜色是否是亮色

Delphi sametext

Delphi 读写附加数据

Delphi通过loadlibrary调用其他动态库

Delphi中unicode转中文

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

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