Salut,
j'ai récupérer dans l'aide de Delphi 5 un petit code qui a pour but de récupérer des informations contenu dans un mail.
Dans ce code il y a apparemment une procédure qui n'est jamais appelée. "procédure TForm1.NMPOP31RetrieveEnd(Sender: TObject); "
Quelqu'un pourrait-il me dire ce qu'il ne va pas sur mon code.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMpop3, StdCtrls, Spin, ExtCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
NMPOP31: TNMPOP3;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure NMPOP31RetrieveEnd(Sender:TObject);
procedure Button2Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
var
S: String;
M: Integer;
begin
label1.caption:=IntToStr(NMPOP31.MailCount);
if NMPOP31.MailCount > 0 then
begin
if InputQuery('Obtenir un message électronique', 'Quel message ? (1-'+IntToStr(NMPOP31.MailCount)+')', S) then
begin
M := StrToIntDef(S, -1);
If (M < 0) or (M > NMPOP31.MailCount) then
ShowMessage('Indice de message incorrect')
else
NMPOP31.GetMailMessage(M);
end;
end
else
ShowMessage('Pas de messages à lire');
end;
Procedure TForm1.Button1Click(Sender: TObject);
begin
if NMPOP31.Connected then
NMPOP31.Disconnect
else
begin
NMPOP31.Host:='192.168.*.**'; //Par exemple pour Free: pop.free.fr
NMPOP31.UserID:='****'; //Nom d'utilisateur
NMPOP31.Password:='****'; //Mot de passe;
NMPOP31.DeleteOnRead:=True; // Supprime les messages après avoir été lu
NMPOP31.Connect;
end;
end;
procedure TForm1.NMPOP31RetrieveEnd(Sender: TObject);
begin
Memo1.Text := NMPOP31.MailMessage.Body.Text;
Edit1.Text := NMPOP31.MailMessage.Subject;
Edit2.Text := NMPOP31.MailMessage.From;
end;
end.
-------------------------------
Réponse au message :
-------------------------------
> Salut à tous je suis un débutant sous Delphi (Version 5)et j'ai un gros problème pour utiliser ce composant NMPOP3.
> Je dois lire sur un server de messagerie uns par uns les differents mails qui ont été envoyés, en extraire l'adresse de l'émetteur, l'objet, et les supprimer.
>
> C'est très urgent et j'ai vraiment des problèmes.
>
> Merci d'avance
> a+
>
|