delphi 短信猫(SMS)编程总结

页面导航:首页 > 软件编程 > Delphi > delphi 短信猫(SMS)编程总结

delphi 短信猫(SMS)编程总结

来源: 作者: 时间:2016-01-15 15:17 【

现在有个项目需要用到发短信的功能,所以网上买了个西门子T35i 芯片的短信猫,但实际编程时才发现只能发短信,一般的DLL不支持发长短信,但公司会经常发长短信,联系卖家要求给

现在有个项目需要用到发短信的功能,所以网上买了个西门子T35i 芯片的短信猫,但实际时才发现只能发短信,一般的DLL不支持发长短信,但公司会经常发长短信,联系卖家要求给个发长短信的动态库,但卖家说他那只有这个,长短信要收钱开发的,晕。(怀疑是故意的),然后又买了个支持长短信惠通猫(szhto.ocx、HTCOM.dll不支持线程),开始还行,但用久了不知为啥总是死机一样,发/接不了短信,并且总是有两条短信删不掉,一直留在那,找供应商都不理你,说我程序的问题,无语了,

那么只有自己上网找了,好在支持T35i的有许多,又把旧的猫拿来研究。经过不懈努力终于OK。(哈。。。。哈。。。。),过程中接触了几个DLL和OCX,我都来评说下吧。

1、sms.dll (好象迅塞公司的),可以发长短信,但不能给10086这样的短号码发信息。

同步发送的、它的功能也比较简单:

  function Sms_Connection(CopyRight:pchar;Com_Port,Com_BaudRate:integer;var Mobile_Type,CopyRightToCOM:PChar):integer;stdcall;external 'sms.dll';
  function Sms_Send(Sms_TelNum:string;Sms_Text:string):integer;stdcall;external 'sms.dll';
  Function Sms_Receive(Sms_Type:string;var Sms_Text:PChar):integer;stdcall;external 'sms.dll';
  function Sms_Delete(Sms_Index:string):integer;stdcall;external 'sms.dll';
  function Sms_AutoFlag :integer;stdcall;external 'sms.dll';
  function Sms_NewFlag :integer;stdcall;external 'sms.dll';
  function Sms_Disconnection :integer;stdcall;external 'sms.dll';

2、MonDem.dll (这个忘了是那家的了)支持多线程操作,功能也可以,但没研究出怎么发长短信,有知道的一定告之呀!

//函数说明
//先初始化,然后发送或者接收,退出程序前关闭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号端口错误
{********************************************************}

3、SZHTO.OCX 控件,需要机器码注册,不支持10086发送,并且性能不稳定。用久了总要死回机不知为什么(大概4、5天吧!)

由于是OCX的方式,用起来还是比较方便的。

4、SMSControl.ocx Ver5.0(LY的)控件的用起来还是比较好用的,功能也多,但需要注册购买的,支持10086等短信发送。

不用买也是可以用的,没有连接/发送等状态的返回值,只能自己设置延时处理了。

                if Smscontrol1.SendMSG(QFindSend.Fields[1].AsString,QFindSend.Fields[2].AsString)>0 then  begin
                     Memo1.Lines.Add('发送成功!');
                   end
                 else begin
                   Memo1.Lines.Add('发送失败!')
                 end;


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<