使用Delphi和Web Services技术开发短信应用程序

在smsfrm单元的uses语句中包含smswebservice0101，以便改窗体中能够访问新浪发送短信的Web Service接口。

在发送按钮OnClick事件中写入以下代码：

procedure Tsms.Button1Click(Sender: TObject);

begin

Memo1.Text := GetSMSWebServiceSoapPort.sendXml(Edit1.Text,

Edit2.Text, Edit3.Text, Edit4.Text, Edit5.Text,''''Text'''');

end;

注意：Edit1、Edit2、Edit3、Edit4、Edit5分别对应界面上的运营商、用户名、密码、对方号码、消息内容；Memo1对应界面上的反馈。

第五步，使用Web Service的短信发送接口进行短信发送。编译、运行smsdemo.prj，在用户名中输入您在新浪无线上注册的手机ID、密码中输入您在新浪无线上的密码，然后再输入对方的手机号码和消息内容，单击发送按钮，稍候片刻，在反馈信息框中将会得到该Web Service的反馈信息，如果一切正常，系统会提示您短信发送成功。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!