日期:2014-05-18 浏览次数:20983 次
[DllImport("SGIPSDK.dll")] static extern ISGIPInterface CreateSGIPInterObject();
unit uISGIPInterface; interface uses SysUtils,Classes; type //回调接口 IRspSGIPInterface = class(TObject) {/* 启动服务回调 @iRet 0成功,可以开始发送短信 其他注册失败,不能发送短信 @szRspInfo 具体信息 */} procedure OnRspStartService(iRet:Integer; szRspInfo : PChar);virtual;stdcall;abstract; {/* 停止服务回调 @iRet 0成功 @szRspInfo 具体信息 */} procedure OnRspStopService(iRet:Integer; szRspInfo : PChar);virtual;stdcall;abstract; //停止服务回调 {/* 短信回执回调 @szMsgID 消息序号 @szPhonenumber 手机号码 @iState 回执状态 0:发送成功 1:等待发送 2:发送失败 @iErrorCode 错误编号 当iState=2时为错误码值,否则为0 */} procedure OnRspSmsReport(szMsgID : PChar; szPhonenumber : PChar; iState : Integer; iErrorCode : Integer);virtual;stdcall;abstract; //短信回执回调 end; //SGIP封装接口 ISGIPInterface = interface ['{0E11ECF4-694C-4994-A19C-E47D894598A8}'] {/* 启动服务 @lpRsp 回调对象 */} procedure StartService(lpRsp:IRspSGIPInterface);stdcall; //停止服务 procedure StopService;stdcall; {/* 发送短信 @TargetNo 目标手机号 @SmsContent 短信内容(不超过140个字节) @函数返回值 消息序号,-1未启动服务 ,-2未注册成功 */} function SendSMS(const szTargetNo:PChar; const szSmsContent:PChar):PChar;stdcall; end; implementation end.