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

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航