delphi 短信猫GSM modem （TC35）测试开发实例

最新推荐文章于 2023-01-07 11:06:48 发布
最新推荐文章于 2023-01-07 11:06:48 发布
阅读量5.5k 收藏
点赞数
分类专栏： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Trassion/article/details/8274367
版权

采用多线程的方式对GSM Modem进行发送、接收操作，并保存到数据库中。

以下为测试程序的例子，功能都有了。

unit MainForm_Pas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ExtCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo2: TMemo;
    Button6: TButton;
    ADOConnection1: TADOConnection;
    SP1: TADOStoredProc;
    Button7: TButton;
    Edit3: TEdit;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    QFindSend: TADOQuery;
    QDelSend: TADOQuery;
    QFindSendSendID: TStringField;
    QFindSendSendPhone: TStringField;
    QFindSendSendMsg: TStringField;
    Label1: TLabel;
    L_sms_state: TLabel;
    SendPicture: TShape;
    Timer1: TTimer;
    RecPicture: TShape;
    Button12: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button12Click(Sender: TObject);
  private
    { Private declarations }
  public
    _ComNo:integer;
    _ComName:string;
    _PortNo:integer;
    { Public declarations }
    procedure SaveMsg(_phone,_msg:string);
  end;

TMySendThread = class(TThread)
  protected
    procedure Execute; override;
  end;

TMyReciveThread = class(TThread)
  protected
    procedure Execute; override;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
//函数说明
//先初始化,然后发送或者接收,退出程序前关闭Modem
{*************************************************************}
//  参数: nComNo 0~255 代表COM编号，
//        modemType 短信猫类型
//	  0 - 1口短信猫，
//        1 - 2口短信猫，
//        2 - 4口短信猫，
//        3 - 8短信猫口
//  返回: 0 - 成功， -1类型错
//        XXX -错误代码，参见代码表
{*************************************************************}
function fnSetModemType(ComNo:integer; modemType:Smallint) :integer;stdcall; external 'MonDem.dll';

{******************************************************}
//	获取当前短信猫类型设置
//参数: nComNo 0~255 代表COM编号。
//返回 ：短信猫类型
//0 - 1口短信猫，
//1 - 2口短信猫，
//2 - 4口短信猫，
//3 - 8短信猫口
//XXX -错误代码，参见代码表
{*******************************************************}
function fnGetModemType(ComNo:integer):integer;stdcall; external 'MonDem.dll';

{***********************初始化函数***********************}
//参数: comx 0~7 代表端口号码， -1 表示所有端口
//返回: 0 - 成功  XXX -错误代码，参见代码表
{********************************************************}

function fnInitModem(comx:integer):integer;stdcall; external 'MonDem.dll';

{***********************发送函数*************************}
//参数: comx 0~7 代表端口号码， -1 表示任意一个可用端口
//receivephone  接受手机号，sendmsg表示发送信息内容
//sendmsg(应该在70个字符以内,包含标点符号,1个汉字算1个字符)
//例如: 恭喜发财,测试成功!   长度为10
//返回: 0 - 发送成功 1 - 发送失败 XXX -错误代码，参见代码表
{********************************************************}
function fnSendMsg(comx:integer;receivephone,sendmsg:pchar):integer;stdcall; external 'MonDem.dll';

{********************************************************}
 // 参数: nPortNo 0~255 代表端口号码， -1 表示所有端口
//返回: 端口状态，大于等于8表示设备连接正常，可以接收和发送。
 //     状态小于8，表示测试状态。小于等于1，可能连线没有接好或者电源
 //	  没有打开，注意复位短信猫。
 //    -1 端口号指定错误或者是端口未打开

{********************************************************}
function fnGetStatus(nPortNo:integer):integer;stdcall; external 'MonDem.dll';

{*************************接收函数***********************}
//参数: comx 0~7 代表端口号码，
//(-1 表示任意一个可用端口,暂时不支持)
//sendphone 发送方手机号码      receivemsg 接收信息内容
//返回: 0~7 - 成功,接收端口号码  -1 -  无信息
//XXX -错误代码，参见代码表
{********************************************************}
function fnReadMsgEx(comx:integer;szHeader,receivemsg:pchar):integer;stdcall; external 'MonDem.dll';

