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

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

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

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

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

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

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

uses IdCoderMIME

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var IdEncoderMIME: TIdEncoderMIME;<br>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;

　

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;