uses
EncdDecd;
{**************************************************************************
名称: BaseImage
参数: fn: TFilename
返回值: string
功能: 将fn文件转换成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);
str := m2.DataString;
str := StringReplace(str, #13, '', [rfReplaceAll]);
str := StringReplace(str, #10, '', [rfReplaceAll]);
m1.Free;
m2.Free;
result := str;
end;
Delphi 图片转base64值函数
最新推荐文章于 2024-06-05 15:40:36 发布