delphi - TNetEncoding.Base64.Encode 包含 CR LF

Question

这种行为是故意的吗？

...
uses
 System.NetEncoding;

...

var
  s: String;
begin
  s := TNetEncoding.Base64.Encode('asjjdhgfaoösjkdhföaksjdfhöasjdfhasdkjasdhfköajsjhdfajssssd');
end;

s 包含 CR LF:

YXNqamRoZ2Zhb8O2c2prZGhmw7Zha3NqZGZow7Zhc2pkZmhhc2RramFzZGhma8O2YWpzamhkZmFq '#$D#$A' c3Nzc2Q=

问题是我的所有 http 调用都会返回错误的请求。对方没想到会这样。

Answer 1

在这种情况下，您可以自己创建一个具有适当参数的实例:

var
  s: String;
  base64: TBase64Encoding;
begin
  base64 := TBase64Encoding.Create(0); // CharsPerLine = 0 means no line breaks
  try
    s := base64.Encode('asjjdhgfaoösjkdhföaksjdfhöasjdfhasdkjasdhfköajsjhdfajssssd');
  finally
    base64.Free;
  end;
end;