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

最新推荐文章于 2025-08-21 09:48:03 发布

weixin_34399060

最新推荐文章于 2025-08-21 09:48:03 发布

阅读量112

点赞数

本文介绍了一个使用Delphi实现的短信收发程序的设计与实现细节。该程序通过串口与短信模块进行通信，实现了短信的发送、接收及AT命令的执行等功能。文中详细展示了各功能模块的代码实现。

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.