Web Service 应用简例
在Delphi 7中建立的、运行在IIS中的Web Service应用程序。
1 建立服务端
1.1 打开Delphi 7，File->New->Other->WebServices->SOAP Server Application->OK;
1.2 在弹出的对话框中选择ISAPI那项->OK;
1.3 向导会询问“Create Interface for SOAP moudule?”->Yes->在弹出的“Add New WebService”对话框的“Service name”中录入你想要的名称，在此录入“IHelp”;
1.4 找到IHelpIntf.pas，在接口声明体内增加方法：
function sayHello(name:String):String;stdcall;
1.5 找到IHelpImpl.pas，在类声明体内增加方法：
function sayHello(name:String):String;stdcall;
1.6 在IHelpImpl.pas中实现sayHello的方法
function TIHello.sayHello(name: String): String; stdcall;
begin
Result := '您好 '+name+'这是最简单的WebService程序';
end;
1.7 编译成Hello.dll。
2 部署Hello.dll服务到IIS中
2.1 确保系统中安装了IIS，并且网站的执行权限设为“脚本和可执行文件”；
2.2 将Hello.dll拷贝到某个网站目录下，在此拷贝到默认网站的根目录下；
2.3 在IE地址栏输入http://localhost/Hello.dll/，应该可以看到Hello-Service Info Page，点击IIHelo后面的WSDL链接，会显示一堆的XML内容，复制地址栏中的地址，在此是“http://localhost/Hello.dll/wsdl/IIHello”，后面编写客户端时用得到此地址。
3 编写客户端
3.1 打开Delphi 7，建立普通的应用程序，在Form上拖放一个文本框和一个按钮；
3.2 File->New->Other->WebServices->WSDL Importer->OK;
3.3 在打开的“WSDL Import Wizard”对话框的Location of WSDL File or URL”中录入刚才复制的地址“http://localhost/Hello.dll/wsdl/IIHello”->Next->Finish；
3.4 在Form中引用此单元，然后在Form的按钮的onclick中写入以下代码：
edit1.Text := GetIIHello(false,'',nil).sayHello(edit1.Text);
3.5 运行此程序，应该能成功。
|
客户专线：400-641-8864 / 153-2383-7083 |
在线QQ：987837344