用Delphi和Web Services开发短信应用程序
摘
要：本文通过使用Delphi和WebServices技术开发短信应用程序的实例详细的介绍了如何在Delphi中开发基于WebServices技术
的应用程序。
关键字：Delphi；WebService；短信应用程序开发
一提起基于WebServices技术的应用程序开发，一般人首先想到的开发工具是VS.net，其实作为快速应用程序开发工具
(RAD)的老大，Delphi从6.0就开始支持WebServices的开发和应用了，本文通过使用Delphi7.0调用新浪发送短信的
WebService进行短信应用程序开发这一实例详细的介绍在Delphi中如何开发基于WebServices的应用系统。
第一
步，准备工作，了解新浪短信WebService。新浪发送短信的WebService地址是http://smsinter.sina.com.cn
/ws/smswebservice0101.wsdl，该WebService就只有一个方法，即
stringsendXML(carrier,userid,password,mobilenumber,content,msgtype)。各个参数
全部为string类型，其含义基本如下（可能不正确）。
Carrier：运营商名称，好像可以随便输，建议输入“Sina”，如果
输入其他的值，消息发送的特别慢；
Userid：您在新浪无线上注册的手机ID，如果您没有在http://sms.sina.com.cn
上注册您的手机，你是无法使用本WebService发送短信的；
Password：您在新浪无线上注册手机时所使用的密码；
Mobilenumber：对方的手机号码；
Content：发送短消息的内容；
Msgtype：发送短消息的类型，我估计支持
彩信，不过我不知道怎么使用，似乎随便输什么都可以，我使用的是“Text”。
资费标准请参看新浪无线网站上的相关说明，应该是一条一角钱，不过也或者是一条两角线，具体不太清楚。由于其后台可能使用了消息队列机制，
在繁忙的时候，可能会有较长时间的延迟。
第二步，先
建立一个空白的应用程序。运行Delphi7，打开[File]->[New]->[Application]菜单，Delphi自动生成一
个默认的工程。将默认的窗体Form1改为sms，然后将改工程保存为smsdemo.prj。如下图所示：
图1
http://www.mscto.com
第三步，引入WebService。，打开[File]->[New]->[Other]菜单，在弹出的窗口中选择
WebServicesTab页面，然后选择其中的WSDLimporter选项，单击OK按钮弹出WSDLimporterWizard窗口，如图2所
示。在其上的LocationofWSDLFileorURL中输入：http://smsinter.sina.com.cn/ws
/smswebservice0101.wsdl（注意，千万不能输�
相关文档：
由于需要在窗体中设定一个日期时间，出去通用型考虑，采用了TDateTimePicker控件。
因为这个控件的默认状态只能显示日期，造成使用上的不便，所以需要做如下的设定：
在控件的format属性栏里设置如下值：yyyy-mm-dd hh:mm:ss；
设定完成后的时间为当前的系统时间，不能通过弹出日历设定，只能在文本框中设定。 ......
WinExec主要运行EXE文件。如：
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。
首先必须引用shellapi.pas单元：uses ShellAPI;
1.标准用法
ShellExecute函数原型及参数含义如下：
function ShellExecute(hWnd: HWND; Operati ......
TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。
一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：
1、count，节点个数。
2、item[index] ,通过index得到节点。
二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：
Add ......
