（都用了好几百分了，难道真的没人解决）,用TIdSMTP连接smtp.163.com发邮件时提示：System busy;

Question

AuthenticationType := atLogin
用户名和密码都正确，但就是发不了啊。
以前有例子解决吗 

Answer 1

给我100分吧，给个例子你：
------------------------------------------------------------------
“邮件特快专递”这个词现在已经是被广大的网民所熟知了，它就好比是网络上的EMS，能够直接把邮件送到对方的邮箱中，邮件发送完毕后，对方就可以立刻收到。Foxmail在其
最新的4.0版本中也特别新增了该功能，作为一名编程爱好者，你是不是也想知道如何编程
实现该功能呢？那就随本文一起揭开“邮件特快专递”的神秘面纱： 
一、实现原理 
在Outlook Express中，可通过查看邮件的属性得到该邮件的头部资料。我们拿一封不是特快专递的普通邮件来进行剖析，下面是笔者一封邮件的头部资料： 
 
Received: from sm1.163.com([202.108.44.203]) by peoplemail.com.cn(JetMail 2.5.3.0) 
with SMTP id jm1ac3c063eec; Thu, 29 Nov 2001 07:20:25 -0000 
Received: from xubo (unknown [61.154.94.146]) 
by sm1.163.com (Postfix) with ESMTP id 99CF11C461061 
for <[email protected]>; Thu, 29 Nov 2001 15:12:49 +0800 (CST) 
…… 
从该头部资料可以看出，邮件传递的路线是由xubo→sm1.163.com→peoplemail.com.cn，其
中xubo是本人所在机器，邮件是经由sm1.163.com这个中转站才送到目的地的，而我们平常
所说的邮件特快专递，就是把邮件直接送到目的地而不需要中转站。 
如何才能知道目的地的地址呢？我们知道电子邮件的地址由用户名(username)和邮箱域
名（address.com）两部分构成的，给域名服务器发送针对“address.com”的MX指令查询
即可找到目的地的地址。被查出来的目的地可能不止一个，有时这些目的地是有优先级别
之分的，分别对应着邮件的优先级别，你可以根据邮件优先级的不同对应发送，也可以任
意选择其中一个发送，本文的示例将选择反馈回来的第一个目的地发送，读者可根据实际
需要进行改进。 
 
二、用到的核心组件 
本文将采用Indy控件集进行域名查询、邮件发送部分的编程。INDY的全名是Internet 
Direct（也叫Winshoes），是一套开放源代码、跨平台、优秀的Internet控件集，它支持
大部分流行的Internet协议。Delphi 6已经包含了该控件集，如果你使用的是Delphi 6以
前的版本，请先到Indy主页http://www.nevrona.com/Indy/Download.html下载并安装该
控件集。 
 
三、窗口设计 
向窗体上放置三个TEdit组件，一个TMemo组件，四个Tlabel组件，用到的Indy组件为
TIdDNSResolver、TIdAntiFreeze、TIdSMTP、TIdMessage。其中TIdDNSResolver是用来向
域名服务器发出查询请求并得到结果，TIdMessage用来构建邮件，TIdSMTP用来发送邮件，
TidAntiFreeze可以确保Indy在工作时程序能响应来自外界的消息(注：Indy是以同步的方
式进行工作的，在读或写操作完成之前，其它代码无法执行，加入TidAntiFreeze可以在
每隔一段时间通过呼叫Application.ProcessMessage方法响应来自外界的消息。) 
程序的界面如下图所示(箭头所指向的文字标识了该组件的名字)： 
 
四、程序代码(代码中包含了详细的说明) 
 
……(前面一部分省略) 
type 
TForm1 = class(TForm) 
IdDNSResolver: TIdDNSResolver; 
IdAntiFreeze1: TIdAntiFreeze; 
btnSend: TButton; 
IdSMTP: TIdSMTP; 
IdMsgSend: TIdMessage; 
mmContent: TMemo; 
Label1: TLabel; 
edtTo: TEdit; 
Label4: TLabel; 
Label5: TLabel; 
edtFrom: TEdit; 
Label6: TLabel; 
edtSubject: TEdit; 
procedure btnSendClick(Sender: TObject); 
private 
{ Private declarations } 
procedure GetMxList(AMxList: TStringList; AQName: string); 
public 
{ Public declarations } 
end; 
 
var 
Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
{ TForm1 } 
 
{ 这个过程是用来得到邮件特快专递目的地服务器名称及优先级别数，参数AMXList是 
用来接收结果值，AQName代表传递过来的域名 } 
procedure TForm1.GetMxList(AMxList: TStringList; AQName: string); 
var 
i: Integer; 
begin 
with IdDNSResolver do 
begin 
Host := '202.101.107.55'; { Host属性用来指定域名服务器的地址，此处为笔者所在地 
的主域名服务器地址，你也可以指定任一可以快速访问到的Internet上域名服务器 
地址，要知道自己所在地的域名服务器地址，win98下通过winipcfg命令,win2000下 
通过ipconfig /all即可查出。} 
ReceiveTimeout := 10000; // 在指定的时间内得不到域名服务器的反馈，则视为失败。 
ClearVars; // 清除前一次查询所反馈回来的资源记录 
 
{ 构建此次查询的头部结构 } 
with DNSHeader do 
begin 
Qr := False; // False 代表查询 
Opcode := 0; // 0代表标准域名查询 
RD := True; //域名服务器可以进行递归查询 
QDCount := 1; //查询的数量 
end; 
 
{ 构建要查询的问题 } 
DNSQDList.Clear; 
with DNSQDList.Add do 
begin 
QName := AQName; //要查询的域名 
QType := cMX; //QTYPE指定要查询的资源记录的种类，值为cMX代表邮件交换记录 
QClass := cIN; 
end; 
 
ResolveDNS; //向域名服务器发出请求 
 
{ 从域名服务器接收反馈的结果，将反馈回来的邮件服务器名称放在AMXList列表的Name
部分， 
邮件服务器的优先级别数放在Value部分。 } 
for i := 0 to DNSAnList.Count - 1 do 
AMxList.Add(DNSAnList[i].RData.MX.Exchange + '=' + 
IntToStr(DNSAnList[i].RData.MX.Preference)); 
end; 
end; 
 
{ 单击"发送"按钮时发送专递邮件 } 
procedure TForm1.btnSendClick(Sender: TObject); 
var 
MxList: TStringList; 
i: Integer; 
QName, ThoughAddress: string; 
begin 
{ 根据用户所填写的内容创建邮件 } 
with IdMsgSend do 
begin 
Body.Assign(mmContent.Lines); //邮件正文 
From.Address := Trim(edtFrom.Text); //发件人地址 
Recipients.EMailAddresses := Trim(edtTo.Text); //收件人地址 
Subject := edtSubject.Text; //邮件主题 
end; 
 
{ 从输入的收件人地址中取出邮箱域名，利用前面的GetMxList过程得到目的地地址 } 
QName := TrimRight(copy(edtTo.Text, Pos('@', edtTo.Text) + 1, Length(edtTo.Text))); 
MxList := TStringList.Create; 
try 
GetMxList(MxList, QName); 
ThoughAddress := MxList.Names[0]; {取反馈回来的第一个服务器为目的地，读者可 
根据实际需要改进，比如说考虑到信件的优先级或当你选择的服务器因繁忙而暂时 
不能处理你的信件时，换用其它服务器试试 } 
finally 
MxList.Free; 
end; 
 
{ 发送邮件 } 
with IdSMTP do 
begin 
Host := ThoughAddress; // 将Host赋值为目的地，这就是特快专递与普通邮件的区别 
Port := 25; // smtp服务默认的端口为25 
Connect; //连接到服务器 
try 
Send(IdMsgSend); //发送刚才创建的邮件 
ShowMessage('发送完毕'); //发送完毕后提示 
finally 
Disconnect; //断开服务器连接 
end; 
end; 
end; 
 
end. 
 
本程序在Windows 2000 + Delphi 6 下调试通过，点击这里下载。 
http://www.ccw.com.cn/htm/app/down/1204Source.zip

Answer 2

