delphi Base64 编解码

最新推荐文章于 2024-04-30 20:35:53 发布

jls

最新推荐文章于 2024-04-30 20:35:53 发布

阅读量2.1k

点赞数

分类专栏： delphi

delphi 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

Delphi 自带了 Base64 编解码的单元，叫 EncdDecd，这名字很拗口而且不直观，估计这是一直很少人关注和知道的原因。

这个单元提供两套四个公开函数：

对流的编解码：

procedure EncodeStream(Input, Output: TStream); inline; // deprecated 'Use TNetEncoding.Base64.Encode'; // 编码
procedure DecodeStream(Input, Output: TStream); inline; // deprecated 'Use TNetEncoding.Base64.Decode'; // 解码

// 对字符串的编解码：
function EncodeString(const Input: string): string; inline; // deprecated 'Use TNetEncoding.Base64.Encode';
function DecodeString(const Input: string): string; inline; // deprecated 'Use TNetEncoding.Base64.Decode';

{$IFDEF NEXTGEN}
function DecodeBase64(const Input: string): TBytes; inline; // deprecated 'Use TNetEncoding.Base64.DecodeStringToBytes';
function EncodeBase64(const Input: Pointer; Size: Integer): string; inline; // deprecated 'Use TNetEncoding.Base64.EncodeBytesToString';
{$ELSE !NEXTGEN}
function DecodeBase64(const Input: AnsiString): TBytes; inline; // deprecated 'Use TNetEncoding.Base64.DecodeStringToBytes';
function EncodeBase64(const Input: Pointer; Size: Integer): AnsiString; inline; // deprecated 'Use TNetEncoding.Base64.EncodeBytesToString';
{$ENDIF NEXTGEN}