function fnGetSndCount(nPortNo:integer):integer;stdcall; external 'MonDem.dll';
function fnGetRecCount(nPortNo:integer):integer;stdcall; external 'MonDem.dll';
//function fnSetReceive(nType:integer):integer;stdcall; external 'MonDem.dll';

{************************关闭函数************************}
//参数: comx 0~7 代表端口号码， -1 表示所有端口
//返回: 0 - 成功  XXX -错误代码，参见代码表
{********************************************************}

function fnCloseModem(comx:integer):integer;stdcall; external 'MonDem.dll';

{*******************错误代码表:**************************}
// 100: 授权错误(检测软件狗)
// 101: 授权类型错误(检测软件狗类型)
// 102: 未初始化，请先初始化

// 200: 端口号码错
// 201: 不支持的端口
// 202: 信息超长
// 203: 不能发送空信息
// 204: 手机号码错
// 205: 设备错

//5xx: 操作xx号端口错误
{********************************************************}
procedure TMySendThread.Execute;
var
  i,_ret: Integer;
  _phone,_msg:string;
begin
  FreeOnTerminate := True; {这可以让线程执行完毕后随即释放}
  while true do
  begin
    _ret:= fnGetStatus(Form2._PortNo);
    form2.L_sms_state.Caption:=inttostr(_ret);   //显示状态
    if _ret>=8 then begin
      form2.QFindSend.Open;
      if form2.QFindSend.RecordCount>0 then begin
         form2.Memo1.Lines.Add('找到要发送信息----->'+form2.QFindSendSendID.AsString);
         while not form2.QFindSend.Eof do begin
            _phone:=form2.QFindSendSendPhone.AsString;
            _msg:=form2.QFindSendSendMsg.AsString;
            i :=fnSendMsg(-1,pchar(_phone),pchar(copy(_msg,1,120)));
            if (i>=0) and (i<=255) then begin
                 form2.memo1.lines.add('发送成功--->'+_msg) ;
                 try
                   form2.QDelSend.Close;
                   form2.QDelSend.Parameters[0].Value:=form2.QFindSendSendID.AsString;
                   form2.QDelSend.ExecSQL;
                 finally
                   //form2.Memo1.Lines.Add('出错！');
                 end;
            end;
            form2.QFindSend.Next;
         end;
      end;
    end;
    form2.QFindSend.Close;
    form2.SendPicture.brush.Color:=clLime;
    Sleep(5000);    //延迟5秒
  end;
end;

procedure TMyReciveThread.Execute;
var
  j,i,ret: Integer;
  phone,msg:pchar;  
begin
  FreeOnTerminate := True; {这可以让线程执行完毕后随即释放}
  while true do
  begin
    ret:=fnGetRecCount(Form2._portno);
    if ret<>-1 then begin
      for j:=1 to ret do begin
        try
          GetMem(phone,128);
          GetMem(msg,500) ;
          i :=fnReadMsgEx(form2._portno,phone,msg);
          case i of
            0..255:begin
                        form2.SaveMsg(StrPas(phone),StrPas(msg));
                   end;
          end;
        finally
          FreeMem(phone);
          FreeMem(msg);
        end;
     end;
    end;
    form2.RecPicture.brush.Color:=clLime;
    Sleep(5000);    //延迟5秒
  end;
end;
//------------------------线程部分结束---------------------------

procedure TForm2.Button1Click(Sender: TObject);
var
   i:integer;
   pno:integer;
   lx:integer;
   st:integer;
begin
   _comno:=0;
   while _comno<10 do begin
      pno:=-1;
      for i:=0 to _comno-1 do
      begin
         lx:=fnGetModemType(i) ;
         case lx of
           0: inc(pno,1);
           1: inc(pno,2);
           2: inc(pno,4);
           3: inc(pno,8);
         end;
         memo1.Lines.Add('com'+inttostr(i)+'--->'+inttostr(pno));
      end;
      st:=fnInitModem(pno+1);
      if (st=0) then begin
         _PortNo:=pno+1;
         _ComName:='COM'+inttostr(_ComNo+1);
         memo1.Lines.Add('找到'+_ComName+'  ,端口->'+inttostr(_PortNo));
         break;
      end;
      _comno:=_comno+1;
   end;
   fnSetModemType(_comno,0);
