Delphi Tmail2000

连接邮件服务器

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;

 此控件非常之不好用,再获取邮件正方时老是不如意,现改用indy10