中国IT动力,最新最全的IT技术教程
最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像
首 页 | 程序开发 | 操作系统 | 软件应用 | 图形图象 | 网络应用 | 精文荟萃 | 教育认证 | 硬件维护 | 未整理篇 | 站长教程
ASP JS PHP工程 ASP.NET 网站建设 UML J2EESUN .NET VC VB VFP 网络维护 数据库 DB2 SQL2000 Oracle Mysql
服务器 Win2000 Office C DreamWeaver FireWorks Flash PhotoShop 上网宝典 CorelDraw 协议大全 网络安全 微软认证
硬件维护  CPU  主板  硬盘  内存  显卡  显示器  键盘鼠标  声卡音箱  打印机  机箱电源  BIOS  网卡  C#  Java  Delphi  vs.net2005
  当前位置:> 程序开发 > 编程语言 > Delphi > Internet
用Delphi6开发Webservices1
作者:willsound 时间:2001-10-31 10:38 出处:互联网 责编:chinaitpower
              摘要:用Delphi6开发Webservices1
直到不久以前,Delphi才拥有了开发Web服务程序(Web services)的能力.在以前的版本中,你可以选择诸如CORBA,DCOM,TCP/IP套接字等协议来开发多层的应用程序.虽然使用这些协议有一定的优点,但是它们也存在着不同的限制--而且它们都需要你在客户端表示出服务器端的对象.然而,Delphi 6允许你利用简单对象访问协议(SOAP)来使用(或者开发)Web服务程序
<a href="http://ad.cn.doubleclick.net/click;3212496;0-0;0;6118540;31-1|1;0|0|0;;%3fhttp%3a%2f%2fwww.site.com" target="_blank"><IMG SRC="http://ad.cn.doubleclick.net/810565/zd-msg.gif" WIDTH=468 HEIGHT=60 BORDER=0 ></a>


在我的两篇系列文章的下面的第一篇中,我将解释什么是Web服务并将向你展示如何在Delphi 6中使用已经存在的Web服务程序(不管它是用什么语言,在什么环境下编写的).

SOAP
SOAP提供了一条新的途径来将分散的层次连接在一起.它使用XML作为描述语言并且在许多情况下是高效的,但是目前最通用的用法之一是将它使用在Web服务的场合.你可以将一个Web服务看成是一个在Web 服务器上运行的远程对象,而这个远程对象的方法(服务)可以通过SOAP对外界开放.对Web服务及其方法的描述可以通过Web服务描述语言(WSDL)来实现,WSDL是XML的一个子集.实际上,以后我们将能够看见Delphi 6中编写的Web 服务能够自动为它们的对象界面生成正确的WSDL.

使用Web服务
浏览XMethods或者SalCentral Web services这样的中间网站你可以得到一些可用的Web服务的列表.(它们是在多种环境中编写的,比如说Delphi 6,Visual Studio.NET,Lucin SAL,等等)在本文中,我们将使用两个Web服务:Number to Words--数字转换成单词(由Tom Chamberlain在Delphi中编写而成)和BabelFish服务(来自AltaVista,XMethods用SOAPLite实现).我们的目的是要将一个数字(比方说,42)转化成单词,然后将它们从英文翻译成德文.你可以在这里下载和本文配套的例子文件.

数字到单词
Number to Words Web服务程序是用Delphi 6写成的.你可以从PowerOfZen获得WSDL描述文本.(这个网页能够生成WSDL,也就是一段列出你的需求的XML,以便生成一个引入的方法使你能够在Delphi 6中使用它).

为Web服务新建一个Delphi 6工程并将它保存为Client.dpr.现在,你必须生成一个导入部件来让IWordsForCheck界面能够运转起来.选择"文件|新建|其他"菜单,单击WebServices标签,然后选择Web服务导入图标,一个如图A所示的对话框将显示出来.在这里你粘贴上前面获得的WSDL URL.

图A


单击"生成"按钮来生成IWordsForCheck界面的导入单元:
type
IWordsForCheck = interface(IInvokable)
['{C3530212-5440-4CC4-82ED-5AA3F0984AAF}']
function GetWordsForCheck(const Value: Double): WideString; stdcall;
end;


注意IWordsForCheck界面是从IInvokable界面继承而来的(需要这样做是因为你需要能够使用这个远程的Web服务).
关闭本页
 
首页 | 投资与合作 | 服务条款 | 隐私政策 | 收藏本站 | 设为首页 | 新用户注册 | 免责声明 | 使用帮助
Copyright ©2005-2008 chinaitpower.com All rights reserved. www.chinaitpower.com 版权所有