DELPHI BASE64编码

uses

    System.NetEncoding

var

    LEncoding: TBase64Encoding;

begin

    LEncoding := TBase64Encoding.Create(-1,'');

    s:=LEncoding.Encode(s);

    LEncoding.Free;

end;