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


本文整理自网络,侵删。

 


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

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

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

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

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

uses IdCoderMIME


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;
 


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;
  
来源:https://www.cnblogs.com/hnxxcxg/p/11096076.html

相关阅读 >>

Delphi 给gmail发送邮件

Delphi 获取文件夹路径最后一级文件夹目录名称

Delphi 根据快捷方式路径取源文件地址

Delphi net.httpclient用最精简的代码获取网页数据

Delphi如何在资源管理器中定位文件

Delphi用mapfileandchecksum 函数检测 exe 或 dll 是否被修改

Delphi unigui日志的控制

Delphi idhashmessagedigest md5用法

Delphi monthcalendar1 获取选中日期

Delphi xe 遍历指定数据库,清空各表记录

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...