soap/webservice

Question

相信大家对于delphi开发二层应用程序已经相当熟悉了。最近，我们在开发过程中想把以前开发的二层应用程序改造成为三层应用，客户端尽量保持不变，在应用服务器端采用webservice，使用soap通信。不知各位大虾有何高见？欢迎讨论。最好有例子程序，贴出来或发到）

Answer 1

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!"

Answer 2

感谢上面的回答！！！
听说可以用microsoft soap toolkit在delphi和webservice之间进行连接访问，不知谁有这方面的经验，请赐教！

Answer 3

刚才看了一篇文章，对于非DotNet程序的话，想利用DotNet的特性的话还是比较难的。是利用比较原始的方法解析的，不能够直接显示数据。我们的建议是：如果可能的话尽快切换到DotNet程序。

Answer 4

小弟我在公司就是用c#写webservice,特方便，delphi做客户端，能直接调用webservice。
后来发现webservice真TMD通用，用java做的webservice，跟C#写的一样好用。
客户端用啥都行，我们有兄弟用vb的，我就用delphi把webservice包装成DLL，他就能用上了。

Answer 5

jackhatedance(jack) 
webservice用什么做都可以的，通用性也比较好，但是性能有些损失。

Answer 6

《实战Delphi6.Kylix2.SOAP.Web Service程序设计篇》李维著

Answer 7

WS很容易做的!
问题是WS通过InetAPI的,可靠性不如直接用WinSockAPI传输的好,这个是比较郁闷的