使用INDY解决BASE64回车换行问题

使用INDY解决BASE64回车换行问题

使用DELPHI EncodeStream()，对流数据进行BASE64编译以后，每隔75个字符，就会添加回车换行符（#$D#$A），这会造成许多问题。

网上许多解决方法，是对BASE64的字符串中的回车换行符，使用ReplaceStr(str,#$D#$A,''...)替换掉回车换行符。

虽然这样可以解决问题，但多执行了操作，从而影响了程序的性能。

下面使用INDY来帮助解决问题：

INDY的BASE64编码，不会每隔75个字符，就会添加回车换行符（#$D#$A）。

uses IdCoderMIME

var IdEncoderMIME: TIdEncoderMIME;
ms := TMemoryStream.Create;
  IdEncoderMIME := TIdEncoderMIME.Create(nil);
  try
    TZipTools.ZipStream(stream, ms);   // zip
    ms.Position := 0;
    {$IF CompilerVersion <= 15}    // d7
    Result := IdEncoderMIME.Encode(ms);
    {$ELSE}
    Result := IdEncoderMIME.EncodeStream(ms);
    {$IFEND}
  finally
    ms.Free;
    IdEncoderMIME.Free;
  end;

　

IdDeCoderMIME: TIdDeCoderMIME;
  ms := TMemoryStream.Create;
  IdDeCoderMIME := TIdDecoderMIME.Create(nil);
  try
    {$IF CompilerVersion <= 15}    // d7
    IdDeCoderMIME.DecodeToStream(str, ms);      // indy9
    {$ELSE}
    IdDeCoderMIME.DecodeStream(str, ms);        // indy10
    {$IFEND}
    ms.Position := 0;
    TZipTools.UnZipStream(ms, stream);  // unzip
  finally
    ms.Free;
    IdDeCoderMIME.Free;
  end;