用Delphi 6开发Web services 2_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用Delphi 6开发Web services 2

作者：闵涛文章来源：闵涛的学习笔记点击数：839 更新时间：2009/4/23 18:43:21

调用GetWordsForCheck过程
现在,让我们回到Delphi工程的主单元然后在"使用"列表中加入导入单元(要么通过选择"文件|使用单元"菜单,要么通过显式的将它添加到"使用"列表中去).在应用程序主窗口中,我们将使用三个编辑框,如图B所示.第一个编辑框(输入框)将包含一个阿拉伯数字.第二个编辑框(输出框)将包含用英文单词表示的数字.第三个编辑框我们将在本文的后面使用,它将包含同样的数字,但是是用另外一种语言描述的.我们用一个按钮来启动事件,但我们首先需要一个更重要的部件来使这一切运转起来.打开部件调色板中的WebServices标签然后拖出第一个部件,HTTPRIO(它代表着一个可以通过HTTP访问的远程对象).

图B

HTTPRIO
你还记不记得我们用来生成导入单元所需的WSDL时使用的那个URL吗?导入单元只是标明了IWordsForCheck界面和这个界面的方法,GetWordsForCheck.它并没有指明到哪里找到这个Web服务.那正是你需要告诉给HTTPRIO组件的信息,同样是使用WSDL URL.确保你没有发生任何输入错误(最好是简单的拷贝粘贴),将WSDL URL放在HTTPRIO 组件的WSDLLocation属性栏里:
http://powerofzen.com/cgi-bin/wordsforchecks.exe/wsdl/IwordsForCheck

然后,打开服务属性的下拉列表并选择IWordsForCheckservice(唯一的选项).最后,打开端口属性的下拉列表IWordsForCheckPort(它也是唯一的选项).现在HTTPRIO已经作好准备来连接和使用Web 服务了.

真正的使用过程发生在按钮的OnClick事件处理函数里.我们首先需要从HTTPRIO组件里提取出IWordsForCheck界面(其效果就是激活远程Web服务).一旦我们获得了这个界面,我们就能调用它的方法了(在此例中,就是那个唯一的方法GetWordsForCheck).
procedure TForm1.Button1Click(Sender: TObject);
var
WordsForCheck: IWordsForCheck;
Number: Integer;
begin
WordsForCheck := (HTTPRIO1 AS IWordsForCheck); // 连接
Number := StrToInt(Edit1.Text);
Edit2.Text := WordsForCheck.GetWordsForCheck(Number);
end;

当我们在第一个编辑框中输入42然后点击按钮,将形成一个到远程Web服务的连接,IWordsForCheck界面将被提取出来(如果我们能够连接到Web服务的话),而后数字42将被转换成"FORTY TWO DOLLARS AND 00 CENTS".

BabelFish
你也可以在一个程序中使用不止一个Web服务.为了演示,让我们首先看看BabelFish翻译Web服务(基于AltaVista的BabelFish)将怎样把我们所得到的结果从英文翻译到德文.参看XMethods BabelFish Service Details来获得更详细的信息.

我将把使用WSDL URL(http://www.xmethods.net/sd/BabelFishService.wsdl)来生成导入单元并将WSDL URL写入到另一个HTTPRIO组件的WSDLLocation属性的任务留给你.不要忘了同时设定服务和端口两个属性.然后你就可以象下面一样添加最终代码:
procedure TForm1.Button1Click(Sender: TObject);
var
WordsForCheck: IWordsForCheck;
Number: Integer;
BabelFish: BabelFishPortType;
begin
WordsForCheck := (HTTPRIO1 AS IWordsForCheck); // Connect
Number := StrToIntDef(Edit1.Text,0);
Edit2.Text := WordsForCheck.GetWordsForCheck(Number);
BabelFish := (HTTPRIO2 AS BabelFishPortType); // Connect
Edit3.Text := BabelFish.BabelFish(''''en_de'''',Edit2.Text)
end;

使它变得更好
不幸的是,BabelFish服务每次只翻译文本中的一个单词.如图C所示,对于 "FORTY TWO",你将得到"VIERZIG ZWEI",它的意思是"四十"和"二"而不是"四十二".为了消除这种限制,并且同时开发出英语到荷兰语的翻译服务(BabelFish现在还没有提供这种功能),我决定编写自己的Number to Dutch Words(将数字用荷兰语表示)的Web服务.那将是我们下一次讨论的题目.同时,如果你对Delphi 6中使用Web服务有任何疑问或者你希望看到更多的例子,有空的时候请访问我的Web站点上的SOAP部分.

图C

[Delphi程序]用Delphi 6开发Web services 1  [Delphi程序]用Delphi 控制窗体的大小
[Delphi程序]Borland enters Web services fray  [Delphi程序]Delphi 6 Web Services初步评估
[Delphi程序]用Delphi开发Web Services数据库程序  [Delphi程序]Web Services平台
[Delphi程序]Web Services体系  [Delphi程序]Web Services 平台
[Delphi程序]Web Services 學習筆記（一）  [Delphi程序]用Delphi + DirectX开发简单RPG游戏

教程录入：mintao 责任编辑：mintao

上一篇教程：用Delphi 6开发Web services 1

下一篇教程：非阻塞方式下Socket读取数据的一个例子

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……