• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

使用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文件放入网站的物理目录里面

 

2、将新建的网站目录浏览打开




3、在网站的功能选项页,选择可执行程序映射,选择刚才的DLL文件,并在请求限制里面选择[执行],这个DLL就是IIS要调用执行的DLL






4、选择  应用程序池,把里面的 32位兼容打开(我这个版本编译出来的是32位的)和托管管道模式选择为  Classic




5、在浏览器中键入网址 http://127.0.0.1:你的网站端口,回车打开网站,此时浏览器会转到你的网站物理目录下,显示出里面的所有文件,其中有一个就是我们需要的DLL




6、点击那个DLL文件,会出现下面这个界面





7、点击WSDL,会出现如下界面。这是一个XML文档,描述WSDL的细节,浏览器地址栏中的地址是我们需要的,复制下来


 

8、返回delphi,新建一个VCL项目。接着选择New--other--WebService,选择WSDL importer,点击OK




9、出现一个提示窗口,键入第7步得到的WSDL网址,如果WebService不在本机,注意IP地址要修改




10、点击NEXT ---NEXT--OK,delphi会自动引入一个单元,这个单元就是WebService的接口单元,里面会自动生成一个Get开头方法,用来获取接口。
在VCL单元引用这个单元,声明一个变量,变量的类型就是接口名称  

var  obj:IMyTest,

obj:= getXXXXX();

 obj.HelloWord(\'哈哈哈\');

至此delphi编写WebService及调用结束。

注:第7步得到的WSDL地址很重要,如果点击WSDL出现不了XML文档,说明有问题,这个WSDL地址是不可用的,很可能的原因是网站没配置好。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
signal processing--matlab--6(综合运算)发布时间:2022-07-18
下一篇:
用MATLAB对信号做频谱分析 - 逸阳发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap