setup.prg

为了对短消息信息应用开发商提供支持

*CLEAR ALL
*CLOSE DATABASES all

*-------系统环境设置------------------------------
Set Near Off   &&指定FIND或SEEK查找失败后记录指针的位置
Set Exact Off
Set Ansi Off
Set Esca Off
Set Talk Off
Set Dele On
Set Stat Bar On
Set Clock Status
Set Safe Off
Set Date Ansi
Set Century On
Set Sysmenu Off
Set Sysmenu To
Set Class To
Set Currency Left
Set Hours To 24
Set Notify Off     &&允许或禁止某些系统的显示
Set Odometer To 1
Set Refresh To 1,3
Set Scoreboard On
Set Collate To "MACHINE"
Set Optimize On
Set Excl Off
Set Multi On
*SET CLASSLIB TO winsck

*-----设置搜索路径--------------------------------
Set Sysmenu To Defa
mpath='"'+Justpath(Sys(16))+'"'
Set Default To &mpath
Set Path To Data,Report
Application.AutoYield = .F.


Declare Integer Sms_Connect In SmsSdk.Dll ;
	String	pServer  , ;
	Integer 	lCorpID , ;
	String	pLoginName  , ;
	String	pPasswd  , ;
	Integer 	lTimeOut , ;
	Integer	HWnd

Declare Sms_DisConnect In SmsSdk.Dll

*发送指定的短信，它能自动分段发送,每段信息最大长度为70个字
Declare Integer Sms_Send In SmsSdk.Dll ;
	String pMobile , ;
	String pMsg , ;
	Long @lSmsID

Declare Integer Sms_SendEx In SmsSdk.Dll ;
	SMSSEND pSmsSend , ;
	Long lCount , ;
	Long bWaitRet

*返回接收队列中短信
Declare Integer Sms_Get In SmsSdk.Dll ;
	String @pNo , ;
	String @pMsg  , ;
	String @pTime

*剩余短信量
Declare Integer Sms_KYSms In SmsSdk.Dll

*取短信状态
Declare Integer Sms_Status In SmsSdk.Dll Integer lSmsID