mainform.pas.~6~

Delphi 2005程序设计教程_实例源文件和教学课件

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.ComCtrls, Borland.Vcl.StdCtrls, System.ComponentModel,
  IdMessage, IdSMTPBase, IdSMTP, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdPOP3;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    IdPOP31: TIdPOP3;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.nfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  IdPOP31.Host := edit1.Text;
  IdPOP31.Username := edit2.Text;
  IdPOP31.Password := edit3.Text;
  try
    IdPOP31.Connect;
    for i := 1 to IdPOP31.CheckMessages do begin
      IdPOP31.RetrieveHeader(i, IdMessage1);
      with ListView1.Items.Add do begin
        Caption := IdMessage1.From.Text;
        SubItems.Add(IdMessage1.Recipients.EMailAddresses);
        SubItems.Add(IdMessage1.Subject);
        SubItems.Add(DateToStr(IdMessage1.Date));
       end;
     end;
   finally
     IdPOP31.Disconnect;
   end;
end;

end.