⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 readme.txt

📁 SMS短信收发纯Delphi开发VCL SMS短信收发纯Delphi开发VCL
💻 TXT
字号:
	
	
	短信收发控件使用说明:

	Build 20040606(Beta 1)

使用时不能将控件直接放在窗体上,需要定义并自己创建,具体使用方法参看示例程序。

控件只提供dcu文件。


控件从SPComm继承,并且增加了短信收发功能,对于SPComm的相关属性和事件不在此进行说明,下面只介绍与短信相关的属性、方法和事件。

Delphi 7下、wavecom 设备下调试通过。

共享版暂不提供对西门子、诺基亚模块的支持。

开发计划:
1.解决直接放置在窗体上使用的问题。
2.提供dll、OCX,供vb,vc等程序使用。
3.提供源码(暂不提供,请不要联系索要)

计划只是计划,看看有没有时间,比竟还有工作...^_^

一、属性
1.AutoDeleteMsg:Boolean 自动删除短信
如果设置为True,则在读取短信时自动删除该短信,收到新短信时读取后也自动删除。
二、方法
1.WriteCommDataAT(AT:String);
发送AT命令,立即执行

2.PushCommand(AT:String;ATType:Integer);
将命令压入命令队列,由控件在设备空闲时自动发出
ATType备用,可写任意整数

3.SendSMS(PhoneNO:String;Msg:String): Integer;
立即发送短信命令
PhoneNO:手机号码
Msg:短信内容

4.PushSMS(SMSID:Integer;SMSPhoneNO,SMSMsg:String;SMSSendTime:TDatetime)
将短信压入待发短信队列,牙控件在设备空闲时自动发出
SMSID:短信序列号,在控件的OnSMSSendOKEvent事件中将返回发送成功的SMSID,建议使用数据库中的ID字段进行标志
PhoneNO:手机号码
Msg:短信内容
SMSSendTime:发送时间,备用,为定时发送而设

5.SetOpenProcess(Value:Boolean);
启动/停止命令执行,包括发送短信进程

6.InitSMS(CenterNO:String);
初始化短信设备,设置为PDU格式,并且初始化短信中心
CenterN:短信中心号码,不带加号,如:8613010166500

7.GetCommandQueueCount: Integer;
返回命令队列中待发命令个数

8.GetSendQueueCount: Integer;
返回命令队列中待发短信个数

三、事件

1.OnSMSNewEvent(PhoneNO,Msg,MsgTime:String);
收到短信事件
PhoneNO:手机号码
Msg:短信内容
MsgTime:收到时间

2.OnSMSSendOKEvent(ID:Integer);
短信发送成功事件
ID:发送成功短信索引,为在PushSMS中所设的SMSID

作者保留所有权力。

共享版在发送短信前会加上adsg@tom.com的信息!

					adsg
			http://www.tinsoftware.com
				adsg@Tom.com

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -