NMSMTP 是发邮件NMPOP3 才是收邮件的
解决方案 »
- 请问:用delphi代码,如何把windows服务管理器里面的某个服务(不妨取名为a)设置为自动启动?
- 一些问题困扰我???
- dbnavigator是如何感应数据变动的?
- ?怎样用字符串(如000111001)为系统分配权限?请看这部分不完全正确的代码,请更正
- 关于定义函数的参数问题
- 怎么在程序开始运行时载入一个Jpg文件作为窗口背景?
- 请问那里有用delphi写的机房管理系统的源代码?
- 怎样让一个运行的Delphi应用程序始终运行在windows的最前端
- 关于ShellApi的问题
- Delphi和MS Access数据库
- 用delphi如何实现矩阵相乘?
- 用什么函数可以调出WINDOWS的字体设置对话框?
(自己去体会一下)一. 设计思路 ---- Email 系统采用C/S 结构。当用户想发送邮件时或收取邮件时在客户机上运行任意 一个客户端程序,如Foxmail。在菜单’工具->选项’的邮件服务器里填上运行我们服务 器程序的主机名。服务器主机24小时一直运行我们的服务器端程序,SMTP和POP3服务器 程序分别在25端口和110端口侦听连接请求。当用户发信时,首先客户端会与服务器端建 立Socket连接。然后开始一应一答的Client/Server间的通信。发信和收信时建立连接后 服务器端分别要发送一个’250 OK’ 和’+OK pop3 server is ready ’的应答。客户 端收到此应答后开始发送SMTP或POP3命令。POP3通信时一般最开始的命令是’user ‘和 ’pass’或’ apop’用以进行身份验证。注意由于POP3会话有3个状态,某些命令只在 某特定状态下有效。当用户进行完所有的操作后发送一个’quit’命令。服务器端收到 此命令即终止此次socket连接并继续侦听其他的连接请求。注意:POP3通信时客户端在 Transaction状态下’quit’则进入update状态。如果从Authorization状态下’quit’ 则终止通信,而不进入Update状态。如果客户端不通过’quit’命令终止连接,POP3会 话不会进入Update状态。而只有在Update状态下收到’quit’命令后服务器才会在断连 前把标志为已删的邮件进行物理删除。 二. 代码实现(以POP3为例) ---- 自定义TPOP类的描述: SessionState = ( Init,Authorization, Transaction,Update); TPop=class (TComponent) public UserName:string;//Email帐户名 PassWord:string; //Email口令 ReceText:Pchar; //server端收到的字符串 PopState:SessionState; //pop状态:init or authorization or transaction or update MsgCount:integer; //邮件总数 SizeCount:integer; //邮件总大小 ReplyString:string;//服务器端发送的应答信息 DeleIndex:byte;//用户要删的邮件序号 ListIndex:byte;//list方法 的参数:用户要列出的序号为listindex的邮件信息 RetrIndex:byte;//retr方法的参数:用户要取序号为retrindex的邮件 TopIndex:byte; //top方法的参数 QuitFlag:boolean;//用户如果通过quit命断连则此变量为true;反之(此时要把f _dele都置回0) OldMsgCount:integer;//旧邮件数:Last 命令返回 //邮件头的各个域 HMsgId:string; HReplyTo:string; HDate:string; HFrom:string; HTo:string; HSubject:string; HMIME_Ver:real; HContent_Type:string; HContent_Transfer_Encoding:string; HText:string; //所有POP3服务器必须支持的命令 procedure user; function pass:boolean; procedure stat; procedure dele; procedure list; procedure retr; procedure noop; procedure rset; procedure aquit; procedure tquit; //扩展的可选择实现的POP3 命令 procedure top; procedure last; procedure apop; procedure uidl; end; ---- 1. 建立连接 ---- 我们可以看到利用了Tclientsocket后客户端请求建立连接只需下面的代码。 with ClientSocket do begin Host := Server; Active := True; end; ---- 服务器端利用TserverSocket,一直在侦听110端口,若客户端有连接请求,则Serv erSocketAccept事件会被激活,建立起连接。 procedure TMyForm.ServerSocketAccept(Sender: TObject; Socket: TCustomWinSoc ket); begin Statusbar1.Panels[0].Text := '连接到 ' + Socket.RemoteAddress; //pop对象初始化 pop:=TPop.Create(nil); pop.PopState:=init; pop.LoginResult:=false; pop.QuitFlag:=false; ServerSocket.Socket.Connections[0].sendtext('+OK ibonc pop3 server is read y'+crlf); end; ---- 2. 通信 ---- 服务器端收到客户端发来的信息,则会激活ServerSocketClientRead事件,通过S erverSocket的Socket.ReceiveText可以得到信息的内容。 procedure TMyForm.ServerSocketClientRead(Sender: TObject; Socket: TCustomWi nSocket); var temp_command :string; //存放接收到的命令行,并做去crlf的处理 begin temp_command:=Socket.ReceiveText; //to remove the crlf in command line temp_command:=trim(copy(temp_command,1,pos(crlf,temp_command)-1)); pop.ReceText:=pchar(temp_command); if pop.popstate=init then if strLIComp(pop.ReceText,'user ',5)=0 then pop.user else ServerSocket.Socket.Connections[0].sendtext('-ERR user name pleas e') else if pop.popstate=authorization then begin if strLIComp(pop.ReceText,'pass ',5)=0 then pop.pass else if strIComp(pop.ReceText,'quit')=0 then pop.aquit else ServerSocket.Socket.Connections[0].sendtext('-ERR pass word p lease'); end else if pop.popstate=transaction then begin if strIComp(pop.ReceText,'stat')=0 then pop.stat else if strLIComp(pop.ReceText,'dele ',5)=0 then pop.dele else if strLIComp(pop.ReceText,'list',4)=0 then pop.list else if strLIComp(pop.ReceText,'retr ',5)=0 then pop.retr else if strIComp(pop.ReceText,'noop')=0 then pop.noop else if strIComp(pop.ReceText,'rset')=0 then pop.rset else if strIComp(pop.ReceText,'quit')=0 then pop.tquit else if strIComp(pop.ReceText,'last')=0 then pop.last else if strLIComp(pop.ReceText, 'apop ',5)=0 then pop.apop else if strLIComp(pop.ReceText, 'uidl ',5)=0 then pop.uidl else ServerSocket.socket.connections[0].sendtext('-ERR no such comm and yet'+crlf); end end; ---- 3. 关闭连接 procedure TMyForm.ServerSocketClientDisconnect(Sender: TObject;Socket: TC ustomWinSocket); begin ServerSocket.Active := False; //如果client端没有通过quit 命令断连, 则在断连时要把那些f_dele置为0 if pop.QuitFlag=False then begin MyForm.query11.Close; MyForm.query11.Params[0].Asstring:=pop.UserName; MyForm.query11.prepare; MyForm.query11.execsql; end; end;