unit1.pas

诺亚短信控件 ~~~~~~~~~~~~ 本控件支持大部分的手机和GSM工业模块,通过计算机串口或USB转串口可以 实现手机或GSM工业模块短信收发

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, TaoModualXControl1_TLB;

type
  TForm1 = class(TForm)
    TaoModualX1: TTaoModualX;
    Image1: TImage;
    GroupBox1: TGroupBox;
    PhoneBookMemo: TMemo;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    SMSNum: TEdit;
    Button2: TButton;
    Label2: TLabel;
    SMSText: TMemo;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label4: TLabel;
    Button3: TButton;
    GroupBox4: TGroupBox;
    Output: TMemo;
    Button4: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure TaoModualX1ReceiveData(ASender: TObject;
      const RcvStr: WideString);
    procedure TaoModualX1GmStateNotify(ASender: TObject; State: TOleEnum);
    procedure TaoModualX1NewSMS(ASender: TObject; const ReadState,
      sDateTime, sNum, sText, sSCA: WideString);
    procedure TaoModualX1PhoneBookList(ASender: TObject;
      const PhoneBook: WideString);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //打开模块
    TaoModualX1.Active := True;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //关闭模块
    TaoModualX1.Active := false;
end;

procedure TForm1.TaoModualX1ReceiveData(ASender: TObject;
  const RcvStr: WideString);
begin
  //显示接收到的信息
  Output.Lines.Add(RcvStr);
end;

procedure TForm1.TaoModualX1GmStateNotify(ASender: TObject;
  State: TOleEnum);
begin
  //模块状态
  case State of

    SMS_SEND_OK: begin
      showmessage('发送成功');
    end;

    SMS_SEND_ERR: begin
      showmessage('发送失败');
    end;

  end;

end;

procedure TForm1.TaoModualX1NewSMS(ASender: TObject; const ReadState,
  sDateTime, sNum, sText, sSCA: WideString);
begin
    //新消息
    with Output.Lines do begin
      Add('================= 收到新消息 =================');
      Add('时间日期: '+sDateTime);
      Add('电话号码: '+sNum);
      Add('消息内容: '+sText);
      Add('==============================================');
    end;

    ShowMessage('收到新消息:'+sNum);
end;

procedure TForm1.TaoModualX1PhoneBookList(ASender: TObject;
  const PhoneBook: WideString);
begin
  //显示电话本内容
  PhoneBookMemo.Text := PhoneBook;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    //读取所有的电话本记录
    TaoModualX1.ReadPhoneBook('1', TaoModualX1.PhoneBookCount);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //发送短信
    TaoModualX1.SendTextSMS(Trim(SmsNum.Text), Trim(SmsText.Text));

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  //设置端口和波特率
    TaoModualX1.Active := false;
    TaoModualX1.ComPort  := ComboBox1.Text;
    TaoModualX1.BaudRate := StrtoInt(ComboBox2.Text);

    ShowMessage('设置端口为:' + TaoModualX1.ComPort);
    TaoModualX1.Active := True;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  //模块信息
  with Output.Lines do begin
    Add('=============== 模块信息 =====================');
    Add('出厂ID:     '+TaoModualX1.ManuID);
    Add('模块ID:     '+TaoModualX1.ModelID);
    Add('设备IMEI:   '+TaoModualX1.IMEI);
    Add('SIM卡IMSI:  '+TaoModualX1.IMSI);
    Add('短信中心:   '+TaoModualX1.SCA);
    Add('所属网络:   '+TaoModualX1.Provider);
    Add('短信数目:   '+TaoModualX1.SMSMemUsed);
    Add('短信容量:   '+TaoModualX1.SMSMemTotal);
    Add('电话号码数: '+TaoModualX1.PhoneBookCount);
    Add('==============================================');
  end;

end;


end.