smsproc.pas

AT Command 短信收發功能,需搭配 GSM Module 使用

unit SMSProc;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  SMS_PUDUnit,
  SPComm, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Label1: TLabel;
    Edit4: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure RevMonitor(Sender: TObject; str: string);
    procedure SndMonitor(Sender: TObject; str: string);
    procedure ErrMonitor(Sender: TObject; str: string);
    procedure RecSMS(Sender: TObject; mSMSC, mPhoneID, mInfo: string; mGTime: TDateTime);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    aa: TSMSPDUproc;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  sBuf: array[0..255] of Byte;
begin
  aa := TSMSPDUproc.Create(Self);
  aa.TP_DCS := tdUCS2;
//发送号码
  aa.TP_DA := edit4.Text;
//南京的短消息中心
  aa.SMSC := '8613800250500';
  aa.BaudRate := 4800;
  aa.setTP_UD(Edit1.Text);
  aa.OnRevMonitor := RevMonitor;
  aa.OnSndMonitor := SndMonitor;
  aa.OnReceiveSMS := RecSMS;
  Edit2.Text := aa.PUDStr;
  Edit3.Text := aa.CMGSLen;
  FillChar(sBuf, 255, #0);
  aa.Active := True;
end;

procedure TForm1.RevMonitor(Sender: TObject; str: string);
begin
  Memo2.Lines.Add(str);
end;

procedure TForm1.SndMonitor(Sender: TObject; str: string);
begin
  Memo1.Lines.Add(str)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if aa.Active = True then
    aa.SendSM(Edit4.Text, Edit1.Text);
end;

procedure TForm1.ErrMonitor(Sender: TObject; str: string);
begin
  Memo3.Lines.Add(TimeToStr(Now) + ' ' + str)
end;

procedure TForm1.RecSMS(Sender: TObject; mSMSC, mPhoneID, mInfo: string;
  mGTime: TDateTime);
var
  tmp: string;
begin
  tmp := mSMSC + ' ' + mPhoneID + ' ' + mInfo;
  tmp := tmp + ' ' + DateToStr(mGTime) + ' ' + TimeToStr(mGTime);
  Memo4.Lines.Add(tmp);
end;

end.