readme.txt

来自「SMS短信收发纯Delphi开发VCL SMS短信收发纯Delphi开发VCL」· 文本 代码 · 共 79 行

TXT
79
字号
	
	
	短信收发控件使用说明:

	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 + =
减小字号Ctrl + -
显示快捷键?