DELPHI6抢先研究:WebService/SOAP版的Hello world

原创 2001年10月20日 01:46:00

 

SOAP 技术号称 Microsoft 之梦,也是 Borland 给 Delphi 6 定下的最大卖点, 可惜一直没能弄明白,虽然在6月14日的 DELPHI 6 上海发布会上见识过(见 《 Delphi 6 上海发布会》 ),但因为以前从未接触过,直到 DELPHI 6 即将推出前看了她的 New Feature 才知道有 SOAP 一说, 而且在6月14日之前还一直不知道所谓的 SOAP 是个什么东东, DELPHI 6 的帮助又太不详细,仅有的那两个 DEMO 又太过复杂, 而且还不是基于 HTTP 的,只好自己研究,最近这两天,总算有大突破,所以来此与大家分享:
鉴于DELPHI6自带的DEMO太复杂,我在这里写一个简单的HelloWorld,用Windows98+PWS实现:
服务端:
1.New¦WebServices¦SoapServerApplication,选ISAPI(如果你想试试 DELPHI6 新增的 Web App Debbuger,也可以选它,关于它我想另外再说);
2.SaveAll, Unit1命名为:MainWM,Project1命名为:SoapTest;
3.在MainWM中的Uses中加入:InvokeRegistry
4.自定义一个接口,及其对应类的实现:
  ISoapHello = Interface ( IInvokable )
  ['{6DF34980-6FFC-11D5-9E62-0050BABD8FE1}']  //  这个GUID你自己用 Ctrl+Shift+G 产生
    Function GetHello( aID : Integer ) : WideString; StdCall;
  End;

  TSoapHello = Class ( TInvokableClass, ISoapHello )
  Protected
    Function GetHello( aID : Integer ) : WideString; StdCall;
  End;
5.实现GetHello函数:
Function TSoapHello.GetHello( aID : Integer ) : WideString;
Begin
  If ( aID = 1 ) Then
    Result := 'Hello world!'
  Else
    Result := 'Error ID!';
End;
6.注册接口和类:
Initialization
  InvRegistry.RegisterInterface( TypeInfo( ISoapHello ) );
  InvRegistry.RegisterInvokableClass( TSoapHello );
7.编译之即可产生:SoapTest.dll

启动PWS,设置虚拟目录soap为soaptest.dll所在的目录,权限为执行
打开IE,输入URL为:http://localhost/soap/soaptest.dll/wsdl
即可看到一个表格,显示了此SOAP服务(即所谓的Web Service)所提供的WSDL
其中应该有我们自定义的接口:ISoapHello
点其链接将返回一个XML文档

客户端:
1.New¦Application
2.SaveAll,Unit1命名为ClnMain,Project1命名为SoapClient
3.New¦WebServices¦WebServicesImporter,在URL中输入:http://localhost/soap/soaptest.dll/wsdl/isoaphello,如果上面用IE看没错的话,这时确定后将产生一个单元,其中有我们在服务端定义的接口
4.SaveAll,Unit1命名为SoapIntf,再在ClnMain中Uses加入SoapIntf
5.在Form1上放上Edit, Label, Button, HTTPRIO(在Web Services页中的第一个)四个控件,设置HTTPRIO1.URL为:http://localhost/delphi6/soap/soaptest.dll/soap
6.双击Button1输入下面的程序:
Var
  p : ISoapHello;
begin
  p := HTTPRIO1 As ISoapHello;
  Label1.Caption := p.GetHello( StrToInt( Edit1.Text ) );
end;
7.编译运行,在Edit1中输入"1"按Button1,Label1将显示"Hello world!"
输入其它数字将显示"Error ID!"

SOAP so easy.
^_^

我主页上此文带图片http://mental.top263.net/mentals/tech/delphi/d6_soap1.htm

Delphi编写soap服务器与客户端程序

Delphi编写soap服务器与客户端程序使用三层结构开发客户机、服务器软件已成为c/s系统中的主流;下面是自己在开发系统中的一些体会;本文已delphi7(windows)或kylix3(linux...
  • FlyHope2005
  • FlyHope2005
  • 2004年10月19日 10:16
  • 5946

CHM 文件打不开的解决方案

首先确定是所有的chm文件都打不开呢,还是就某个chm打不开?windows自己的help文件打得开嘛?要是windows自己的help文件都打不开,试下regsvr32 /u /s itss.dll...
  • swengineer
  • swengineer
  • 2006年12月24日 11:14
  • 963

WebService体系之——HelloWorld搭建

摘要:此笔记是使用CXF实现的一个HelloWorld程序的搭建、包括在同一项目中通过模拟客户端访问发布的webservice和不同项目对webservice的服务的访问。使用的CXF是apache-...
  • chenghuaying
  • chenghuaying
  • 2014年03月03日 14:14
  • 2233

C++ Builder 6 进行 SOAP 开发(1) -- 一个 Hello world! 的例子

 C++ Builder 6 BizSnap/SOAP/WebService(1) -- 一个 Hello world! 的例子    作为 Delphi 的兄弟, C++ Builder 在很多方面...
  • Raptor
  • Raptor
  • 2002年05月08日 17:57
  • 9581

Delphi 客户端调用WebService

客户程序: 第一步:新建一个Application。 第二步:File----->New----->Other------>WebServices----->WSDLimporter 然后在Wsdl ...
  • gjtao1130
  • gjtao1130
  • 2013年09月30日 14:02
  • 8447

Delphi编写soap服务器与客户端程序

使用三层结构开发客户机、服务器软件已成为c/s系统中的主流;下面是自己在开发系统中的一些体会;本文已delphi7(windows)或kylix3(linux9)为环境描述:1、编写服务器程序首先,看...
  • chenyq2008
  • chenyq2008
  • 2008年04月19日 22:13
  • 4388

第一个java程序——hello world

实现一个java程序,主要有三个步骤:1、编写源代码,2、编译源代码,3、运行。java的源代码必须先编译,然后才能由JVM解析执行。所以我们程序员第一步的工作就是要编写java的源代码文件,java...
  • liubao616311
  • liubao616311
  • 2014年07月01日 22:42
  • 1965

安卓——简单介绍及显示helloWorld

目前想法是,以后走嵌入式偏软件那方面,偏控制层的那方面; 刚好这个学期自学了一点java2sE;目前还没学完,博客也还没更新完的; 因为跟着学长在走一个安卓项目,所以刚好有人带,所以也就开始学习安...
  • zw1996
  • zw1996
  • 2016年12月06日 00:07
  • 1459

使用Delphi调用WebServices接口的简单应用实例

 使用Delphi调用WebServices接口的简单应用实例 Delphi从6.0就开始支持Web Services的开发和应用了,本文通过使用Delph...
  • QQ56430204
  • QQ56430204
  • 2009年11月26日 09:06
  • 12831

HTTP+SOAP的使用

在使用之前,我们需要了解SOAP的数据包格式,以及数据包返回的格式,通过查看asmx文件,我们知道了他们的格式: POST /WEBSERVICES/school.asmx HTTP/1.1Host:...
  • stefli
  • stefli
  • 2004年10月25日 09:39
  • 2369
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DELPHI6抢先研究:WebService/SOAP版的Hello world
举报原因:
原因补充:

(最多只允许输入30个字)