使用短信控件的一个简单示例

unit FfrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,FSMSThread, OoMisc,
  AdPort;

type
  TfrmMain = class(TForm)
    btnOpenComm: TButton;
    btnSendSMS: TButton;
    btnCloseComm: TButton;
    Label6: TLabel;
    edtPhone: TEdit;
    Label7: TLabel;
    edtSMS: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    cmbComm: TComboBox;
    Label3: TLabel;
    edtATCommand: TEdit;
    btnSendATCommand: TButton;
    cmbSMSCenter: TComboBox;
    cmbBaudRate: TComboBox;
    Label4: TLabel;
    Button2: TButton;
    Button3: TButton;
    chkOpenSendQueue: TCheckBox;
    Button4: TButton;
    Button5: TButton;
    Button1: TButton;
    Button6: TButton;
    Button7: TButton;
    Panel1: TPanel;
    memResponses: TMemo;
    memReceive: TMemo;
    Splitter1: TSplitter;
    Label5: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure btnOpenCommClick(Sender: TObject);
    procedure btnCloseCommClick(Sender: TObject);
    procedure btnSendSMSClick(Sender: TObject);
    procedure CommSMSReceiveData(StrReceive:String);
    procedure btnSendATCommandClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure chkOpenSendQueueClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ASMSSMSSendOKEvent(ID: Integer);
    procedure ASMSSendErrorEvent(ID: Integer);
    procedure ASMSSMSNewEvent(ID: Integer);
    procedure ASMSSMSNewMsgEvent(PhoneNO, Msg, MsgTime: String);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure SMSResult(ID:Integer;R:Boolean);
    procedure SMSExcuteCommandResultEvent(Command:String;ReturnMsg:String;ExcuteResult:Boolean);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
    SMS:TSMSThread;
    procedure ExcuteResult(Command, ReturnMsg: String;
      ExcuteResult: Boolean);
     procedure NewMsg(PhoneNO,Msg,MsgTime:String);
    procedure ReceiveData(StrReceive:String);
   public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnOpenCommClick(Sender: TObject);
begin
  //********************************************
  //设置端口参数
  //********************************************

  SMS.SetComNum(strtoint(cmbComm.Text));
  SMS.SetBaud(strtoint(cmbBaudRate.text));
  SMS.SetAutoOpen(True);
  SMS.AutoDeleteMsg :=False;
  SMS.TimeoutCount:=100;
  SMS.EnableTimeOut :=True;
  SMS.CheckCommandTime :=1000;

  SMS.SMSCenterNO :=cmbSMSCenter.Text;
  SMS.OpenComm;
  //ASMS.Open :=True;

  SMS.InitSMS;
end;

procedure TfrmMain.btnCloseCommClick(Sender: TObject);
begin
  //********************************************
  //关闭端口
  //********************************************
  //停止线程
  SMS.Suspend;
  //关闭端口
  SMS.CloseComm;
end;

procedure TfrmMain.btnSendSMSClick(Sender: TObject);
begin
  if SMS.SendSMS(edtPhone.Text,edtSMS.Text) then
    memResponses.Lines.Add('发送短信成功')
  else
    memResponses.Lines.Add('发送短信失败');
//  ASMS.SendSMS(edtPhone.Text,edtSMS.Text+'3');
end;

procedure TfrmMain.CommSMSReceiveData(StrReceive:String);
begin
  //memResponses.Lines.Add('*收到数据................................................................*');
  memResponses.Lines.Add(StrReceive);
end;

procedure TfrmMain.btnSendATCommandClick(Sender: TObject);
var
  s:String;
begin
  SMS.ExcuteCommand(edtATCommand.Text+#13,s);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  SMS:=TSMSThread.Create(False);
  SMS.OnExcuteCommandEvent :=ExcuteResult;
  SMS.OnSMSNewMsgEvent :=NewMsg;
  SMS.OnReceiveData := ReceiveData;
  SMS.TimeoutCount:=100;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  frmMain.memResponses.Lines.Add('队列中待发短信的数量为:'+inttostr(SMS.GetSendQueueCount));
end;

procedure TfrmMain.Button3Click(Sender: TObject);
begin
  SMS.PushSMS(10,edtPhone.Text,edtSMS.Text,Time);
end;

procedure TfrmMain.chkOpenSendQueueClick(Sender: TObject);
begin
  SMS.SetOpenProcess(chkOpenSendQueue.Checked );
end;

procedure TfrmMain.Button5Click(Sender: TObject);
begin
  frmMain.memResponses.Lines.Add('队列中待发命令的数量为:'+inttostr(SMS.GetCommandQueueCount));
end;

procedure TfrmMain.Button4Click(Sender: TObject);
begin
  SMS.PushCommand(edtATCommand.text+#13);
end;

procedure TfrmMain.ASMSSMSSendOKEvent(ID: Integer);
begin
  frmMain.memResponses.Lines.Add(inttostr(ID)+'短信发送成功!');
end;

procedure TfrmMain.ASMSSMSNewEvent(ID: Integer);
begin
  frmMain.memResponses.Lines.Add('新收到位置为'+inttostr(ID)+'的短信!');
end;

procedure TfrmMain.ASMSSMSNewMsgEvent(PhoneNO, Msg, MsgTime: String);
begin
   frmMain.memResponses.Lines.Add('收到短信:[PhoneNO]:'+PhoneNO+'[Msg]:'+Msg+'[MsgTime]:'+MsgTime);
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  SMS.InitSMS;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  SMS.Terminate;
//  SMS
end;

procedure TfrmMain.SMSExcuteCommandResultEvent(Command:String;ReturnMsg:String;ExcuteResult:Boolean);
begin
  memResponses.Lines.Add('命令'+Command+'执行结果为:'+ReturnMsg+' 成败标志:'+inttostr(ord(ExcuteResult)));
end;

procedure TfrmMain.ASMSSendErrorEvent(ID: Integer);
begin
  frmMain.memResponses.Lines.Add(inttostr(ID)+'短信发送失败!');
end;

procedure TfrmMain.ExcuteResult(Command, ReturnMsg: String;
  ExcuteResult: Boolean);
begin
if ExcuteResult then
    memResponses.Lines.Add('命令'+Command+'执行成功,返回结果为:'#13#10+ReturnMsg)
  else
    memResponses.Lines.Add('命令'+Command+'执行失败,返回结果为:'#13#10+ReturnMsg);
end;

procedure TfrmMain.SMSResult(ID: Integer; R: Boolean);
begin
  memResponses.Lines.Add(inttostr(id)+'发送结果为:'+inttostr(ord(r)));
end;

procedure TfrmMain.Button6Click(Sender: TObject);
begin
  SMS.CloseComm;
  SMS.Terminate;
  close;
  Application.Terminate;
end;

procedure TfrmMain.Button7Click(Sender: TObject);
begin
  memResponses.Clear;
  memReceive.Clear;
end;

procedure TfrmMain.NewMsg(PhoneNO, Msg, MsgTime: String);
begin
  memResponses.Lines.Add('收到短信'+PhoneNO+Msg+MsgTime);
end;

procedure TfrmMain.ReceiveData(StrReceive: String);
begin
  memReceive.Text :=memReceive.Text +StrReceive;
end;

end.