关于邮件(在线等)
我写了一个用POP3收邮件的程序,在调试过程中出错
代码:
if (Host->Text == "")
{
Host->Text = "smtp.sohu.com";
}
POP3->Host = Host->Text;
if (Port->Text == "")
{
Port->Text = "110";
//P3->Port = Port->Text;
}
POP3->Port = Port->Text.ToInt();
if (User->Text == "")
{
User->Text = "ysl5884896@sohu.com";
}
POP3->UserID = User->Text;
if (Passwd->Text == "")
{
Application->MessageBoxA("密码不能为空","错误",MB_OK);
return;
}
POP3->Password = Passwd->Text;
StatusLine->SimpleText = "正在连接";
POP3->Connect();
执行到POP3->Connect();时出错