Delphi使用Python来解码邮件

估计很多人和我一样，在使用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端的代码：

 

 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生气了!  :-)