在Delphi中能否给手机发送短消息?(100分)

我想用Delphi给手机发短消息不知，哪位大侠能告诉我，分不够可以再加?

看来我不得不转向Java了，没有人谈谈吗？

首先通过下面的地址下载并安装微软SOAP工具包2.0:
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
然后就可以使用下面的简短代码发送SMS了。

uses
ComObj;

procedureTForm1.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;

其中Number为国家代码+电话号码（不需要以零打头），
如0612345678在荷兰：31612345678　

to monkeyking1983:
试了一下，报错：OLE error 800A151E
不知是不是因为防火墙的原故？

另外，我试了一下如下的代码：
SoapClient.mssoapinit('http://www.soapengine.com/lucin/soapenginex/smsx.asmx?wsdl');
SoapClient.SendMessage(Username,passkey,Number,MessageBody,Sender,'','','','','');
返回发送成功的信息，发送一次，我的点数减一。但我的手机没有收到信息。不知对手机号码有
没有什么要求？

当然可以了。我们公司用的短消息系统就是我们用delphi开发的，移动，联通的全部支持。
还可以用它给自己的手机发送歌。

to 舒克
你能说说开发的细节吗？

开发的细节我不好多说，我只能说我们与联通和移动有协议，根据协议我们得到了联通与移动
短消息系统的通讯协议格式，函数库等等。在此基础上我们用delphi开发了一个短消息平台。
在这个平台上当然是什么都可以做了。

你可以去http://61.144.244.102/sgs.htm那有网关的短消息api

http://61.144.244.102/sgs.htm那有网关的短消息api

的例子程序我下了，但是不好用啊，请高手指点谢谢

分不够可以再开

联通：将短信息发给思特奇网关，用SGIP协议。（当然你的Computer得能访问到思特奇网关）
移动：将短信息发给移动短信网关，用SMPP协议。
另一种方法通过GSM模块发（得花钱），DELPHI-串口-GSM模块-下发短信息。

　　很多人一定用过OICQ，想必也用过了它的BP机短讯、手机短讯，编程的朋友一定想实现这种功能，如果你的程序能发到手机、发到BP机一定很酷。现在我就介绍一种可行的方法。

　　一、原理

　　它不同于OICQ的双方都在网上才能进行交流的寻呼功能，它可以将文字信息发送到真正的寻呼机上。只要你能够上网，就可以自己动手，随时随地将信息发送出去，即使你在国外，也可以利用它来向国内的友人发送信息了，而且不用交纳国际长途费用，是不是方便又省事呢！

　　二、分析

　　现在网上各寻呼台都有网上服务,网页寻呼(Web Paging)就是常用的一种。它是通过在互联网上访问寻呼台的主页，然后由寻呼台的信息寻呼系统打传呼。所以我们只要利用HTTP协议就可以实现网络寻呼了。以下就简单介绍一下HTTP协议： HTTP中完成一个会话通常要完成：

　　1)客户端程序与服务器建立连接

　　2)发送请求

　　3)服务器响应客户端

　　4)关闭连接

　　HTTP常用到的请求有：

　　　1)GET(请求一万维网页)

　　　2)HEAD(读取一万维网页的头部)

　　　3)PUT(请求一存储万维网页)

　　　4)POST(附加一个命名的资源)

　　　5)DELETE(删除万维网页)

　　　6)LINK(连接两个已有的资源)

　　　7)UNLINK(断开两个已有资源的连接)

　　HTTP中常用到的应答状态代码有：(*号代表0-9间的一个数)

　　　1. 1** (信息)

　　　2. 2**(成功)

　　　3.4**(客户端错误)

　　　4.5**(服务器错误)

其实我们要实现的程序，只用POST、GET请求，收到正常应答就可以了。POST可以用于把用户输入的数据以数据流的方式传给CGI程序，CGI通过Contect-Length环境变量来取相应长度的数据流信息。

　　POST请求格式如下：

　　POST http://www2.scuta.edu.cn/stu/chatroom/check.asp HTTP/1.0

　　Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*

　　Referer: http://www2.scuta.edu.cn/stu/

　　Accept-Language: zh-cn

　　Content-Type: application/x-www-form-urlencoded

　　Proxy-Connection: Keep-Alive

　　User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)

　　Host: www2.scuta.edu.cn

　　Content-Length: 87

　　Pragma: no-cache

　　Cookie: ASPSESSIONIDQGGGQHHE=ABGNNOJCIGOFCDLBIOLHKAFK

　　服务器正常应答的头部结构为：

　　　200 OK HTTP/1.0 说明提交数据成功

　　三、程序的实现

　　Delphi中NMHTTP已经可以很容易的实现上面的所说的数据提交,而且它还支持Proxy、这样对于通过代理服务器上网一样可以适用，并且它不是OICQ中发送讯信所用到SOCKET5代理。

　　新建一个窗体，加入组件一个ComboBox，命名为callto,用于存放寻呼对象，如国信寻呼就有95908、94908、94909、98062、98063、98019、98035、98052、98038、99055、98060、98061、98051、98003、99062、99016、99017、99018、99019、99046、99076；加入组件Edit，命名为tonumber，表示寻呼号码；加入组件RadioGroup，命名为RadioGroup1,Caption设为呼机类型，items中加入两项，分别为中文机、数字机;加入组件Edit,命名为firstName，用于表示发寻呼人的姓；加入组件RadioGroup，命名为RadioGroup2,Caption设为寻呼人性别，items中加入两项，分别为先生、小姐;加入组件Memo，命名为callmsg，用于输入发送的信息(注：对于数字机只能是数字信息)；加入组件NMHTTP,命名为NMHTTP1；加入Checkbox，命名为ifuseproxy，用于确定是否使用代理服务器;加入两个Edit组件，分别用于软件代理服务器地址、代理服务器端口；最后加入命令按钮,Caption设为“发送”。

　　现在以国信寻呼为例，它用GET请求就可以实现了,“发送”按钮的程序代码如下：

procedure TForm1.Button1Click(Sender: TObject);
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();这样就完成了一次寻呼

更正一下：
发给移动短信网关，用CMPP协议。

能实现
但不跟移动洽谈好开发出程序也没用

我也想知道你是如何实现的？可以具体一些吗？我是新手，我已经有移动和联通的端口和协议了。谢谢！

多人接受答案了。