用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（注意，千万不能输�
相关文档：
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的' ......
由于需要在窗体中设定一个日期时间，出去通用型考虑，采用了TDateTimePicker控件。
因为这个控件的默认状态只能显示日期，造成使用上的不便，所以需要做如下的设定：
在控件的format属性栏里设置如下值：yyyy-mm-dd hh:mm:ss；
设定完成后的时间为当前的系统时间，不能通过弹出日历设定，只能在文本框中设定。 ......
如何在Delphi里面利用Word的VBA代码进行一些总结。
1、 生成VBA代码。Word本身具有很强的可扩展性，尤其是支持用户自定义功能，其实现
的主要方式就是通过VBA代码来实现的。在“工具->宏->Visual Basic编辑器”里面就可以看
到具体的宏代码，可以直接进行编辑。而且还可以使用录制宏的功能自动 ......
这是一个实例：
procedure TMainForm.Button1Click(Sender: TObject);
var
arr:array of array of string;
begin
setlength(arr,2,3);
arr[1,2]:='this is a test';
setlength(arr,0,0);
setlength(arr,4,5);
showmessage(arr[1,2]);
end;
声明一个二维数组的方法是� ......
招聘人数： 4人
学历要求： 不限
工作年限： 不限
薪资范围： 面议
工作地点： 北京通州九棵树
Delphi程序员四名职位要求
要求:
1. 熟练使用DELPHI(C,C++, C#等)进行开发；
2. 具有良好的程序编写习惯；
3. 扎实的基本功，结构清晰、合理；
4. 良好的执行能力，较好的完成预定任务；
5. 上进心强，能吃� ......
