Decode Base64 into Memo or file

[Jose Nilton Pace]

Hi Alessandro. Indy works great:

Code:

procedure TForm.Button_DecodeClick(Sender: TObject);
var
 base64: string;
 IdBytes: TIdBytes;
begin
 IdBytes := TIdDecoderMIME.DecodeBytes( mystringencodedbase64.Text );
 base64 := BytesToString( IdBytes, IndyTextEncoding_UTF8 );
end;

In this test case, look the debug picture: