}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: fea9aec7 Описание: Код загружен: 13 июля 2011, 19:09 (Моисеев Евгений Леонидович)

  1. unit Unit9;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls, Psock, NMpop3;
  8.  
  9. type
  10. TForm9 = class(TForm)
  11. NMPOP31: TNMPOP3;
  12. Edit1: TEdit;
  13. Edit2: TEdit;
  14. Edit3: TEdit;
  15. Edit4: TEdit;
  16. Edit5: TEdit;
  17. Edit6: TEdit;
  18. Edit7: TEdit;
  19. Button1: TButton;
  20. Button2: TButton;
  21. Memo1: TMemo;
  22. Memo2: TMemo;
  23. procedure Button1Click(Sender: TObject);
  24. procedure Button2Click(Sender: TObject);
  25. private
  26. { Private declarations }
  27. public
  28. { Public declarations }
  29. end;
  30.  
  31. var
  32. Form9: TForm9;
  33.  
  34. implementation
  35.  
  36. {$R *.dfm}
  37.  
  38. procedure TForm9.Button1Click(Sender: TObject);
  39. begin
  40. NMPOP31.Host:=Edit1.Text;
  41. NMPOP31.UserID:=Edit2.Text;
  42. NMPOP31.Password:=Edit3.Text;
  43. NMPOP31.DeleteOnRead:=false;
  44. NMPOP31.Connect;
  45. end;
  46.  
  47. procedure TForm9.Button2Click(Sender: TObject);
  48. var
  49. N:Integer;
  50. begin
  51. if NMPOP31.MailCount>0 then
  52. begin
  53. N:=StrToIntDef(Edit4.Text, -1);
  54. if NMPOP31.MailCount>0 then ShowMessage('wrong number');
  55. begin
  56. NMPOP31.GetMailMessage(N);
  57. Edit5.Text:=NMPOP31.MailMessage.From;
  58. Edit6.Text:=NMPOP31.MailMessage.Subject;
  59. Edit7.Text:=NMPOP31.MailMessage.MessageID;
  60. Memo1.Lines.Assign (NMPOP31.MailMessage.Head);
  61. Memo1.Lines.Assign(NMPOP31.MailMessage.Body);
  62. end;
  63. end;
  64. end;
  65. end.

Ссылка на данный код:

На главную страницу сервиса обмена кодом »