Encoding and Decoding a String in Delphi XE4 using Indy 10

Encoding and Decoding a String in Delphi XE4 using Indy 10

I am using Delphi XE4 and Indy 10. I want to share how I encoded and decoded a file in Delphi XE4 using Indy 10 client. Include IdCoder, IdCoder3to4, IdCoderMIME units and use TIdEncoderMIME and TIdDecoderMIME classes for this purpose. Following are two simple Delphi functions which illustrate the way of encoding and decoding a file in Delphi XE4 in very simple way. 

uses

IdCoder, IdCoder3to4, IdCoderMIME;

//Encoding function in Delphi XE4

procedure TMyForm.EncodeMIME_Example;

var

  EncodeMIME: TIdEncoderMIME;

  myEncryptedFile: WideString;

  stringToBeEncoded: WideString;

begin

  EncodeMIME :=  TIdEncoderMIME.Create(Self);

  try

    myEncryptedFile := EncodeMIME.Encode(stringToBeEncoded);

  finally

    EncodeMIME.Free;

  end;

end

//Decoding function in Delphi XE4

procedure TMyForm.DecodeMIME_Example;

var

  DecodeMIME: TIdDecoderMIME;

  myDecryptedFile: WideString;

  stringToBeDecoded: WideString;

begin

  DecodeMIME :=  TIdDecoderMIME.Create(Self);

  try

    myDecryptedFile := DecodeMIME.Decode(stringToBeDecoded);

  finally

    DecodeMIME.Free;

  end;

end