delphi 读取图像文件base64编码加载到Image组件显示图片

uses EncdDecd;

function Base64ToImage(const base64: string;AImage: TImage):Boolean;

var

  Input: TStringStream;

  Output: TBytesStream;

begin

Result :=False;

  Input := TStringStream.Create(base64, TEncoding.ASCII);

  try

    Output := TBytesStream.Create;

    try //www.delphitop.com

      EncdDecd.DecodeStream(Input, Output);

      Output.Position := 0;

      try

        AImage.Picture.LoadFromStream(Output);

        if AImage.Picture.Graphic<>nil then

        begin

        Result :=true;

        end

        else

        begin

        Result :=false;

        end;

      except

        AImage.Free;

        raise;

      end;

    finally

      Output.Free;

    end;

  finally

    Input.Free;

  end;

end;

用法：

Base64ToImage(Memo1.Text,Image1); //Image1 为组件

Delphi 读取Image组件转换base64编码 http://www.delphitop.com/html/tuxiang/4535.html