测试邮件地址是否存在及内外网问题？(50分)

要测试邮件地址是否存在，应用什么方法和控件，谢谢！ 注： （我用的是delphi7.0）

另外还有一个沾不到边的问题： 如果我的机器外网是：202.103.0.117 我的内网是：192.168.0.3 现在我要在我的机器上做 FTP 给别人下载，我的机器内部参数应该怎么设，非内网机器应该怎么访问我的 FTP 。

有现成的测试mail地址web services。编个客户端就行了。

我要测试邮件地址的软件也自己写。你所说的编个客户端是什么？

请各位兄弟高抬贵手，一个跨度大的语言我听不大懂。哈哈！

http://www.webservicex.net/ValidateEmail.asmx?WSDL

哇，楼上的兄弟，你的东东我看了一下，里面还有别的代码，太多了！

还有别的吗？

我无语．
i服了u.

你无语，我也无语言呀，我是菜鸟级的人物嘛！

你就可怜可怜我吧！　　说细点。。。。。

谢谢！

看来只有step by step了.
新建个工程,
File->New->Other...->WebServices->WSDL Importer
在Localtion of WSDL or URL:里填
http://www.webservicex.net/ValidateEmail.asmx?WSDL
点"Next>"
点"Finish"

在Unit1的implementation后加上
uses
ValidateEmail;

最后的代码象这样:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses ValidateEmail;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if GetValidateEmailSoap.IsValidEMail('d@h.c') then
ShowMessage('Valid')
else
ShowMessage('Invalid')
end;

end.

mark
学习

在Localtion of WSDL or URL:里填
http://www.webservicex.net/ValidateEmail.asmx?WSDL

上面的是什么意思，为什么要填这个地址。

我研究了一下，发邮件首先：

a.建立TCP连接 // 这个连接用代码怎么写， 下面的也是

　b.客户端发送HELO命令以标识发件人自己的身份，然后客户端发送MAIL命令

　 服务器端正希望以OK作为响应，表明准备接收

　c.客户端发送RCPT命令，以标识该电子邮件的计划接收人，可以有多个RCPT行

　 服务器端则表示是否愿意为收件人接受邮件

　d.协商结束，发送邮件，用命令DATA发送

　e. 以.表示结束输入内容一起发送出去

　f.结束此次发送，用QUIT命令退出。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

另外两个命令：

　VRFY---用于验证给定的用户邮箱是否存在，以及接收关于该用户的详细信息。

　EXPN---用于扩充邮件列表。

VRFY 这个验证怎么用代码写出来！ 谢谢！

不是高手不要回复，谢谢！ 因为我急用！

　VRFY---用于验证给定的用户邮箱是否存在，以及接收关于该用户的详细信息。

可是有的服务器把 VRFY 的功能关了，我不能测他的邮件地址怎么办，还有什么别的办法可以测邮箱地址的真实性吗？

另外我用 DELPHI7.0 怎样用 VRFY 来测别人的邮箱地址的真实行，请写下代码。要匿名测的！ 谢谢

怎么没人说话呀!

是不是没有人做过呀!

我想大家在一起研究一下嘛!

请大家帮个忙...谢~

var
S: string;
begin
with IdSmtp1 do
begin
BoundIp := Edit1.Text;
BoundPort := StrToInt(Edit2.Text);
HeloName := Edit3.Text;
Host := Edit4.Text;
UserName := Edit4.Text;
Password := MaskEdit1.Text;
end;
IdSmtp1.Connect(-1);
S := IdSmtp1.Verify(Edit6.Text);
Form1.Caption := S;
end;

以前是我用DELPHI7.0写的, 可是有问题! 他的功能就是( 测试邮件地址是否存在 )