解决：不能用163发邮件，用pop3收邮件显示乱码

最新推荐文章于 2021-07-29 11:38:44 发布

jinzhili

最新推荐文章于 2021-07-29 11:38:44 发布

阅读量4.3k

点赞数

分类专栏： Delphi 文章标签： header c

本文链接：https://blog.csdn.net/jinzhili/article/details/1373946

版权

Delphi 专栏收录该内容

55 篇文章 0 订阅

订阅专栏

收发邮件程序：
新建一个工程
1.解决163不能发信
    从C:/Program Files/Borland/Delphi7/Source/Indy目录中找到IdSMTP.pas
    将SendCmd('RSET'); 注释掉，重新编译，然后覆盖
    1.1 C:/Program Files/Borland/Delphi7/Source/Indy中的IdSMTP.pas
    1.2 C:/Program Files/Borland/Delphi7/Lib中的IdSMTP.dcu
    1.3 C:/Program Files/Borland/Delphi7/Lib/Debug中的IdSMTP.dcu

2.解决用POP3收信时TITLE不能显示中文。
    从C:/Program Files/Borland/Delphi7/Source/Indy目录中找到IdCoderHeader.pas
    把 encodingstartpos:=PosStartAt('=?ISO', UpperCase(Header),1);
    改成：encodingstartpos:=PosStartAt('=?', UpperCase(Header),1);
    把 encodingstartpos:=PosStartAt('=?ISO', UpperCase(Header),encodingstartpos+1);
    改成：encodingstartpos:=PosStartAt('=?', UpperCase(Header),encodingstartpos+1);
    然后覆盖
    1.1 C:/Program Files/Borland/Delphi7/Source/Indy中的IdCoderHeader.pas
    1.2 C:/Program Files/Borland/Delphi7/Lib中的IdCoderHeader.dcu
    1.3 C:/Program Files/Borland/Delphi7/Lib/Debug中的IdCoderHeader.dcu