end;

procedure TForm2.Button2Click(Sender: TObject);
var
   i:integer;
   pno:integer;
   lx:integer;
   st:integer;
begin
      st:=fnInitModem(_comno);
      memo1.Lines.Add(inttostr(_comno)+','+inttostr(st));
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   fnCloseModem(-1);
end;

procedure TForm2.Button3Click(Sender: TObject);
var
  i:integer;
begin
   i:=fnCloseModem(-1);
   if i=0 then
      memo1.Lines.Add('释放'+inttostr(_comno)+'端口成功！')
   else
      memo1.Lines.Add('释放'+inttostr(_comno)+'端口失败，错误代码：'+inttostr(i));
end;

procedure TForm2.Button4Click(Sender: TObject);
var
  sendstatu:integer;
begin
   sendstatu:= fnGetStatus(_PortNo);
   Memo1.Lines.Add('测试'+inttostr(sendstatu)) ;
end;

procedure TForm2.Button5Click(Sender: TObject);
var
   i:integer;
begin
    i :=fnSendMsg(-1,pchar(edit1.Text),pchar(copy(memo2.lines.Text,1,120)));
       case i of
         0..255:begin
                  memo1.lines.add('提交成功--->'+inttostr(i)) ;
                  //messagebox(self.Handle,'提交成功','提示',mb_ok or mb_iconinformation);
                end;
         -1 :   begin
                   //StaticText1.Caption:='提交失败' ;
                   memo1.lines.add('发送失败 -1');
                end;
         else
               begin
                  memo1.lines.add('提交出错，出错代码：'+inttostr(i));
                  //messagebox(self.Handle,pchar('提交出错，出错代码：'+inttostr(i)),'发送失败',mb_ok or mb_iconerror);
               end;
       end;
end;

procedure TForm2.Button6Click(Sender: TObject);
var
  l,i,ret:integer;
  phone,msg:pchar;
begin
  ret:=fnGetSndCount(_portno);
  if ret<>-1 then
     memo1.Lines.Add('发送队列表中有:'+inttostr(ret)+'条信息')
  else
     memo1.lines.add('发送队列表中没有信息');
  ret:=fnGetRecCount(_portno);
  if ret<>-1 then begin
     memo1.Lines.Add('接收队列表中有:'+inttostr(ret)+'条信息');
     for l:=1 to ret do
       try
          GetMem(phone,128);
          GetMem(msg,500) ;
          i :=fnReadMsgEx(_portno,phone,msg);
          case i of
            0..255:begin
                    if StrPas(phone)[1] in ['2'..'5'] then
                       memo1.Lines.Add('发送失败，手机号为：'+phone+'信息为：'+msg)
                    else
                      if StrPas(phone)[1]='1' then
                         memo1.Lines.Add('发送成功，手机号为：'+phone+'信息为：'+msg)
                      ELSE
                        if StrPas(phone)[1]='0' THEN
                           memo1.Lines.Add('接收到信息，手机号为：'+phone+'信息为：'+msg)
                        else
                           if StrPas(phone)[1]='6' THEN
                              memo1.Lines.Add('接收到状态报告，手机号为：'+phone+'信息为：'+msg);

                   end;
            -1  : memo1.Lines.Add('端口无信息！' );
            else memo1.Lines.Add('端口读取信息错误，错误代码：'+inttostr(i));
          end;
       finally
          FreeMem(phone);
          FreeMem(msg);
       end;

  end;
end;

procedure TForm2.SaveMsg(_phone, _msg: string);
var
  MsgStatus:string;
  RecPhone:string;
  RecDate:string;
  RecMsg:string;
  TmpStr:string;
  StatuStr:string;
  i,j:integer;
