小编xJe*_*nej的帖子

我正在使用Delphi XE5中的android应用程序,我需要BASE64编码和解码一些字符串.

这个函数适用于英文字符,但我想编码€,$或任何特殊的iso8859-2字符编码不起作用.

知道怎么解决吗？

我找到了BASE64单元http://www.delphipraxis.net/991-base64-mime-en-decoding.html

但FireMonkey是否支持AnsiString和PAnsiChar类型以及要包含哪些单位才能使用此类型？

我的代码

uses IdCoderMIME;
...

function Encode64(S: string): string;
var
  IdEncoderMIME: TIdEncoderMIME;
begin
  try
    IdEncoderMIME := TIdEncoderMIME.Create(nil);
    Result := IdEncoderMIME.EncodeString(S);
  finally
    IdEncoderMIME.Free;
  end;
end;

function Decode64(S: string): string;
var
  IdDecoderMIME: TIdDecoderMIME;
var
  IdDecoderMIME: TIdDecoderMIME;
begin
  try
    IdDecoderMIME := TIdDecoderMIME.Create(nil);
    Result := IdDecoderMIME.DecodeString(S);
  finally
    IdDecoderMIME.Free;
  end;
end;