用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 7事件的多处理机制
Allen Tao
2007-08-19
首先解释一下这个题目。在我使用Delphi 7的过程中发现，一个对象的事件只能被一个过程处理。如果多次给这个对象的事件赋给处理事件的过程，最后真正处理事件的将是最后赋值的那个过程。例如，有类TMyClass中定义了一个事件OnSomeFired，在类TClientClass中� ......
最近一阵子，总是被一个莫名其妙的bug困扰。自己写的ocx（.net2005）在delphi7中调用，明明没有释放主动释放过内存，却被连续释放了两次。结果，程序退出时就down掉了。当然，这是在debug模式下才会出现，但是exe跑的时候会莫名奇妙的down掉，而且出错往往指向ocx，我想一定和ocx的调用有关。
上网找了purify，boundscheck ......
概要
自去年CodeGear被英巴卡迪诺（Embarcadero Technologies）收购后，大家对Delphi的未来发展非常关心。近日，InfoQ中文站有幸对David I进行了独家专访，以了解更多关于Delphi的相关信息。
个人简介
David Intersimone（简称David I），英巴卡迪诺负责开发者关系的副总裁和首席宣传官（Chief Evangelist）。David负 ......
这是一个实例：
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;
声明一个二维数组的方法是� ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......