begin
  TmpStr:=_Phone;
  RecMsg:=_msg;
  ///返回信息字串：1,2,2012-12-07 19:05:14,13790110387,,1,-1,,0,75
  memo1.Lines.Add('------start-------');
  memo1.Lines.Add(tmpstr);
  MsgStatus:='';
  for i:=1 to 6 do  begin
      case i of
         1:begin
             StatuStr:=copy(tmpstr,1,pos(',',tmpstr)-1);
             if StatuStr='1' then
                MsgStatus:='发送成功'
             else
                if StatuStr='0' then
                   MsgStatus:='接到信息'
                else
                  if StatuStr[1] in ['2'..'5'] then
                     MsgStatus:='发送失败';
           end;
         2:;
         3:begin
             RecDate:=copy(tmpstr,1,pos(',',tmpstr)-1);
           end;
         4:begin
             RecPhone:=copy(tmpstr,1,pos(',',tmpstr)-1);
           end;
      end;
      TmpStr:=copy(Tmpstr,Pos(',',Tmpstr)+1,128);
  end;
  memo1.lines.Add('MsgStatus--->'+MsgStatus);
  memo1.Lines.add('RecDate--->'+RecDate);
  memo1.lines.Add('RecPhone--->'+RecPhone);
  memo1.lines.Add('RecMsg--->'+_msg);
     try
        sp1.Close;
        sp1.Parameters[1].Value := RecDate;
        sp1.Parameters[2].Value := RecPhone;
        sp1.Parameters[3].Value := MsgStatus;
        sp1.Parameters[4].Value := copy(RecMsg,1,150);
        sp1.ExecProc;
     finally
     end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  if not ADOConnection1.Connected then
     ADOConnection1.Open;
  _PortNo:=0;
  _ComName:='COM0';
  SendPicture.brush.Color:=clred;
  RecPicture.brush.Color:=clred;
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
   SaveMsg(edit3.Text,'kjdjkjd');
end;

procedure TForm2.Button10Click(Sender: TObject);
begin
  TMySendThread.Create(false);  //false 立即调用Execute ;true- 不启动Execute
end;

procedure TForm2.Button11Click(Sender: TObject);
begin
  TMyReciveThread.Create(false);
end;

procedure TForm2.Button8Click(Sender: TObject);
begin
  TMySendThread.Create(false);  //false 立即调用Execute ;true- 不启动Execute
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
  TMyReciveThread.Create(false);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  SendPicture.brush.Color:=clred;
  RecPicture.brush.Color:=clred;
end;

procedure TForm2.Button12Click(Sender: TObject);
var
  _tmpNum:integer;
begin
  _tmpNum:=random(1000);
  while _tmpNum<100 do begin
     _tmpNum:=random(1000);
  end;
  memo1.Lines.Add(inttostr(_tmpNum));
end;

end.

测试效果图：