进入IdSmtp的源代码procedure TIdSMTP.Send(AMsg: TIdMessage);
将SendCmd('RSET')放到最后,
//原文
  SendCmd('RSET');    {Do not Localize}
  if NeedToAuthenticate then begin
    Authenticate;
  end;
  SendCmd('MAIL FROM:<' + AMsg.From.Address + '>', 250);    {Do not Localize}
  WriteRecipients(AMsg.Recipients);
  WriteRecipients(AMsg.CCList);
  WriteRecipients(AMsg.BccList);
  SendCmd('DATA', 354);    {Do not Localize}
  AMsg.ExtraHeaders.Values['X-Mailer'] := MailAgent;    {Do not Localize}
  SendMsg(AMsg);
  SendCmd('.', 250);    {Do not Localize}
//修改后
  if NeedToAuthenticate then begin
    Authenticate;
  end;
  SendCmd('MAIL FROM:<' + AMsg.From.Address + '>', 250);    {Do not Localize}
  WriteRecipients(AMsg.Recipients);
  WriteRecipients(AMsg.CCList);
  WriteRecipients(AMsg.BccList);
  SendCmd('DATA', 354);    {Do not Localize}
  AMsg.ExtraHeaders.Values['X-Mailer'] := MailAgent;    {Do not Localize}
  SendMsg(AMsg);
  SendCmd('.', 250);    {Do not Localize}
  SendCmd('RSET');    {Do not Localize}
//然后重新编译一遍源码。

Answer 3

我自己做的一个例子;
//连接服务器
      idsmtp.AuthenticationType := atLogin;
      idsmtp.Host :='smtp.163.com';
      idsmtp.Port := 25;
      idsmtp.Username := 'xxx';
      idsmtp.Password := 'xxx';
      try
      idsmtp.Connect;
      except
        begin
          Application.MessageBox('连接失败，请仔细检查','提示信息',MB_OK);
          exit;
        end;
      end;
//发送信件
//idMsg为idMessage组件
with idMsg do
    begin
      Body.Assign(memo_content.Lines);
      Subject   := edt_title.Text;
      From.Text := edt_From.Text;
      Recipients.EMailAddresses := dmMain.adotbl.FieldValues['email'].AsString;
      try
        begin
          idsmtp.Send(IdMsg);
        end;
      except
        begin
          Application.MessageBox('发送失败，请仔细检查','提示信息',MB_OK);
        end;
      end;//无效退货！！！哈哈

Answer 4

不用你做的程序
看看delphi自带的程序就行了
delphi－demos－indy－mailclient

Answer 5

到底是SMTP.163.com忙，还是我设置有问题呢，解决了，另外专门给分，我的全给你都行

Answer 6

smtp.163.com不忙，你的设置也没有问题，只不过indy发rset命令的时机不对，解决方法已经在上面告诉你了(我用的是9.0的，8.0的应该也差不多)

Answer 7

刚才试了试
westfly的方法是正确的

Answer 8

我试了，但还是有System busy的错误啊

Answer 9

还是提示：  EIdProtocolReplyError with message 'System is busy. fgIAACQrdT4uWwRJ.2'. 这可怎么弄啊

Answer 10

我想应该是你的邮件体有问题，使用这句话试试：
with IdMsgSend do 
begin 
  Body.Assign(mmContent.Lines); //邮件正文 
  From.Address := Trim(edtFrom.Text); //发件人地址 
  Recipients.EMailAddresses := Trim(edtTo.Text); //收件人地址 
  Subject := edtSubject.Text; //邮件主题 
end;

Answer 11

改源代码的步骤：
1 备份源单元;
2 将源单元复制到你的程序目录下，
3 将编译后生成的该单元的dcu文件覆盖原来的dcu文件

Answer 12

用本机的SMTP来测试看看如何呢？

Answer 13

你的"源单元"是指的IdSMTP.pas 吧， 但它的"原dcu"文件在哪呢

Answer 14

你不用忙了
网易对indy的邮件发送和接收有限制；根本就不能用；好像改一个文件之后就可以；
我找找看；
你可以用其他的邮件服务