如题。我做了一个Web Service服务端。现在客户端提交请求后,要求返回一定格式的SOAP数据包。但是服务端自动产生的返回包格式并不满足客户端的要求。请问应该如何自己手工构建一个SOAP包呢?
解决方案 »
- 无理由散分!!!
- API 熟悉的朋友请帮忙
- 谁知道单机版的KTV如何将视频显示在电视上?
- 又一个tree的问题,请大家帮帮忙啦。谢谢……
- 求算法:获取汉字拼音首字母,并且要考虑到多音字!!!
- 怎么设置,调试可以跟进component的代码里边,我已经设了路径,但F7跟不进去,那个指点指点啊!谢谢!
- 新手简单问题,怎样用API得到系统路径
- 备份服务器的硬盘,用那个软件好点(望斑主手下留情,因我比较着急)?
- 怎样知道别的程序在启动?
- 请教高手们一个ActiveX的问题
- 很奇怪的问题:程序编译没有用到数据库的一些包bpl,程序却提示缺少rtldb70.bpl
- dbgrideh导入excel提示TDBGridEhExportClass未定义
鉴于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!"