发一个网上找到的例程，使用手机串口通讯，可以在线收发短信息，给需要的xd

前几天要做一个短信收发的小软件，于是按照习惯Box寻找例程和控件，可惜没有找到！于是,大幅翁、Google!!!终于找到了好几个，不是要收费就是不能用！气愤！这又不是什么高新尖端科技，俺们不是做不出来,俺们只是秉承RAD的精神而已！于是这个短消息控件诞生了！虽然还很简陋，起码胳膊腿都有了，剩下就看它怎么跑了！使用标准AT指令现在只能支持PDU模式（Text模式太简陋）！支持7_Bit 和 UCS2 编码集成了串口（spcomm）只需要简单的配置几个参数就可以收发短信了

经测试通过的一个短信控件例程问题：作者只给出了CSMSControl.dcu,发送短信时在发送短信前会加上adsg@tom.com的信息!网上下载的不能支持COM10以上的端口，测试时老是提示找不到或打不开端口，我换了SPComm.pas后解决了此问题。

包含了SPCOMM.PAS文件，delphi 7下完整的串口发送和接收的工程代码，串口号是com10