官方QQ:  16643506

Xe下文件转Base64编码函数


需要引用单元 EncdDecd ,Xe验证通过。


function EncodeFile(const FileName: string): AnsiString;

var

   stream: TMemoryStream;

begin

   stream := TMemoryStream.Create;

   try

    stream.LoadFromFile(Filename);

    result := EncodeBase64(stream.Memory, stream.Size);

   finally

    stream.Free;

   end;

end;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678