客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
估计很多人和我一样，在使用Indy的时候都会受不了众多的Bug，不得不边使用边修改。 近来一直使用Indy来收发邮件，从D7到D2007再到D2010，后来直接从SVN中检出一个最新版本来，让人惊喜的是新版本中修复了一些Bug，让人沮丧的是新版本中又重新引入了一些新的Bug，唉，锻炼人啊。 前几天简单看了一下Python，测试了一下发现Python对邮件的处理简直简练至极！并且接收和解码上也胜Indy很多，于是就想用Python来处理邮件。但因为工程是用Delphi的，所以就上网搜索了一下，发现了PythonForDelphi，使用了一下，很不错，于是就用Python做了个解码，然后在Delphi中调用。 先介绍一下相关资源： Python4Delphi: 入门： http://www.atug.com/andypatterns/pythonDelphiTalk.htm
噢，它竟然在google上和yahoo上都安了家： http://tech.groups.yahoo.com/group/pythonfordelphi/ http://code.google.com/p/python4delphi/
看一下Python端的代码：
1 import email
2 3 fp = open("Test.eml", "r") #打开eml文件 4 msg = email.message_from_file(fp) 5 #msg = email.message_from_string(str) #也可以从字符串创建 6 subject = msg.get("subject") # 取信件头里的subject, 也就是主题 7 # 下面的三行代码只是为了解码象=?gbk?Q?=CF=E0=C6=AC?=这样的subject 8 h = email.Header.Header(subject) 9 dh = email.Header.decode_header(h) 10 subject = dh[0][0] 11 print "subject:", subject 12 print "from: ", email.utils.parseaddr(msg.get("from"))[1] # 取from 13 print "to: ", email.utils.parseaddr(msg.get("to"))[1] # 取to 14 15 # 循环信件中的每一个mime的数据块 16 i=0 17 textplain='' 18 texthtml='' 19 20 for par in msg.walk(): 21 if not par.is_multipart(): # 这里要判断是否是multipart，是的话，里面的数据是无用的，至于为什么可以了解mime相关知识。 22 name = par.get_param("name") #如果是附件，这里就会取出附件的文件名 23 print name 24 25 if name: 26 print '有附件'+name #此处略，不对附件做处理，只处理文本内容 27 else: 28 #不是附件，是文本内容 29 #print par.get_payload(decode=True) # 解码出文本内容，直接输出来就可以了。 30 content_type=par.get_content_type() 31 if content_type in ['text/plain']: 32 textplain=par.get_payload(decode=True) 33 TextPlain.Value=textplain #这里TextPlain.Value和下面的TextHtml.Value在正常Python中是不能正确执行的，是Pytho4Delphi中的对象 34 if content_type in ['text/html']: 35 texthtml=par.get_payload(decode=True) 36 TextHtml.Value=texthtml 37 38 fp.close() 39
好了，上面只是示例性地处理了文本内容
下面在Delphi中增加两个TPythonDelphiVar,分别为TextPlain和TextHtm，然后：
1 PE.ExecStrings(Memo1.Lines);//Memo1中为上面的Python代码，当然可以放到文件中
2 ShowMessage(TextHtml.ValueAsString);//这时TextHtml.ValueAsString就是解码后的邮件超文本内容，如果有Text/plain内容，取TextPlain的值即可。
好了，不要再和Indy生气了! :-) |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论