Delphi 下的Base64编码和解码

最新推荐文章于 2025-05-17 15:40:11 发布

原创最新推荐文章于 2025-05-17 15:40:11 发布 · 1.4w 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

Delphi 专栏收录该内容

53 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的Base64编码和解码的方法。通过创建TIdEncoderMIME和TIdDecoderMIME实例，文章详细展示了如何将UTF-8编码的字符串进行Base64编码及解码的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function Base64Encode(s : string) : string;  //base64 编码
var base64 : TIdEncoderMIME;
    tmpBytes : TBytes;
begin
  base64 := TIdEncoderMIME.Create(nil);
  try
    base64.FillChar := '=';
    tmpBytes := TEncoding.UTF8.GetBytes(s);
    Result := base64.EncodeBytes(TIdBytes(tmpBytes));
  finally
    base64.Free;
  end;
end;

function Base64Decode(s : string) : string;  //base64 解码
var base64 : TIdDeCoderMIME;
    tmpBytes : TBytes;
begin
  Result := s;
  base64 := TIdDecoderMIME.Create(nil);
  try
    base64.FillChar := '=';
    tmpBytes := TBytes(base64.DecodeBytes(s));
    Result := TEncoding.UTF8.GetString(tmpBytes);
  finally
    base64.Free;
  end;
end;