Delphi7中使用Indy9的IdSmtp发送email时subject过长会出现乱码的解决办法

procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
   -- 这里是一处bug,将导致含有中文字的header长度超过45即被截断,且影响正文中附件的解读
      详见:http://bbs.csdn.net/topics/50353103 
            主题第二行不解码的原因是:TIdMessage用Base64编码生成主题时,回车换行符'\0d\0a'重复了,
            即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
      另外,这里有另一个解决方案 http://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=33928
      ...
      此处是我的第三种解决方案   Anjo, 2013.9.30
  LHeaders.Text := StringReplace(LHeaders.Text, #13#10#13#10, #13#10, [rfReplaceAll]);

  try
    WriteStrings(LHeaders);
  finally
    FreeAndNil(LHeaders);
  end;
end;

 

找到IdMessageClient.pas文件,复制到工程文件夹中,然后做如上修改。

转载于:https://www.cnblogs.com/anjo/p/3374544.html

  • 0
    点赞
  • 0
    评论
  • 1
    收藏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值