监视POP3信箱

监视POP3信箱2010-05-24本文将向大家介绍怎样编写自己的信箱监视程序，程序将直接调用WinSock函数来进行网络通信。除了具备WinSock编程知识之外，还必须了解POP3协议。下面是对POP3的一个粗略的介绍，读者可以参看RFC1225更为详细地了解该协议。

一、关于POP3协议

POP3服务器程序通常在TCP端口110提供服务。当客户想要使用服务时，它便与服务器建立一个TCP连接。一旦连接建立，POP3服务器就向客户发送一条欢迎消息。然后客户开始给服务器发送命令，服务器则给出相应的回答。POP3的命令由一个关键词或者关键词加参数组成。每个命令以回车换行（0xD0xA）作为结束标志。对于所有的命令，POP3服务器都会提供一个回答。服务器的回答由一个状态标志加一些附加信息组成。目前使用的两个标志是“＋OK”和“－ERR”，分别表示客户的命令是否合法。所有的回答也是以回车换行结束。

与本文讨论的话题相关的四个POP3命令是USER、PASS、LIST和QUIT。

USER命令

格式USERname

其中name是用户在该POP3服务器上的用户标识。客户应该在接到服务器的欢迎消息后或者在上一个USER或者PASS失败之后可以发送此命令。

PASS命令

格式PASSstring

其中string为该用户的密码。客户在发送了USER命令并且收到了＋OK的回答之后方可发送此命令。如果用户名和密码都正确，服务器回答＋OK，否则－ERR。

LIST命令

格式LIST

如果该用户有邮件，则LIST命令会回答＋OK，并列出所有邮件的标识符和大小（每个邮件一行），最后一个仅包含一个句点的行（0xD0xA0x2E）表示整个回答的结束。如果该用户没有邮件，有些服务器会返回－ERR，有些在可能返回一个＋OK和一个仅包含一个句点的行。当然，客户必须在PASS命令通过之后客户程序才能给服务器发送LIST命令。

QUIT命令

从POP3服务器上退出登录。

二、实现相关函数

接下来我们按照POP3协议所定义的通信规则来实现一个名叫POP3CheckMail的函数，只要调用此函数，我们就可以检测信箱了。

下面的代码是用与Delphi4兼容的Pascal语言实现的，我们必须包含WinSock单元，并且在调用下列函数之前初始化好WinSock动态连接库。初始化WinSock动态连接库的代码如下：

ifWSAStartup（＄002,wsadata）<>0thenHalt;

POP3CheckMail的原型如下：

functionPOP3CheckMail（Email,Password:String;varMailList:TStringList;varErrorMsg:String）:Bool;

参数说明：

Email和Password分别为用户的email信箱名和口令。

变量参数MailList用于返回邮件的标识和大小，MailList.Count表示邮件的封数。

变量参数ErrorMsg返回出错消息。