Delphi使用Python来解码邮件 - garfieldtom - 博客园

发布时间:2017-2-21 4:08:35 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"Delphi使用Python来解码邮件 - garfieldtom - 博客园",主要涉及到Delphi使用Python来解码邮件 - garfieldtom - 博客园方面的内容,对于Delphi使用Python来解码邮件 - garfieldtom - 博客园感兴趣的同学可以参考一下。

估计很多人和我一样,在使用Indy的时候都会受不了众多的Bug,不得不边使用边修改。 近来一直使用Indy来收发邮件,从D7到D2007再到D2010,后来直接从SVN中检出一个最新版本来,让人惊喜的是新版本中修复了一些Bug,让人沮丧的是新版本中又重新引入了一些新的Bug,唉,锻炼人啊。 前几天简单看了一下Python,测试了一下发现Python对邮件的处理简直简练至极!并且接收和解码上也胜Indy很多,于是就想用Python来处理邮件。但因为工程是用Delphi的,所以就上网搜索了一下,发现了PythonForDelphi,使用了一下,很不错,于是就用Python做了个解码,然后在Delphi中调用。 先介绍一下相关资源: Python4Delphi: http://mmm-experts.com/ 入门: http://www.atug.com/andypatterns/pythonDelphiTalk.htm 噢,它竟然在google上和yahoo上都安了家: http://tech.groups.yahoo.com/group/pythonfordelphi/ http://code.google.com/p/python4delphi/ 看一下Python端的代码:  1import email 2 3fp = open("Test.eml", "r")  #打开eml文件 4msg = email.message_from_file(fp)  5#msg = email.message_from_string(str) #也可以从字符串创建 6subject = msg.get("subject") # 取信件头里的subject, 也就是主题 7# 下面的三行代码只是为了解码象=?gbk?Q?=CF=E0=C6=AC?=这样的subject 8h = email.Header.Header(subject) 9dh = email.Header.decode_header(h)10subject = dh[0][0]11print"subject:", subject12print"from: ", email.utils.parseaddr(msg.get("from"))[1] # 取from13print"to: ", email.utils.parseaddr(msg.get("to"))[1] # 取to1415# 循环信件中的每一个mime的数据块16i=017textplain=''18texthtml=''1920for par in msg.walk():21ifnot par.is_multipart(): # 这里要判断是否是multipart,是的话,里面的数据是无用的,至于为什么可以了解mime相关知识。22        name") #如果是附件,这里就会取出附件的文件名23print name2425if name:26print'有附件'+name  #此处略,不对附件做处理,只处理文本内容27else:28#不是附件,是文本内容29#print par.get_payload(decode=True) # 解码出文本内容,直接输出来就可以了。30            content_type=par.get_content_type()31if content_type in ['text/plain']:32                textplain=par.get_payload(decode=True)33                TextPlain.Value=textplain  #这里TextPlain.Value和下面的TextHtml.Value在正常Python中是不能正确执行的,是Pytho4Delphi中的对象34if content_type in ['text/html']:35                texthtml=par.get_payload(decode=True)36                TextHtml.Value=texthtml3738fp.close()39 好了,上面只是示例性地处理了文本内容 下面在Delphi中增加两个TPythonDelphiVar,分别为TextPlain和TextHtm,然后: 1PE.ExecStrings(Memo1.Lines);//Memo1中为上面的Python代码,当然可以放到文件中2ShowMessage(TextHtml.ValueAsString);//这时TextHtml.ValueAsString就是解码后的邮件超文本内容,如果有Text/plain内容,取TextPlain的值即可。 好了,不要再和Indy生气了!  :-)

上一篇:Win2008 R2 VDI:远程桌面虚拟机测试
下一篇:益和VA 5 多动态域名引擎,无固定IP者的福音

相关文章

相关评论