frmaddtrashmail.pas

Mailserver Source code - Delphi. Simple Mail server source code. SMTP and POP3 protocols.

unit FrmAddTrashMail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, Menus;

type
  TFrmAddTrashMail1 = class(TForm)
    Panel5: TPanel;
    HintLabel: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RichEdit1: TRichEdit;
    Label1: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    function CheckIsMail(AStr:string):boolean;
  public
    { Public declarations }
  end;

var
  FrmAddTrashMail1: TFrmAddTrashMail1;

implementation

uses UnitDataModule;

{$R *.dfm}

procedure TFrmAddTrashMail1.N4Click(Sender: TObject);
begin
  RichEdit1.SelectAll;
end;

procedure TFrmAddTrashMail1.N1Click(Sender: TObject);
begin
  SendMessage(GetFocus,WM_COPY,0,0);
end;

procedure TFrmAddTrashMail1.N2Click(Sender: TObject);
begin
  SendMessage(GetFocus,WM_PASTE,0,0);
end;

procedure TFrmAddTrashMail1.N3Click(Sender: TObject);
begin
  SendMessage(GetFocus,WM_CUT,0,0);
end;

procedure TFrmAddTrashMail1.BitBtn1Click(Sender: TObject);
var
  MyStr:string;
  BadList:TStringList;
begin
  BadList:=TStringList.Create;
  try
    BitBtn1.Enabled:=false;
    BitBtn2.Enabled:=false;
    while richedit1.Lines.Count<>0 do
    begin
      MyStr:=trim(richedit1.Lines.Strings[0]);
      if  CheckIsMail(MyStr)=true then
      begin
        if UnitDataModule1.InsertTrashMail(MyStr)=false then
        begin
          BadList.Add(MyStr);
        end;
      end
      else begin
        BadList.Add(MyStr);
      end;
      richedit1.Lines.Delete(0);
    end;
    if BadList.Count<>0 then
    begin
      richedit1.Lines.Text:=BadList.Text;
      richedit1.Lines.Insert(0,'==========以下email插入失败==========');
      richedit1.Lines.Add('=====================================');
    end;
    UnitDataModule1.ShowTrashMail;
  finally
    BitBtn1.Enabled:=true;
    BitBtn2.Enabled:=true;  
    BadList.Free;
  end;

end;

function TFrmAddTrashMail1.CheckIsMail(AStr:string):boolean;
var
  i:integer;
begin
  result:=true;
  i:=pos('@',AStr);
  if (i=1) or (i=0) or (i=length(AStr)) then
    result:=false;
end;

end.