Delphi 10 Transformar base64 em imagem

Question

Como posso transformar base64 em objeto tipo Image ou Bitmap. Muitas publica��es existem, mas que nada me adiantaram, a imagem vem em arquivo JSON encoded base64 de um aplicativo mobile android,
s� que toda v�z que tento converter d� erro na grava��o desta imagem
Algu�m j� passou por isso?

Luiz Marcelo Vichiatto · Accepted Answer

Jair, tudo bom.J� vi esta situa��o, um sistema que desenvolvi, n�o tenho os fontes, mais ou menos assim que resolvi, o programa s� que da internet grava no Banco uma imagem em 64 e recupero no sistem...

Jair N. · Answer

Obrigado pela sua resposta vou verificar aqui, mas acredito que como n�o existe a intera��o com o banco de dados "as imagens" apenas salvas em diret�rio pr� definido, e que estou tentando utilizar o componente de convers�o para string "TidDecodeMME" 64

function TFormConexaoconfiguracao.BitmapFromBase64(const base64: string): TBitmap;
var
Input: TStringStream;
Output: TBytesStream;
t : TStream;
begin
Input := TStringStream.Create(base64, TEncoding.ASCII);
// Input := TStringStream.Create(base64, TEncoding.UTF8);
IdDecoderMIME64.DecodeStream(base64,Output);

try
Output := TBytesStream.Create;
try
// Soap.EncdDecd.DecodeStream(Input, Output);
IdDecoderMIME64.DecodeStream(base64,Output);
Output.Position := 0;

Result := TBitmap.Create;
try
Result.LoadFromStream(Output);
except
{est� cainda na exce��o}
Result.Free;
raise;
end;
finally
Output.Free;
end;
finally
Input.Free;
end;
end;

F�rum Delphi 10 Transformar base64 em imagem #585113