trassion
关注
专栏目录
java调用modem执行at指令
10-27
java调用modem执行at指令，一般用来做计算机端的电话操作等等
delphi tpapro tapdcomport 源码及安装说明
09-10
delphi tpapro tapdcomport 源码及安装说明,适用于Delphi7到Delphixe到Delphi10
串口GSM MODEM调试中的几个细节
kshongmo的专栏
03-20 868
<br />最近做了一个通过串口发短信的项目，应用了TC35模块的AT指令集。<br />        AT指令集有做过短信的都不陌生，但我在调试过程中却出了不少问题，以下是几个细节问题，可能容易忽视，记下来备忘<br />        1.接收短信将短信直接发送到终端，需要AT+CNMI的<mt>参数为2，必须先用AT+CSMS=1命令，才能让其支持参数为2<br />       2.接收一条短信后，必须使用AT+CNMA命令发送一个确认，否则下一次收到短信CNMI的<mt>值会自动变为0，导致无法
GSM MODEM
azhangyi188的专栏
04-21 1261
上位机软件：串口调试助手V2.1.exe        下位机硬件：GSM MODEM SIM卡号：89860 05422 07446 59525        MDN号码：13982243937 测试时间：2007年10月27日星期六          运行电脑端串口调试助手软件，串口选择电脑何GSM MODEM一致的端口，如COM1，波特率选9600，校验位选无NO，数据位选
GSM-MODEM AT指令集 Python示例程序
最新发布
Amzmks的博客
01-07 722
选择短消息支持格式（TEXT or PDU）+VGR调整听筒增益，+VGT调整话筒增益。保存+CSCA and +CSMP参数设置。恢复+CSCA and +CSMP参数设置。报告不同的结果代码（传输方式、语音或数据）选择不同的本机号码（因网络服务支持不同）保持或挂断某一通话线路（支持多方通话）设置传真发送的速度（使用HDLC协议）设置传真接收的速度（使用HDLC协议）+VTD设置长度，+VTS发送信号。选择不同声道（2对听筒和话筒）设置选择网络方式（自动/手动）选择不同的记忆体上存储的电话簿。
GSM-MODEM.rar_DELPHI GSM_短信_短信猫
09-24
标题 "GSM-MODEM.rar_DELPHI GSM_短信_短信猫" 提供的信息表明，这是一个与使用Delphi编程语言开发的GSM模块（通常称为短信猫）相关的项目，主要功能是通过GSM Modem或者手机发送短信。下面将详细阐述这个领域的相关...
短信接口delphi源代码DLL_gsmmodem_短信接口_delphi短信接口源码_
09-29
标题中的“短信接口delphi源代码DLL_gsmmodem_短信接口_delphi短信接口源码”揭示了这个压缩包文件包含的是使用Delphi编程语言编写的短信接口源代码，主要针对GSM（Global System for Mobile Communications）模块。...
短信猫(modem gsm)二次开发包
02-06
以下是一些关于短信猫（Modem GSM）二次开发的知识点： 1. **短信猫的工作原理**：短信猫实质上是一个内置GSM调制解调器的硬件设备，它通过串行接口（如RS232或USB）与计算机连接。通过AT命令集，开发者可以控制...
delphi短信猫开发包示例demo
10-01
总的来说，“Delphi短信猫开发包示例Demo”是一个全面的开发资源，它涵盖了从基础的GSM Modem操作到高级的应用场景。对于希望利用短信猫进行系统集成或者开发相关应用的开发者来说，这是一个宝贵的资源。通过深入...
testSms.zip_DELPHI短信_delphi 短信_短信_短信猫_短信猫 delphi
09-14
标题中的“testSms.zip_DELPHI短信_delphi 短信_短信_短信猫_短信猫 delphi”表明这是一个使用Delphi编程语言编写的，与短信发送相关的项目。描述中提到“短信猫发短信。自己写的测试程序。需要短信猫。手机卡。”这...
短信猫：又称GSM MODEM，GSM猫，无线猫，短信模块，GSM模块
05-02
短信猫：又称GSM MODEM，GSM猫，无线猫，短信模块，GSM模块，短信设备。根据集成模块的个数不同，又分为单猫和猫池两种。 短信猫是什么？短信猫其实是一种支持GSM无线通讯的工业级调制解调器，一般基于法国WAVECOM或德国SIEMENS（西门子）GSM模块，插入国内移动通信运营商的SIM卡后即可接入运营商GSM网络，实现无线GSM通话、短信、数据等功能。与手机相比，实际上核心模块一致，只是手机多了屏幕、键盘以及软件界面支持，而短信猫是在PC上通过串口通讯用AT指令去控制的，但两者能完成的短信收发功能是完全相同的。 随着手机及短信的普及，越来越多的行业开始发展企业短信应用，短信猫设备凭借其低成本、稳定可靠的点对点通信、方便快捷接入的优势已经成为企业短信领域重要的短信接入方式之一。中德福林依托其强大的研发实力、多年的无线通信经验，推出了一系列短信猫产品，除了原装正版的WAVECOM GSM MODEM，自身更是研发了多种型号的短信猫设备，基本上基于WAVECOM核心模块，接口包括串口（RS232）、USB接口、PCI接口、网口等，并提供一系列短信猫开发包及示例程序，支持VC/VC++/VB/DELPHI/PB/C#/.NET/ASP/JAVA/JSP二次开发。 短信猫设备二次开发接口 基于短信猫开发行业短信应用，软件开发商可以采取以下三种方式： 直接使用AT指令：基于串口通讯模式使用AT指令直接操作短信猫，这是最底层的短信猫开发模式，但是我们建议客户尽量不采用此方法，因为这种方式需要对短信猫的AT指令及特性非常熟悉。 短信猫二次开发包：短信猫厂商针对软件开发商短信应用提供的二次开发包，其底层是基于短信猫的AT指令，对于软件开发商只需要调用二次开发包或者控件中的API即可。基于多年的开发经验，为客户提供一套基于动态链接库（DLL）技术的短信猫开发包，可以支持所有的 WINDOWS 环境下开发工具，也提供支持 JAVA 开发的 JAR 包。 短信猫通信中间件：这是我们独家提供的基于数据库接口的短信猫通信服务器软件，软件开发商只需要提交短信队列到数据库里即可，开发简单快速，节约人力成本，是最佳的短信应用开发接口模式。 短信猫的优势 基于短信猫建立行业短信应用，具有如下优势： 投入低：无需购置接入服务器，只需购置经济的短信猫设备； 安装维护方便：短信猫设备容易安装，维护手段简便易用； 安全性好：服务采用自服方式，不需经第三方，信息保密，整个应用都在企业的控制之内； 用户覆盖面广：该服务能通过不同运营商的短信中心发送或接收短信息，兼容移动、联通的所有手机用户以及电信、网通的所有小灵通用户； 可靠性高：采用点对点的发送方式，优先级别高，稳定性好； 系统容量可扩展：通过简单添加通信模块就可以扩充系统容量； 业务开展自由：业务内容不受运营商限制，可以根据企业的具体需求进行业务和应用的定制； 接入门槛低：无需和运营商、服务提供商进行繁琐的商务谈判，只需一台短信猫就可以迅速构建企业自己的短信服务系统。 短 信 猫 直 销 网 产 品 简 介 欢迎由此查看本网短信猫产品规范及技术指标 短信猫，一般也叫做GSM MODEM，从英文名翻译过来，其实就是支持GSM制式通讯的调制解调器。所以，短信猫还有很多别称，如GSM猫，无线猫，短信模块，GSM短信模块等。因为大部分客户都是拿着GSM MODEM去收发短信，也就是在行业应用市场上，GSM MODEM最大的用途是用来收发短信，因此，大多数人还是称之为短信猫。 短信猫是什么？短信猫其实是一种支持GSM无线通讯的工业级调制解调器，一般基于法国WAVECOM或德国SIEMENS（西门子）GSM模块，插入国内移动通信运营商的SIM卡后即可接入运营商GSM网络，实现无线GSM通话、短信、数据等功能。 短信猫（GSM MODEM）的核心模块实际上就是手机的核心模块。当短信猫接通电源以后，GSM MODEM的内置软件就开始工作，如果您插入了某个移动运营商的SIM卡，GSM MODEM便完全就和手机一样接入到移动通信网络中去了。与此同时，计算机可以通过串口或USB连接GSM MODEM，通过一套AT指令，便可以操作GSM MODEM，例如收发短信。其实也可以拨打电话、收发传真等等，只是我们一般没有必要使用这些多余功能。因此短信猫（GSM MODEM）与手机的最大区别在于手机自带屏幕、键盘、应用软件，而短信猫相当于一个处于黑箱操作的手机，需要计算机去驱动和控制。 短信猫（GSM MODEM）的分类：按照与计算机的不同接口，短信猫可分为串口短信猫、USB接口短信猫、PCI接口短信猫、网口短信猫等。按照模块数的多少，短信猫可分为单口短信猫和短信猫池两种。短信猫池其实就是将多个模块集成到一起通过多串口或者网口与计算机形成多串口通讯，从而实现多个模块并发的设备。按照无线网络制式的不同，又可分为GSM短信猫、CDMA短信猫和小灵通短信猫。 短信猫开发接口（GSM MODEM SDK），基于短信猫开发行业短信应用，软件开发商可以采取以下四种方式：1、直接使用AT指令，基于串口通讯模式使用AT指令直接操作短信猫，这是最底层的短信猫开发模式，基本上无论是哪种接口的短信猫，其实质还是通过GSM MODEM的串口通讯AT指令来驱动的。2、短信猫开发包：短信猫厂商针对软件开发商短信应用提供的二次开发包，其底层是基于短信猫的AT指令，对于软件开发商只需要调用二次开发包或者控件中的API即可。3、短信猫通信中间件：这是一套的基于数据库接口的短信猫通信软件，用户只需提交短信队列到数据库即可进行短信收发。因此无论您用的是哪种开发语言，只要您能读写数据库即可。这种开发简单快速，节约人力成本，是最快捷的一种短信应用开发模式。4、直接使用由第三方提供的短信网关：这时其实已经没有必要再购买短信猫了（因为短信网关公司已经替您配备了类似设备），用户只需按照网关说明直接调用短信网关接口，系统就会自动实现短信收发。短信网关公司的网址为：SmsGate.CN。
GSM MODEM软件
08-31
GSM MODEM调试软件 显示AT指令 方便AT指令理解
非常不错的modem测试工具
02-23
非常不错的modem测试工具，一致用它。。。。。。。。。。。。。
TC35测试程序（完整资料）.zip
08-18
TC35测试程序，可以在Kiel中运行的工程文件，内包括源代码
短信猫发送接收超长短信二次开发包
06-08
SMSOCX为一款短信猫二次开发控件。 控件提供必要接口可以实现普通汉字短信（最长70个汉字）、普通英文短信（使用7Bit编码，单条最长160字节）、超长汉字短信（拆分后每条63个汉字）、超长英文短信（使用7Bit编码，每条152字节）的发送和接收功能；
Qcom modem 新增AT命令
索峰的个人专栏
10-30 740
下面列举出与ATCoP相关的一些主要的资源目录： Dsat.h ATCoP外部模块使用的定义，函数和数据结构 Dsat.h ATCoP外部模块使用的定义，函数和数据结构 Dsati.h ATCoP内部使用的定义，函数和数据结构 Dsatprep.c 接收自串口设备的数据的预处理 Dsatpar.c AT命令解析器，将命令行的AT命令解析到token结构中 Dsatcmdp.c AT命令处理器，查找token结构中的包含的命令并从命令列表中调用相应的命令处理函数处理命令 Dsatrs
Delphi制作GSM Modem的短信发送控件
ncdawen的专栏
12-30 1581
目前大多数的企业及学校内部都建有Intranet。并建有内部网站实现资源共享。为了使用户及时的得知网上的最新信息，很多网站都采用了手机短信提醒的方式，但使用中国移动或中国联通的SP方式，会大大的增加企业的成本。故本文讨论的是利用GSM Modem和短信发送控件来实现的短信提醒。　　首先，介绍一下笔者所使用环境。　　服务器：Windows 2000 Advanced Server、IIS 5.0、A
基于GSM MODEM短信报警模块结合系统软件应用
yemusic的博客
03-19 1300
随着电子信息的不断发展,信息技术的高速发展和广泛应用中,短信技术也是信息技术的前沿和热点.许多系统管理软件和办公软件在监控到数据异常时无法及时告知管理人员，使系统管理软件发挥作用降低。而采用短信模块与系统管理软件相结合进行有效实时监控，使在出现故障和异常情况时自动发送报警信息到管理人员，从而使紧急事务得到良好控制和解决。同时管理人员还可以通过短信息收发功能与管理系统信息互动，进行查询系统状态。一、...
关于（GSM MODEM）二次开发的简介
emowuyi
01-07 536
针对方式的产品方案，我司提供的产品信息： 硬件部分：DG-C1A(串口)：单模块工业级(GSM MODEM)，基于法国WAVECOM或德国SIEMENS核心GSM模块，标准RS232串口，稳定实用的短信模块，提供二次开发包，支持VC/VB/DELPHI/ASP/C#/.NET/JAVA开发。DG-C4A、DG-C8A池：金仓池，基于法国WAVECOM或德国SIEMENS核心GSM模块...
评论 3
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

trassion

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值