delphi EncodeBase64

Delphi中的EncodeBase64函数可以将字节数组编码为Base64字符串。它的函数原型如下：

function EncodeBase64(const Input: TBytes): string;

其中，Input是要编码的字节数组，返回值是编码后的Base64字符串。

例如，以下代码将一个字符串编码为Base64字符串：

var
  Str: string;
  Bytes: TBytes;
  Base64Str: string;
begin
  Str := 'Hello, world!';
  Bytes := TEncoding.UTF8.GetBytes(Str);
  Base64Str := EncodeBase64(Bytes);
  ShowMessage(Base64Str);
end;

输出结果为：`SGVsbG8sIHdvcmxkIQ==`。