文档介绍：踏雪无痕
Delphi WebService 的编写、调试、发布(IIS)、调用
分类: Delphi 2011-11-08 15:47 496人阅读评论(1) 收藏举报
Delphi WebService 的编写、调试、发布(IIS)、调用
下面说明如何编写用于IIS发布的ISAPI类型的WebService。
1、 New|Other|WebServices|SOAP Server Application|这里先选择建立Web App Debugger
    类型的WebService,因为这种类型的WebService便于调试,当我们调试好它,准备发布时再将
    此类型转换为ISAPI类型。
2、选择Web App Debugger后,随便输入一个ClassName,这里我们输入“Test”
3、随后Delphi会询问你是否建立接口单元,选择是,然后输入接口的名字,我们输入Main,
   Delphi将自动建立接口单元(名字为你输入的接口名+Intf结束,即MainIntf)和实现接口的单
   元(名字为你输入的接口名+Impl,即MainImpl)。到此一个空的WebService已建立好。
4、接下来我们将编写供别人调用的WebService函数。在此我们编写一个简单的例子。打开接口单元
(MainIntf),在Type后,接口声明后添加接口函数
“function GetMsg(AMsg: string): String; stdcall;”,函数后面必须加上“stdcall”。
   如图:
5、接口函数的声明已经完成,下面就是要实现这个函数了。打开接口实现单元(MainImpl),
   在public中写上该函数的声明,在implement后写该函数的实现。如图:
6、到此,WebService已经撰写完毕。接下来是调试。在我们新建的时候,Delphi已经为我们
   建立了一个Unit1和其窗体,在Unit1中引用接口单元(MainImpl),然后在窗体中加一个
   按钮,在按钮的单击事件中调用刚才写的WebService函数就可以调试了,代码如图:
1
按钮,在按钮的单击事件中调用刚才写的WebService函数就可以调试了,代码如图:
7、调试成功后就可以转类型了,将Web App Debugger类型转换为ISAPI类型其实很简单,我们
   先重新建一个ISAPI类型的WebService项目,依次选择New|Other|WebServices|
   SOAP Server Application|ISPA/…,提示是否创建接口时选择“是”,然后输入和刚才一
   样的接口名,接着保存好,然后将调试成功的Web App Debugger类型的WebService项目中的
   接口单元和接口实现单元复制替换掉刚刚创建的ISAPI类型项目中的接口单元和接口实现单元,
   然后打开ISAPI类型的WebService,编译生成dll。至此ISAPI类型的WebService建立成功。
8、将ISAPI类型的WebService发布到IIS上。在IIS中新建站点,新建时将执行权限设置成“脚本
   和可执行文件”,将WebService整个项目拷贝到