delphi2010\delphi XE7 开发及调试WebService 实例 / 开普饭

使用delphi已经10多年了，一直搞桌面程序开发，对Webservice一直很陌生，近来因工作需要，学习delphi开发WebService，担心遗忘，作此笔记。特别感谢中塑在线技术总监大犇

（2017.5.24编辑，添加数据库访问示例XE7）
一、delphi开发WebService

1、打开delphi，选择New--other--WebService，在右侧选择 SOAP Server Application，点击OK

2、上一步点击OK后，会出现一个提示窗口，这里选择ISAPI 动态链接库，点击OK进入下一步

3、此时会提示一个确认窗口，询问是否为SOAP模块创建接口，这样要选择YES，delphi会为您自动创建一个接口，否则自己动手写会很麻烦

4、点击YES后，delphi会提示你输入接口服务名称，这个名称在后面就是接口名和实现此接口的类名，这里我们键入MyTest，其他选项不要动，点击 OK

5、点OK后，delphi会自动创建两个单元，一个是MyTestIntf接口单元，一个是MyTestImpl接口实现单元

6、在MyTestIntf接口单元里面，接口声明后面写入你的接口函数，这个函数就是后面给别人调用实现一定功能的函数。
注意：函数声明后面一定要加上stdcall约束参数传入方式，否则其他语言可能无法调用此接口函数

7、切换到MyTestImpl接口实现单元，发现delphi已经为我们创建好了接口实现类TMyTest，在类的声明里面写上刚才的接口函数。当然也可以写入其他函数供你的接口函数内部调用，这里我重新构造了类的Create函数及析构函数

8、保存项目，编译生成DLL文件，此时delphi编写WebService 就完成了，如此简单

9、2017年5月24日编辑，添加数据库访问功能示例（Delphi XE7下）
a、切换到webmodule单元，添加几个控件用于访问后台数据库。连接数据库，将各个组建关联起来，在query中添加sql代码，查询一些数据。

b、在类TWebModule1的public域添加一个方法GetXMLData，并实现该方法返回ClientDataset的XML数据（将query1查询到的数据通过ClientDataset转换为XML）

c、在接口单元添加一个方法，和上面第6步操作一样

d、在接口函数实现单元引用WebModuleUnit1单元，实现GetXMLData方法。在这里将TWebModule1类实例化，调用其访问数据库的方法

e、新建一个VCL项目，添加一个按钮和一个memo，在button click事件添加代码，调用接口函数

f、运行效果

注：

特别说明，在这个例子中，我将数据访问单元TWebModule类的GetXMLData方法和接口函数的GetXMLData方法弄重名了，这样容易混淆。外部客户端调用GetXMLData方法是接口的方法，不是后台数据库访问单元TWebModule的GetXMLData方法，此方法由TEchoTest类的对象在后台调用。

顺序应该是这样的：客户端通过http地址获取接口IEchoTest，后台WebService实例化类TEchoTest，客户端调用接口函数GetXMLData，此方法在TEchoTest类中被实现（TEchoTest类GetXMLData方法），在此方法中实例化TWebModule类，并调用其GetXMLData方法返回数据。
二、delphi调试WebService

1、打开IIS，新建网站，至于如何建立网站就不说了，给网站起名，选择物理路径等，把刚才编译好的DLL文件放入网站的物理目录里面