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

Delphi 存储过程与函数的区别

Delphi一个简单的多线程例子

Delphi 如何在数据表中存取图片

Delphi中判断字符串是否为数字

Delphi gethref 获取<a href="链接"></a>中href的数据

Delphi2010显示选择文件夹对话框 (有新建按钮)

Delphi文本数据导入数据库的方法

Delphi 创建大窗口

Delphi setlength 内存释放总结

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

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