SMSActiveX控件是为了让Windows程序方便的使用SMS功能。他允许你发送、接收、度去和删除手机中的文本、图片、Flash和newsflash信息，读取和修改短信中心号码。如果使用这个控件，你还可以传送CLI logo。获取手机参数例如IMEI，软件和硬件的版本和日期等等。在使用这个控件时，你只需要设定手机的型号，中心号码和连接模式。

   这个控件现在支持的手机型号是以下Nokia手机型号：3210, 3310, 3330, 3350, 3390, 3410, 5110, 5130, 5190, 5210, 5510, 6110, 6130, 6150, 6190, 6210, 6250, 6310, 6310i, 6360, 6510, 7110, 7190, 8210, 8250, 8290, 8310, 8390, 8850, 8855, 8890, 8910.

下面主要介绍控件的属性。

一、控件属性

1 AutoDeleteMessages

声明：

Delphi:

property AutoDeleteMessages: Boolean;

Visual Basic:

Dim AutoDeleteMessages as Boolean

描述：

如果你想在接收后自动的删除SIM卡上的所有短信，就可以使用这个属性。

注意，无论AutoDeleteMessage的值是什么，OnSMSMessageReceived 这个事件都会发生。

2 AutoDeleteReports

声明：

property AutoDeleteReports: Boolean;

Visual Basic:

Dim AutoDeleteReports as Boolean

描述：

如果你想在接收后自动的删除SIM卡上的所有报告，就可以使用这个属性。

注意，无论AutoDeleteMessage的值是什么，OnSMSMessageReceived 这个事件都会发生。

3 BatteryLevel

声明

Delphi:

property BatteryLevel: Integer;

Visual Basic:

Dim BatteryLevel as Long

描述：

为了得到电池的电量，读取电池电量属性.

电池电量是一个百分数，范围是0到100。

如果组件访问属性失败，则返回－1

4 ComNumber

声明

Delphi:

property ComNumber: integer;

Visual Basic:

Dim ComNumber as Long

描述：

这个属性定义与手机连接的端口号。如果你使用红外线连接方式就可以不设定这个参数。(ConnectionMode = 2)

5 ConnectionMode

声明

Delphi:

property ConnectionMode: integer;

Visual Basic:

Dim ConnectionMode as Long

描述：

使用这个属性你可以改变连接模式

0 - DAU-9P 数据线连接

1 - DLR-3

2 - InfraRed 红外线连接

ComNumber 和 ConnectionMode 属性必须在连接前设定好。

6 HW

声明

Delphi

property HW: string;

Visual Basic:

Dim HW as string

描述

HW得到你手机的硬件型号. 如果组件获取这个参数失败时，返回一个空串.

7 IMEI

声明

Delphi:

property IMEI: string;

Visual Basic:

Dim IMEI as string

描述

使用IMEI属性来得到你手机的IMEI.如果组件获取这个参数失败时，返回一个空串.

INTERNATIONAL MOBILE EQUIPMENT IDENTITY（简称IMEI）。中文译做国际移动设备身份码，它的最大功能是

用来协助辨别手机身份真伪。

8 InboxBusy

声明

Delphi:

property InboxBusy: integer;

Visual Basic:

Dim InboxBusy as Long

描述

为了获得填充SMS slot了的数目，读取InboxBusy

如果组件获取这个参数失败时，返回一个－1.

注意, 有时需要一些时间获得这个属性.

9 InboxCount

声明

Delphi:

property InboxCount: integer;

Visual Basic:

Dim InboxCount as Long

描述

为了获得手机SMS slot最大的数目，你可以读取这个属性。

如果组件获取这个参数失败时，返回一个－1.

注意, 如果手机允许保存短信到内存中, 这个方法返回255, 否则将返回手机SIM卡容量.

10  InboxLocations

声明

Delphi:

property InboxLocations: string;

Visual Basic:

Dim InboxLocations as string

描述

这个方法用填充的SMS slot的数目返回CommaText 字符串

如果组件获取这个参数失败时，返回一个空串.

11 LastPacketsSent

声明

Delphi:

property LastPacketsSent: Integer;

Visual Basic:

Dim LastPacketsSent as Long

描述

