在TMS Web Core中使用Delphi将字符串编码为Base64

很遗憾，不适用于 TMS Web Core。System.NetEncoding

在TMS Web Core中，您可以使用和。 编码和解码。window.btoa()window.atob()btoaatob

var
  EncodedString: String;
  DecodedString: String;
begin
  EncodedString := window.btoa('Shaun Roselt'); // Encode String to Base64
  DecodedString := window.atob('U2hhdW4gUm9zZWx0'); // Decode Base64 String
end;

我们可以在 TMS Web Core v2.3.0.0 中使用：System.NetEncoding

uses 
  System.NetEncoding;

procedure TForm1.WebButton1Click(Sender: TObject);
var
  Encoded, Decoded: String;
  Coder: TBase64Encoding;
begin
  Coder := TBase64Encoding.Create;
  Encoded := Base64Encoding.Encode('Shaun Roselt');
  Decoded := Base64Encoding.Decode(Encoded);
  Coder.Free;
end;