第四步，调用Web Service的短信发送接口。在sms窗体中，依次增加四个TEdit控件，一个TButton控件，一个TMemo控件和五个TLabel控件，按图3进行排列和设置。
图3
在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的反馈信息，如果一切正常，系统会提示您短信发送成功。
小结
从上面的例子我们可以看到，只要理解了Web Services的概念，在Delphi的帮助下，开发基于Web Services的应用程序将不是一件很困难的事情。Web Services最适合用于开发跨平台和跨网络进行通信（因为使用http协议为防火墙所允许）的程序，可以跨越异质架构，联系客户、供应商、企业伙伴以及企业内部之信息系统，是电子商务B2B、企业信息等集成的最佳解决方案。各个公司只要把商务逻辑“暴露”出来，成为Web Service，就可以让任何指定的合作伙伴调用这些商务逻辑，而不管他们的系统在什么平台上运行，使用什么开发工具。Web Services是目前很热门也是正在迅速发展着的一项技术，本文只是作者在学习中的一点小体会，肯定有理解不深刻甚或错误的地方，欢迎大家予以指正。
|
