我要写一个邮件代理服务器(pop,smtp),大家能不能给我一些delphi的源码(150分)

  • 主题发起人 主题发起人 cutechap
  • 开始时间 开始时间
C

cutechap

Unregistered / Unconfirmed
GUEST, unregistred user!
功能:实现pop3,smtp的代理,也可将邮件传递转交给另一邮件服务器完成,不知大家有没
用过ics的GpHttpProxy,它可实现Http的代理跳转。我用了个TsocketServer侦听25端口,用
foxmail发送信件,可侦听到,但不知怎样取得发送过来的信件内容,我感觉TsocketServer
需要回一个应答信号,但不知是哪个,我想知道smtp和pop3的实现过程,因为以前没做过这类
的东西,所以希望能有个delphi的源码看看,如果问题中有什么不对之处,请大家见谅!
 
我有一些代码,但不一定适合你。不过可以给你做参考!
请回信:liutan500@sina.com
 
to liutan:

你好,请给我一份好吗?

liuyj@zhonghuan.com.cn
 
smpt服务器与smpt客户端的会话:
<-----connect----->
S-->220 heinfo.net SMTP Server of AIMC 2.5.3.0; Mon Jun 25 19:19:02 2001

C-->HELO x9s6f3

S-->250 heinfo.net, x9s6f3<61.159.37.202> okay.

C-->MAIL FROM: <xtsls@xt-user.he.cninfo.net>

S-->250 <xtsls@127.0.0.1>, sender ok.

C-->RCPT TO: <hqlsta@263.net>

S-->250 User not local, will forward to <hqlsta@263.net>.

C-->DATA

S-->354 Start mail input; end with <CRLF>.<CRLF>

下面SMPT客户开始发送邮件内容

注意:上面胡话中的一些参数是可选的。
更详细的内容参见RFC

 
我与163 的smtp server连接上后,传送mail from:XXX@163.net
服务器返回:

The server says
553 Authentication is required to send mail as <XXX@163.net> continue?

请问这是为什么,好像有些可以,有些却不行,请大家指点一下
 
与smtp 服务器连接并收到服务器发来的确认信息后,应先向服务器发送 “HELO 主机名”
随后服务器返回“250 服务器主机名,<...>okay.” 之后才能发送“mail from:<xxx@xxx.xx>”
注意:尖括号一定要加,并且确定该服务器上有这个帐号。
 
i tooo
xianghb@21cn.com
 
Ftp 返回
500 invalid Port command是怎么回事呀
 
Thanks

hazgs123@21cn.com
 
xsjs的东西是很有用的。
其实DELPHI中用它带的SOCKET控件就可以了啊,不过你还要做一个数据库,主要用来处理用户数据。
用两个SERVERSOCK控件,一个做POP3的服务器,监听110端口。一个做SMPT服务器监听21端口就
可以了。当然POP和SMPT的类你要自己写。
 
关注——,并且用心去听。
 
http://211.101.4.25/delphibbs/dispq.asp?lid=502861
 
一份非常非常完整的mail软件的实现代码,OpenSource的~
http://members.home.net/afanti/hermes.exe
我已经看过了,算得很经典的,用到了ICS。
 
to aimingoo,
http://members.home.net/afanti/hermes.exe
没有上传完呀,请发给我吧。。

yjh@tomore.com

谢谢
 
能给我发一个吗?
jingwei@goldeastpaper.com.cn
 
今天找了一天,也没找到hermes.
zhaohai9@163.net
 
[?]aimingoo:下载安装后,但找不到源代码?
 
后退
顶部