delphi base64的“坑”

delphi base64的“坑”

使用 Delphi 原生的Base64编码（System.NetEncoding 单元） ，编码后的字符串每隔76个字符会增加一个回车换行（#13#10），这样就导致和其他语言对接的时候出现问题，特别是Base64以后再进行签名，例如MD5签名，就会导致签名不一致。回车换行不容易看到，所以查找问题比较困难。

S := TNetEncoding.Base64.Encode(SourceStr);

解决方法：S := S.Replace(#13#10,'');

第二种方法就是直接使用 TBase64Encoding 类：

uses system.NetEncoding;

var
  LEncoding: TBase64Encoding;
begin
  LEncoding := TBase64Encoding.Create(-1,'');
  S := LEncoding.Encode(SourceStr);
  LEncoding.Free;
end;