本文整理自网络，侵删。
{************************************************************************** 名称： BaseImage 参数： fn: TFilename 返回值： string 功能： 将文件转换成Base64编码，返回值为编码 **************************************************************************}function BaseImage(fn: string): string;var m1: TMemoryStream; m2: TStringStream; str: string;begin m1 := TMemoryStream.Create; m2 := TStringStream.Create(''); m1.LoadFromFile(fn); EncdDecd.EncodeStream(m1, m2); // 将m1的内容Base64到m2中 str := m2.DataString; str := StringReplace(str, #13, '', [rfReplaceAll]); // 这里m2中数据会自动添加回车换行，所以需要将回车换行替换成空字符 str := StringReplace(str, #10, '', [rfReplaceAll]); result := str; // 返回值为Base64的Stream m1.Free; m2.Free;end; 相关阅读 >>
Delphi 解决Delphi indy10下 utf8码转换的问题
Delphi 标头控件（theadercontrol）中的显示复选框
Delphi mediaplayer循环播放mp3所有音乐文件问题？
Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能
更多相关阅读请进入《Delphi》频道 >>
