unit1.pas

来自「電子報軟體. 你想輕輕鬆鬆的寄送電子報 功能介紹: 1. 支援多個伺服器分散」· PAS 代码 · 共 543 行 · 第 1/2 页

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, IdComponent,Menus, IdBaseComponent,
  IdThreadMgr, IdThreadMgrDefault, IdMessage, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, ExtCtrls, ImgList, ToolWin, ShellAPI,
  CoolCtrlsDB, TrayIcon, Shellage, IdCoder, IdCoder3To4,
  IdCoderText,IdSocks, Mask, IdPOP3;

type
  TMailGenius = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    Msg : string;
    procedure SendGroupMail;
//    procedure InsertLog;
    procedure EnableMail;
    procedure DisableMail;
  end;


type
  TPOPGenius = class(TThread)
  private
    { Private declarations }
    actionmethod : string;
  protected
    procedure Execute; override;
  public
      procedure RetrievePOPHeaders(inMsgCount: Integer);
      function Extractsubject(instr : string) : string;
      function ExtractEmail(instring : string) : string;
      procedure AddEmailinUsingList(instring : string);
      procedure AddEmailinFile(instring : string);
      procedure RemoveEmailinUsingList(instring : string);
      procedure RemoveEmailinFile(instring : string);
      procedure CheckMail;
  end;



type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    s1: TMenuItem;
    Save: TMenuItem;
    Mail: TMenuItem;
    Exit: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Group3: TGroupBox;
    SMTP: TIdSMTP;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    Group4: TGroupBox;
    Group2: TGroupBox;
    Group1: TGroupBox;
    RadioButton1: TRadioButton;
    Edit5: TEdit;
    Label5: TLabel;
    Timer1: TTimer;
    RadioButton3: TRadioButton;
    TabSheet2: TTabSheet;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button3: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Button4: TButton;
    Edit6: TEdit;
    Edit7: TEdit;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button12: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button13: TButton;
    Button14: TButton;
    Button11: TButton;
    Button15: TButton;
    Button16: TButton;
    About: TMenuItem;
    TabSheet3: TTabSheet;
    Button1: TButton;
    Button17: TButton;
    Button18: TButton;
    ListView2: TListView;
    ComboBox2: TComboBox;
    Label11: TLabel;
    Button19: TButton;
    GroupBox1: TGroupBox;
    Label10: TLabel;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    RadioButton2: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    Label6: TLabel;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label4: TLabel;
    CheckBox2: TCheckBox;
    Label9: TLabel;
    Timer3: TTimer;
    NotifyIcon1: TNotifyIcon;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    Label13: TLabel;
    TabSheet4: TTabSheet;
    ListView3: TListView;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Label24: TLabel;
    Edit8: TEdit;
    UpDown1: TUpDown;
    Label14: TLabel;
    OpenDialog2: TOpenDialog;
    Edit9: TEdit;
    Label12: TLabel;
    IDE1: TIdBase64Encoder;
    BitBtn2: TBitBtn;
    BitBtn6: TBitBtn;
    T1: TMenuItem;
    BitBtn7: TBitBtn;
    Image1: TImage;
    TabSheet5: TTabSheet;
    GroupBox2: TGroupBox;
    CheckBox4: TCheckBox;
    Label15: TLabel;
    Label16: TLabel;
    GroupBox3: TGroupBox;
    Edit10: TEdit;
    Edit11: TEdit;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    Label18: TLabel;
    Label19: TLabel;
    Edit13: TEdit;
    Edit14: TEdit;
    RadioButton8: TRadioButton;
    Timer2: TTimer;
    TabSheet6: TTabSheet;
    CheckBox5: TCheckBox;
    GroupBox4: TGroupBox;
    Label17: TLabel;
    Edit12: TEdit;
    Label20: TLabel;
    Edit15: TEdit;
    CheckBox6: TCheckBox;
    GroupBox5: TGroupBox;
    Edit16: TEdit;
    BitBtn8: TBitBtn;
    TabSheet7: TTabSheet;
    POP3: TIdPOP3;
    GroupBox6: TGroupBox;
    Label21: TLabel;
    Edit17: TEdit;
    Label22: TLabel;
    Label23: TLabel;
    Edit18: TEdit;
    Edit19: TEdit;
    GroupBox7: TGroupBox;
    CheckBox8: TCheckBox;
    CheckBox7: TCheckBox;
    GroupBox8: TGroupBox;
    Edit20: TEdit;
    BitBtn9: TBitBtn;
    RadioButton9: TRadioButton;
    Edit21: TEdit;
    Label25: TLabel;
    RadioButton10: TRadioButton;
    IDE2: TIdBase64Decoder;
    CheckBox9: TCheckBox;
    Timer4: TTimer;
    Label26: TLabel;
    M1: TMenuItem;
    U1: TMenuItem;
    N4: TMenuItem;
    GroupBox9: TGroupBox;
    Label27: TLabel;
    Edit22: TEdit;
    Memo1: TMemo;
    BitBtn10: TBitBtn;
    Edit4: TEdit;
    BitBtn11: TBitBtn;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Button8Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure MailClick(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ExitClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Button19Click(Sender: TObject);
    procedure Edit4BtnClick(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure NotifyIcon1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit8Exit(Sender: TObject);
    procedure DBCoolScrollingText1Click(Sender: TObject);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);