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

Question

在 FMX 中，我可以使用

System.NetEncoding

单元在 Delphi 中编码和解码 Base64 字符串，但该单元在 TMS Web Core 中似乎不可用：

[错误] uMain_web.pas(29)：找不到单元“System.NetEncoding”

用于

System.NetEncoding

或解码/编码 Base64 的 TMS Web Core 替代方案是什么？

Answer 1

不幸的是，

System.NetEncoding

不适用于 TMS Web Core。

在 TMS Web Core 中，您可以使用

window.btoa()

和

window.btoa()

。

btoa

编码和

atob

解码。

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