delphi base64的“坑”

delphi base64的“坑”

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

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

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

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

?

1 2 3 4 5 6 7

uses system.NetEncoding;<br><br>var   LEncoding: TBase64Encoding; begin   LEncoding := TBase64Encoding.Create(-1,'');   S := LEncoding.Encode(SourceStr);   LEncoding.Free; end;