base64

uses jpeg,EncdDecd,ZLibEx

//字符串base64 编码
Function StrtoBase64(const Str:string):string;
begin
 result:=EncodeString(Str);
end;
//字符串base64  解码
Function Base64toStr(const Base64:string):string;
begin
 result:=DecodeString(base64);
end;
//Jpeg base64  编码
Function JpegToBase64(Jpeg : Tjpegimage):string;
var
  jpegstream : TMemoryStream;
  StrStream  : TStringStream;
begin
  jpegstream :=TMemoryStream.Create;
  StrStream  :=TStringStream.Create('');
  jpeg.SaveToStream(jpegstream);
  jpegstream.Position:=0;
  EncodeStream(Jpegstream,strstream);
  result:=strstream.DataString;
  jpegstream.Free;
  strstream.Free;
end;
//Jpeg base64  解码
Function Base64ToJpeg(str: string):TJpegimage;
var
  jpegstream : TMemoryStream;
  StrStream  : TStringStream;
begin
  jpegstream :=TMemoryStream.Create;
  StrStream  :=TStringStream.Create(str);
  DecodeStream(StrStream,JpegStream);
  JpegStream.Position:=0;
  result:=TJpegimage.Create;
  result.LoadFromStream(JpegStream);
  jpegstream.Free;
  strstream.Free;
 
end;

 

///将Bitmap位图转化为base64字符串
function BitmapToString(img:TBitmap):string ;
var
  ms:TMemoryStream;
  ss:TStringStream;
  s:string;
begin
    ms := TMemoryStream.Create;
    img.SaveToStream(ms);
    ss := TStringStream.Create('');
    ms.Position:=0;
    EncodeStream(ms,ss);//将内存流编码为base64字符流
    s:=ss.DataString;
    ms.Free;
    ss.Free;
    result:=s; 
end;

///将base64字符串转化为Bitmap位图
function StringToBitmap(imgStr:string):TBitmap;
var ss:TStringStream;
    ms:TMemoryStream;
    bitmap:TBitmap;
begin
    ss := TStringStream.Create(imgStr);
    ms := TMemoryStream.Create;
    DecodeStream(ss,ms);//将base64字符流还原为内存流
    ms.Position:=0;
    bitmap := TBitmap.Create;
    bitmap.LoadFromStream(ms);
    ss.Free;
    ms.Free;
    result :=bitmap;
end;

function CompressStrToBase64(sStr: string): string;
var
  M1: TMemoryStream;
  M0, M2: TStringStream;
begin
  Result := '';
  if sStr = '' then
    Exit;
  M0 := TStringStream.Create(sStr);
  M1 := TMemoryStream.Create;
  M2 := TStringStream.Create(' ');
  try
    M0.Position := 0;
    M1.Position := 0;
    ZCompressStream(M0, M1);
    M1.Position := 0;
    M2.Position := 0;
    EncodeStream(M1, M2);
    Result := M2.DataString;
  finally
    FreeAndNil(M0);
    FreeAndNil(M1);
    FreeAndNil(M2);
  end;
end;

function DeCompressBase64ToStr(sStr: string): string;
var
  M0, M1: TStringStream;
  M2: TMemoryStream;
begin
  Result := '';
  if sStr = '' then
    Exit;
  M0 := TStringStream.Create;
  M1 := TStringStream.Create(sStr);
  M2 := TMemoryStream.Create;
  try
    M1.Position := 0;
    M2.Position := 0;
    DeCodeStream(M1, M2);
    M0.Position := 0;
    M2.Position := 0;
    ZDecompressStream(M2, M0);
    Result := M0.DataString;
  finally
    FreeAndNil(M0);
    FreeAndNil(M2);
    FreeAndNil(M1);
  end;
end;