Base64 Encoding and Decoding with Delphi

Sempat menemukan masalah dengan encode/decode base64 dengan Delphi. Tapi akhirnya menemukan jawabannya. Berikut ini adalah source code untuk melakukan encode/decode base64.

Pertama, tambahkan code ini pada bagian uses.

uses IdCoder, IdCoder3to4, IdCoderMIME, jpeg;

Kemudian ini adalah function untuk Decode base64.

function base64Decode(const Text : ansiString): ansiString;
var
  Decoder : TIdDecoderMime;
begin
  Decoder := TIdDecoderMime.Create(nil);
  try
    Result := Decoder.DecodeString(Text);
  finally
    FreeAndNil(Decoder)
  end
end;

Dan ini adalah function untuk Encode base64. 

function base64encode(const Text : ansiString): ansiString;
var
  Encoder : TIdEncoderMime;
begin
  Encoder := TIdEncoderMime.Create(nil);
  try
    Result := Encoder.EncodeString(Text);
  finally
    FreeAndNil(Encoder);
  end
end;