为了获得实际传送信息包的数目，在最后发送的短信期间，读取LastPacketsSent 属性.当传送logos和铃声时 这个属性是非常有用。例如：当你成功的传送了铃声，SendRingtone方法就会返回true，和LastPacketSent属性就会指明这个铃声有多少部分。

12 LastReadSMSDelivery

声明

Delphi:

property LastReadSMSDelivery: integer;

Visual Basic:

Dim LastReadSMSDelivery as Long

描述

当你从手机里读过短信，所有短信参数就被放入LastReadSMS组属性中.

LastReadSMSDelivery - 如果短信是一个报告,这参数发送状态

       发送状态值:

       0 - 已经发送

       1 - 没有发送

       2 - 在发送过程中

       3 - 没有被发送

13 LastReadSMSMsgType

声明

Delphi:

property LastReadSMSMsgType: Byte;

Visual Basic:

Dim LastReadSMSMsgType as Byte;

描述

当你从手机中读取短信时，所有短信参数被加入 LastReadSMS 组属性.

LastReadSMSMsgType - 显示最近读的短信类型;

       LastReadSMSMsgType :

       0 - 新到的短信

       1 - 发送报告

       2 - 发出的短信

       3 - 图片短信

       4 - 未知短信

14 LastReadSMSPictName

声明

Delphi:

property LastReadSMSPictName: string;

Visual Basic:

Dim LastReadSMSPictName as string

描述

当从手机中读取短信，使用这个属性判定完整的路径

操作将试图使用位图格式存储图片到一个指定的文件

如果这个控制失败，将会重新设定LastReadSMSPictName为一个空串.

15 LastReadSMSSend

声明

Delphi:

property LastReadSMSSend: String;

Visual Basic:

Dim LastReadSMSSend as String

描述

当你从手机中读取短信，所有短信参数被加入到 LastReadSMS组属性中.

LastReadSMSSend - 发送者的电话号码

16 LastReadSMSText

声明

Delphi:

property LastReadSMSText: String;

Visual Basic:

Dim LastReadSMSText as String

描述

当你从手机中读取短信，所有短信参数被加入到 LastReadSMS组属性中.

LastReadSMSText - 短信的内容

17 LastReadSMSTime

声明

Delphi:

property LastReadSMSTime: Double;

Visual Basic:

Dim LastReadSMSTime: Double

描述

当你从手机中读取短信，所有短信参数被加入到 LastReadSMS组属性中.

LastReadSMSTime - 短信时间

18 Model

声明

Delphi:

property Model: integer;

Visual Basic:

Dim Model as Long

描述

这个属性为了和 OLD VERSIONS OF ACTIVEX兼容而设定.

19 PhoneType

声明

Delphi:

property PhoneType: string;

Visual Basic:

Dim PhoneType as string

描述

PhoneType 属性返回 你的Nokia 手机型号.

如果这个控制失败，将会重新设定PhoneType为一个空串.

20 SendTimeOut

声明

Delphi:

property SendTimeOut: Integer;

Visual Basic:

Dim SendTimeOut as Long

描述

使用SendTimeOut属性控制手机响应到手机发送的时间。默认值为 17 秒.

21 SignalLevel

声明

Delphi:

property SignalLevel: Integer;

Visual Basic:

Dim SignalLevel as Long

描述

为了获得信号状态读取 BatteryLevel属性

信号状态用百分数表示，其值范围是0到100。

如果组件获取这个参数失败时，返回一个－1.

22 State

声明

Declaration

Delphi:

property State: Integer;

Visual Basic:

Dim State as Long

描述

为了获取当前的连接状态读取State

属性值:

0 - 连接关闭

1 - 连接打开

2 - 连接正忙

23 SW

声明

Delphi:

property SW: string;

Visual Basic:

Dim SW as string

描述

SW 是你的手机的软件版本.

如果组件获取这个参数失败时，返回一个空串.

24 SWDate

声明

Delphi:

property SWDate: string;

Visual Basic:

Dim SWDate as string

描述

SWDate获取你手机的软件版本的日期.

如果组件获取这个参数失败时，返回一个空串.

25 WriteSMSPictName

声明

Delphi:

property 软件版本的日期: string;

Visual Basic:

Dim WriteSMSPictName as string

描述

使用这个属性取决定文件完全路径,接受到的短信中的图片的存储位置.

如果组件获取这个参数失败时，返回一个空串.