论Delphi和DotNet的WebService实现技术

Tag: Delphi .net WebService 最近公司有个系统升级，老系统为delphi所编写；老系统为传统的C/S两层结构，有一个瓶颈就是我们的客户端经常需要从数据库刷新数据，而且这些数据都是一样的，这极大地影响了系统效率，在系统升级时我们考虑使用WebService解决这一瓶颈；初步想法是需要刷新数据时由WebService中间层去数据库提取数据，所有的客户端都到中间层拿刷新后的数据，这样就避免了所有的客户端都直接去操作数据库提取同样的数据。但是用什么平台实现WebService中间层呢？根据公司的技术特点，那么我们初步定为考虑.net和delphi自己做中间层。用.net作为中间层实现，优势很明显：1．微软已经把WebService框架搭建好，开发非常简单；2．我们的服务器为微软平台，使用微软的.net技术应当能够提供很好的效率；3．.net平台提供了现成的全局Session对象，很容易实现我们的需求。劣势为：1． 系统采用两套开发平台，接口不统一；比如说.net的数据集DataSet在delphi里怎么用？2． 两套开发平台增加程序员学习难度和维护难度；使用delphi作为中间层实现，我们预想好处为：1． 中间层和客户端都为delphi实现，提供较好的兼容性，可能可以直接传递数据集；2． 统一的开发平台，易于学习和维护；劣势为：1． 我们使用的Delphi版本为6.0，显然它不是作为分布式开发的主流平台；2． 如何控制全局数据集估计没有.net方便；3． 效率不可预见；我查阅了很多文章，有如下结论：1． Delphi作为中间层实现的话，除了能够传递简单类型以外；负载类型只能支持继承自TRemoteTable的子孙类，以及这些子孙类组成的动态数组；这样我所预想的直接传递数据集的想法落空；只能在中间层得到数据集后，变为动态数组传递到客户端，客户端解析后还原为数据集，效率太低；2． .net平台DataSet可以化为xml数据流传递为delphi客户端，delphi客户端可以根据事先定义好的解析文件，将此xml数据流装载到TClientDataSet中；就这两点就足以使我选择了.net作为中间层实现；其中的技术关键点就是中间层的DataSet和Delphi的ClientDataSet的转换，下面给出具体实现方法：.net端的示例代码如下：DataSet ds = SqlHelper.ExecuteDataset(conStr,CommandType.Text,sqlText);//得到DataSetSystem.Text.StringBuilder strbuilder=new System.Text.StringBuilder();System.IO.StringWriter writer=new System.IO.StringWriter(strbuilder);ds.WriteXml(writer,System.Data.XmlWriteMode.IgnoreSchema);//将DataSet转换为xml数据流，忽略一些dataset特有的动作结构等return strbuilder.ToString();客户端收到的数据流入下所示： <车辆编码>00001 <实际标识>adah <工作状态>8 <所属分站编码>001 <插入时间>2005-08-23T10:15:28.6170000+08:00 <车辆编码>00002 <实际标识>b <工作状态>7 <所属分站编码>002 <插入时间>2005-08-23T11:11:56.7570000+08:00 <车辆编码>00003 <实际标识>c <工作状态>64 <所属分站编码>003 <插入时间>2005-08-23T11:15:52.3070000+08:00注意，我们需要给这个xml文件流添加第一行。将这个xml文件流保存到文件data.xml中；用自带的工具XmlMapper打开data.xml，生成transfromation结构，保存到Todp.xtr文件中；Delphi端演示代码var xmlStr: string; st: TSTringStream; XMLDoc:IXMLDocument; begin xmlStr:= GetService1Soap.GetAmbulance; xmlStr:= '' + #10 + xmlStr; st:= TStringStream.Create(xmlStr); ClientDataset1.Active := FALSE; //SOAPResponse.Position := 0; XMLDoc := NewXMLDocument; XMLDoc.Encoding := 'GB2312'; //SOAPResponse.Position := 0; XMLDoc.LoadFromStream(st); XMLTransformProvider1.TransformRead.SourceXmlDocument := XMLDoc.GetDOMDocument; ClientDataset1.Active := TRUE;其中XMLTransformProvider1的TransformRead的TransformationFile属性选择我们生成的Todp.xtr，ClientDataSet1的Providor属性选择XMLTransformProvider1；这样就将数据倒入道ClientDataSet中。