分享一个免费短信猫OCX源码

Posted 2020-08-05

支持法国wavecom短信猫设备，推荐深圳市联发创科科技有限公司短信猫产品。

返回值说明
0 命令执行成功
-1 串口打开失败
-2 串口关闭失败
-3 写串口数据失败
-4 读串口数据超时
-5 读串口数据失败
-6 命令执行失败
-7 短信中心地址错误
-8 目标地址错误
-9 串口没有打开
-10 短信序号超界
-11 对应序号短信不存在
-12 编码方式不是08

function OpenCom(const aComname: WideString; aBaud: SYSINT; aDataBits: SYSINT;
aStopBits: SYSINT; const aParty: WideString): OleVariant; safecall;
函数功能：打开串口
参数说明：
aComname 串口名如：COM1
aBaud 通迅波特率
aDataBits 数据位
aStopBits 停止位
aParty 校验位 N无、S空格等等

function CloseCom: OleVariant; safecall;
函数功能：关闭串口

function CheckEqu: OleVariant; safecall;
函数功能：检查设备是否在线
/*返回值特别说明 其它同上
1 移动卡
2 联通卡
*/

function SetSmscAddr(const aAddrStr:WideString): OleVariant; safecall;
函数功能：设置短信中心地址
参数说明：
aAddrStr 短信中心地址，不包括+86,如13800755500

 

function SendSms(const aSendToAddr: WideString; const aSmsMessage: WideString): OleVariant; safecall;
函数功能：发送短消息
参数说明：
aSendToAddr 接收者手机号，不包括+86,如13800755500，小灵通号码包括106，如：106075526758942
aSmsMessage 短消息内容，最长60个汉字 其它10个用作短信签名

function ReadOneSms(aSmsId: SYSINT; aDeleteAfterRead: WordBool; out aFromPhone: OleVariant; out aDateTime: OleVariant; out aMsgText: OleVariant): OleVariant; safecall;
函数功能：读短消息
参数说明：
aSmsId 短信序号
aDeleteAfterRead 读后是否删除
aFromPhone 发送者手机号码
aDateTime 发送时间
aMsgText 短信内容

function DelOneSms(aSmsId: SYSINT): OleVariant; safecall;
函数功能：删除短消息
参数说明：
aSmsId 短信序号

function LoginSMS(const aUserId: WideString; const aPassWord: WideString): OleVariant; safecall;
函数功能：验证用户名及密码 发送短信时用户名会做为短信签名跟在后面，如果没有调用将使用默认的用户名
参数说明：
aUserId 用户名
aPassWord 密码

 

function SendAtCommand(const aCommandText: WideString; out aReturnBuffer: OleVariant): OleVariant; safecall;
函数功能：发送AT指令
参数说明：
aCommandText 要发送的AT指令
aReturnBuffer 发送AT指令的返回值

function ReadAllSmsWithStatus(aStatus: SYSINT): OleVariant; safecall;
函数功能：读所有指定状态的短信息，当为0,1时读后会删除短信 0未读 1已读 2待发 3已发 4全部
参数说明：
aStatus 短信状态类型值
返回值大于0，指示本次读取到的短信数，短信放在内存里面，需要用ReadOneSmsFromAllSms读取

function ReadOneSmsFromAllSms(aSmsId: SYSINT; out aFromPhone:OleVariant;out aDateTime: OleVariant; out aMsgText: OleVariant): OleVariant; safecall;
函数功能：按序号读取ReadAllSmsWithStatus返回的短信息
参数说明：
aSmsId 短信序号
aFromPhone 发送者手机号码
aDateTime 发送时间
aMsgText 短信内容
特别说明：如果ReadAllSmsWithStatus返回10，aSmsId的值就是从1--10