编写一个单独的Web Service for Delphi7(步骤)_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


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

编写一个单独的Web Service for Delphi7(步骤)

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

早段时间看了一篇好文章,对其整理成以下几步

1新建一个SOAP Server Application,在提示输入接口时输入MyHello,把所有文件
保存在一个叫Ser的目录下,其中一个包含TWebModule1的文件保存为main.pas.
在MyHelloIntf.pas的IMyHello接口中加入
function Welcome(name:string):string;stdcall;

在MyHelloImpl.pas中的TMyHello实现此方法
function TMyHello.Welcome(name:string):string;
begin
result:=''''Welcome ''''+name;
end;

2新建一个标准Application,把所有文件保存在刚才哪个Ser目录下(同一目录).
文件名默认,在Unit1.pas中Uese IdHTTPWebBrokerBridge,可能还要在工程
的Search path加入<Delphi7>\Source\Indy <Delphi7>是Delphi的安装目录
3在form1上放一个lable,写上"Stand Alone Web Service"
4在TForm1的private中加入一个变量ser:TIdHTTPWebBrokerBridge;
5Uses第一步中的main.pas MyHelloIntf.pas MyHelloImpl.pas
7在OnFormCreate事件上写
ser:=TIdHTTPWebBrokerBridge.Create(self);
ser.DefaultPort:=5678;
ser.Active:=true;
ser.RegisterWebModuleClass(TWebModule1);
8运行程序,打开IE,输入http://localhost:5678/.结果大家都想到了

写Client
1关闭所有文件.
2新建一个标准Application
3运行刚才写的服务器Application
4运行wsdl import wizard,在URL中输入http://localhost:5678/wsdl/IMyHello
按Next几次
5保存所有文件到一个新目录,用Wizard产生的文件保存为IMyHello1.pas,其余默认,在Unit1.pas中uses

IMyHello1.pas,放一个TButton,写上下面的代码,运行.
procedure TForm1.Button1Click(Sender: TObject);
var
I:IMyHello;
begin
I:=GetIMyHello;
ShowMessage(I.Welcome(''''black man''''));
I:=nil;
end;

[系统软件]InstallShield Express for delphi制作安装程序定…  [系统软件](转帖) 忘记登录密码的解决方案 for XP/2003/2000
[系统软件]交叉编译sshd for IXP425 ARM  Platform by MVL 3…  [常用软件]过期踢出域名服务(Expire Domain Service)
[VB.NET程序]vb.net控件、web service简述  [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
[Delphi程序]一个超链接Image控件！（For D3,D4,D5,D6)源代码  [Delphi程序]李维：樂趣無窮，可能無限的新技術-Web Service
[Delphi程序]Five of the best tools for Delphi  [Delphi程序]一步一步用Delphi6实现Web Service

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

上一篇教程： Delphi编码标准——组件命名

下一篇教程：谈Delphi下Internet的编程技巧(一)

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

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

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

同类栏目

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

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

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

鄂公网安备 42011102001154号

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

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