连接邮件服务器
此控件非常之不好用,再获取邮件正方时老是不如意,现改用indy10
procedure TForm1.Button1Click(Sender: TObject);
begin
POP.UserName : = username.Text;
POP.Password : = password.Text;
POP.Host : = host.Text;
POP.Port : = StrToInt(port.Text);
if POP.Connect then
begin
Memo1.Lines.Add( ' 已连接');
if POP.Login then
begin
Memo1.Lines.Add( ' 登陆成功');
Memo1.Lines.Add( ' 邮箱中共有 '+IntToStr(POP.SessionMessageCount)+' 封邮件');
Memo1.Lines.Text : = Memo1.Lines.Text + POP.LastResponse;
end
else
begin
Memo1.Lines.Add( ' 登陆失败');
end ;
end
else
begin
POP.Abort;
Memo1.Lines.Add( ' 连接失败');
end ;
end ;
begin
POP.UserName : = username.Text;
POP.Password : = password.Text;
POP.Host : = host.Text;
POP.Port : = StrToInt(port.Text);
if POP.Connect then
begin
Memo1.Lines.Add( ' 已连接');
if POP.Login then
begin
Memo1.Lines.Add( ' 登陆成功');
Memo1.Lines.Add( ' 邮箱中共有 '+IntToStr(POP.SessionMessageCount)+' 封邮件');
Memo1.Lines.Text : = Memo1.Lines.Text + POP.LastResponse;
end
else
begin
Memo1.Lines.Add( ' 登陆失败');
end ;
end
else
begin
POP.Abort;
Memo1.Lines.Add( ' 连接失败');
end ;
end ;