TMS Web Core中使用 Delphi 实现字符串到Base64的编码

dsf9zpds  于 2023-10-18  发布在  其他
关注(0)|答案(2)|浏览(107)

在FMX中,我可以使用System.NetEncoding单元在 Delphi 中对Base64字符串进行编码和解码,但这个单元似乎在TMS Web Core中不可用:
[错误] uMain_web.pas(29):找不到单元“System.NetEncoding”
System.NetEncoding或Base64解码/编码的TMS Web Core替代方案是什么?

7rfyedvj

7rfyedvj1#

不幸的是,System.NetEncoding不适用于TMS Web Core。
在TMS Web Core中,您可以使用window.btoa()window.atob()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;
doinxwow

doinxwow2#

我们可以在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;

相关问题