FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.btnVerifClick(Sender: TObject); 
begin 
  
  lstMsgs.Clear; 
  lblMsg.Caption := '-'; 
  
  // Mise à jour des données de connexion 
  POP3.Host     := edServeur.Text; 
  POP3.Port     := edPort.Text; 
  POP3.Username := edUser.Text; 
  
  // On spécifie le mode d'authentification suivant que le mot de passe est activé ou non 
  If cbxPass.Checked then 
  begin 
    POP3.AuthType := popAuthLogin; 
    POP3.Password := edPass.Text 
  end 
  else 
  begin 
    POP3.AuthType := popAuthNone; 
    POP3.Password := ''; 
  end; 
  
  try 
    // Demande de la connexion. Open permet d'effectuer le processus de connexion (connect, user, pass) automatiquement 
    POP3.Open; 
  except 
    on e: exception do 
      ShowMessage(e.Message); 
  end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.POP3RequestDone(Sender: TObject; RqType: TPop3Request; 
  Error: Word); 
begin 
  // Ici, on agit en fonction de la requête qui vient de se TERMINER 
  Case RqType of 
    pop3Open   : // Une fois la connexion établie on appelle Stat, qui permet de récupérer le nombre de messages 
                 POP3.Stat; 
    pop3Stat   : begin 
                   // On affiche le nombre de messages 
                   lblMsg.Caption := IntToStr(POP3.MsgCount); 
                   // Retr permet de retrouver les headers du message n°MsgNum  
                   POP3.MsgNum := 1; 
                   POP3.Retr; 
                 end; 
    pop3Retr   : if Error = 0 then // Si pas d'erreur, c'est-à-dire si le message n°MsgNum a été trouvé 
                 begin 
                   // On prend les infos qui nous intéressent 
                   lstMsgs.Items.Add('"' + POP3.HeaderSubject + '" de ' + POP3.HeaderFrom); 
                   //Et on passe au message suivant 
                   POP3.MsgNum := POP3.MsgNum + 1; 
                   POP3.Retr; 
                 end 
                 else 
                   // Si le message n'existe pas, le listing est fini, on se déconnecte 
                   POP3.Quit; 
  end; 
end;