Delphi Base64 编解码

Delphi 自带了 Base64 编解码的单元，叫 EncdDecd

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

uses
EncdDecd

对流的编解码：
procedure EncodeStream(Input, Output: TStream); // 编码
procedure DecodeStream(Input, Output: TStream); // 解码

// 对字符串的编解码：
function EncodeString(const Input: string): string; // 编码
function DecodeString(const Input: string): string; // 解码

对图片的加密解密 并返回字符串

uses
System.NetEncoding;

var
ms:TMemoryStream;
ss:TStringStream;

///将Bitmap位图转化为base64字符串
function BitmapToStringtid(img:TBitmap):TIdBytes ;
var

s:string;
begin
// ms.Position:=0;
ms.Clear;
ms.Position :=0;
img.SaveToStream(ms);
ss.Position :=0;
ms.Position:=0;
EncodeStream(ms,ss);//将内存流编码为base64字符流
s:=ss.DataString;
ms.Clear;
ss.Clear;
result:=ToBytes(s);
end;

///将base64字符串转化为Bitmap位图
function StringtidToBitmap(imgStr:TStringStream):TBitmap;

begin
//ss.WriteString(imgStr);
imgStr.Position:=0;
ms.Clear ;
ms.Position:=0;
DecodeStream(imgStr,ms);//将base64字符流还原为内存流
ms.Position:=0;
bitmap.LoadFromStream(ms);
//ss.Clear;
ms.Clear;
result :=bitmap;
end;