gsmmodem.h

完整的短信管理系统.delphi实现.可以支持GSM大多数手机的短信收发,管理.

// 短信网关动态库(支持各种红外手机、数据线连接的手机或无线猫，兼容性很好), 共有11个函数
// 库文件: GsmModem.Dll
// [e-mail]
// 深圳市蓝星际电子有限公司，版权所有

function LoadGsmModemDll()
{
	smsDllHd = -1;  // 初始化动态库句柄
	DllLoad("GsmModem.dll", smsDllHd);     // 装载这个库
	if( smsDllHd < 0 )
	{
           DispInfo(0, "找不到动态库GsmModem.dll");
   	   return(-1);   // Error
	}
	// 函数说明:
	DllFunction(smsDllHd, "GsmOpen", 4);   // 打开GMS设备, 4个参数
	DllFunction(smsDllHd, "GsmClose", 0);  // 关闭GMS设备, 没有参数
	DllFunction(smsDllHd, "SMSSend", 3);   // SMS发送, 3个参数
	DllFunction(smsDllHd, "SMSSendEx", 3); // SMS发送, 长信息自动拆分多条发送, 3个参数
	DllFunction(smsDllHd, "SMSRecv", 4);   // SMS接收, 4个参数
	DllFunction(smsDllHd, "SMSTest", 1);   // SMS测试, 1个参数

	DllFunction(smsDllHd, "GsmSq", 1);     // 信号质量, 1个参数

	DllFunction(smsDllHd, "GsmOutCall", 2); // 拨号外呼, 2个参数
	DllFunction(smsDllHd, "GsmSetKeys", 1); // 二次拨号, 1个参数
	DllFunction(smsDllHd, "GsmHangup", 0);  // 挂断正在进行的通话, 没有参数
	DllFunction(smsDllHd, "GsmIsOnline", 1);  // 判断线路是否还在通话, 1个参数

	DllFunction(smsDllHd, "GsmGetRings", 1);  // 有振铃吗, 1个参数
	DllFunction(smsDllHd, "GsmGetCallerId", 1);  // 得到主叫号码, 1个参数
	DllFunction(smsDllHd, "GsmAnswer", 1);  // 接听, 1个参数
	DllFunction(smsDllHd, "GsmMsgBox", 3);  // 显示信息框, 3个参数
        return(0);
}

LoadGsmModemDll();
if( _retVal<0 )
{
  return(-1);
}
// 说明完毕