三种:
一种是同GSM模块通讯(所谓无线Modem),如MOT D10,标准的AT指令集。
第二是同手机通讯,各个厂家都有自己的协议,如NOKIA 3110和西门子 1088系列手机。
但有的公开,有的不公开,还加密。
第三是同某些WebSite通讯,他们提供CGI
uses
ComObj; procedure TForm1.Button1Click(Sender: TObject);
var
SoapClient: OleVariant;
v: OleVariant;
begin
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('Number', 'MessageBody', 'Sender');
end;
一种是同GSM模块通讯(所谓无线Modem),如MOT D10,标准的AT指令集。
第二是同手机通讯,各个厂家都有自己的协议,如NOKIA 3110和西门子 1088系列手机。
但有的公开,有的不公开,还加密。
第三是同某些WebSite通讯,他们提供CGI
uses
ComObj; procedure TForm1.Button1Click(Sender: TObject);
var
SoapClient: OleVariant;
v: OleVariant;
begin
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('Number', 'MessageBody', 'Sender');
end;
解决方案 »
- Ehlib控件的打印应用,能不能给个具体的例子看看呀?
- 有关TComPort控件,接收时,接收字节不全,请大家帮看看
- 修改系统日日期格式
- 如何获取Webbrowser控件中所浏览的HTML页面的长和宽
- 有人用过kol吗?怎么把pstream中的东西转存到stream中?
- 李维是个骗子吗?borland是个骗子吗?
- 问一个在代理服务器下远程连接到SQL服务器的问题?
- delphi 在游戏里如何实现一个鼠标拖动
- 请问ehlib的DBGribEh的Footer怎么用阿
- 请问谁知道Theader95这个VCL控件那有有下载呀.(100分,不够再加,提贴有分)
- 关于在delphi中涉及日期条件sql语句的写法问题
- 报表打印问题,高手请进!
var callstr:string;
begin callstr:='http://tips.gxspace.com/cgi-bin/tips/webpaging?stn_id='+callto.Text+'&page_no='+tonumber.Text;
case RadioGroup1.ItemIndex of
0:callstr:=callstr+'&pager_type=C';
1:callstr:=callstr+'&pager_type=N';
end;
callstr:=callstr+'&firstname='+firstname.text;
case RadioGroup2.ItemIndex of
0:callstr:=callstr+'&title=0';
1:callstr:=callstr+'&title=1';
end;
callstr:=callstr+'&msg='+callmsg.Text+'&answer=null&B1=发送寻呼';
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
If ifuseproxy.Checked then
Begin
NMHTTP1.Proxy := Edit1.Text;
NMHTTP1.ProxyPort := StrToInt(Edit2.Text);
End;
NMHTTP1.Get(callstr);
end;
有些寻呼(如润迅寻呼就不能用上面的GET请求实现,它要用POST请求),使用与上面相差不大,如下面是NMHTTP的POST用法:NMHTTP1.InputFileMode:=False;
NMHTTP1.OutputFileMode:=True;
NMHTTP1.ReportLevel:=Status_Basic;
If ifuseproxy.Checked then
Begin
NMHTTP1.Proxy := Edit1.Text;
NMHTTP1.ProxyPort := StrToInt(Edit2.Text);
End;
With NMHTTP1.HeaderInfo do
Begin
Cookie := Edit5.Text;
LocalMailAddress := Edit6.Text;
LocalProgram := Edit7.Text;
Referer := Edit8.Text;
UserID := Edit9.Text;
Password := Edit10.Text;
End;
// 把要提交的数据先放在test.txt文件中:格式为stnid=A&pageno=123456....NMHTTP1.Post('http://www.wocall.com/script/zbwebcall.asp','test.txt');file://NMHTTP的具体用法在Delphi安装目前\Borland\Delphi5\Demos\FastNet\Http下有个NMHTTP使用的例子。 以上都是用NMHTTP实现的,其实用Delphi中的WebBrowser组件同样可以完成数据的提交,使用是这样的 Webbrowser1.OleObject.Document.FrontPage_Form1.submit(); 说明:WebBrowser1是WebBrowser组件的名,Frontpage_Form1是用WebBrowser打开的网页中的表单名 网页中的表单是这机样的:<FORM action=http://message.com.cn/cgi-bin/ips/webpaging method=post name=FrontPage_Form1>
.......
</FORM>
这样的实现方法就是用程序生成一个已经按用户输入信息生成一个网页,然后通过WebBrowser1.Navigate(生成的网页),最后提交到服务器Webbrowser1.OleObject.Document.FrontPage_Form1.submit();这样就完成了一次寻呼
原理是利用GSM AT指令操作手机,收发短信。
手机和COM连接,加上手机数据套件的驱动程序,手机就成了一部支持GSM AT的Modem了。