有没有手机收发短信的控件？(85分)

无聊时做了一个 SMS.DLL
//*******************************//
//** 要导出的函数名列表 **//
//*******************************//
Exports InitDevice, //初始化端口 Function InitDevice(nPort, nBaud, nType: Integer): integer;
SetServiceCenter, //设置短信中心 Function SetServiceCenter(Str: String):Integer;
SendMsg, //发送一条短信 Function SendMsg(szPhone, szText: String; SendMode: Integer):Integer;
GetLastSendSerial, //最后发的序号 Function GetLastSendSerial: Integer;
ReadMsg, //读取短信一条 Function ReadMsg(nID:Integer; var szPhone:String;var szText:String;var szTime: String): Integer;
haveNewMsg; //是否有新短信 Function haveNewMsg: Integer;

呵呵。还可以吧

发短信等手机通讯有三种方式:
1.移动、联通网关，一般是通过宽带网连接
2.通过在163、sohu、sina等网站注册手机，编写程序来发送短信
3.红外或串口与手机通信，分Text和PDU两种传送模式。其中，Nokia手机还可以分为需要数据套件、免数据套件(二进制)两种方式。
我的主页上有后两种Demo程序及源代码。http://wenjinshan.wx-e.com/index2.htm

谢谢，wenjinshan
近来可好！

呵,尊姓大名?
我很少上delphibbs的,有事email联系: wenjinshan@163.com

我靠，