Delphi XML base64编码

以下是使用Delphi进行XML Base64编码的示例代码：

function EncodeBase64(const Input: string): string;
var
  InputBytes: TBytes;
begin
  InputBytes := TEncoding.UTF8.GetBytes(Input);
  Result := TNetEncoding.Base64.EncodeBytesToString(InputBytes);
end;

function EncodeXML(const Input: string): string;
begin
  Result := '<data>' + EncodeBase64(Input) + '</data>';
end;

这段代码将输入字符串转换为UTF-8字节流，然后使用TNetEncoding.Base64类进行Base64编码。最后，将结果包装在XML元素"\<data\>"中返回。