(转载)
估计很多人和我一样,在使用Indy的时候都会受不了众多的Bug,不得不边使用边修改。
近来一直使用Indy来收发邮件,从D7到D2007再到D2010,后来直接从SVN中检出一个最新版本来,让人惊喜的是新版本中修复了一些Bug,让人沮丧的是新版本中又重新引入了一些新的Bug,唉,锻炼人啊。
前几天简单看了一下Python,测试了一下发现Python对邮件的处理简直简练至极!并且接收和解码上也胜Indy很多,于是就想用Python来处理邮件。但因为工程是用Delphi的,所以就上网搜索了一下,发现了PythonForDelphi,使用了一下,很不错,于是就用Python做了个解码,然后在Delphi中调用。
先介绍一下相关资源:
Python4Delphi:
入门:
噢,它竟然在google上和yahoo上都安了家:
看一下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生气了! :-)