Jak zakodować lub odkodować ciąg znaków przy pomocy base64 komponentem indy Lazarus (Delphi)

Wrzucamy na formę następujące komponenty

• TIdDecoderMIME;
• TIdEncoderMIME;

znajdują się one w zakładce (Indy misc protocol encoders ) oraz (Indy misc protocol decoders ).

Konwertowanie zawartości memo do base64.

Memo1.Text: = IDEncoderMIME1.Encode (Memo1.Text);

Dekodowanie

Memo1.Text: = IDDecoderMIME1.DecodeString (Memo1.Text);