Ado.net DataSet 与delphi的一些技巧（web service）

在微软中国找到了一个官方的说法------不建议将DataSet直接作为返回值传送，因为里面含有大量复杂的schema以及更改等信息，大部分非.NET语言在解析上有困难。建议使用DataSet.WriteXML方法将简化后的XML版本作为一个WideString回传。经过试验，已经在Delphi下轻松通过，Delphi中还需要使用XML Mapper工具事先生成Transfomation(XTR)文件。

来自: xujh, 时间: 2004-07-04 11:30:02, ID: 2694891

Delphi7客户端代码 ----------------------------------------------------------------------- unit WSTestMain; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient, Grids, DBGrids,  DB, DBClient, DBTables, Provider, xmldom, Xmlxform,XMLIntf,XMLDoc,SOAPConst; type  TForm1 = class(TForm)    HTTPRIO1: THTTPRIO;    Button1: TButton;    Memo1: TMemo;    XMLTransformProvider1: TXMLTransformProvider;    ClientDataSet1: TClientDataSet;    DataSource1: TDataSource;    DBGrid1: TDBGrid;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation uses WSTestDefine; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var  A:Service1Soap;  B:WideString;  XMLDoc: IXMLDocument; begin  A := HTTPRIO1 as Service1Soap;  B := A.GetPersonTable;  Memo1.Lines.Add( B );  ClientDataset1.Active := FALSE;  XMLDoc := NewXMLDocument;  XMLDoc.Encoding := SUTF8;  XMLDoc.LoadFromXML(B);  XMLTransformProvider1.TransformRead.SourceXmlDocument := XMLDoc.GetDOMDocument;  ClientDataset1.Active := TRUE; end; end. -----------------------------------------------------------------

来自: xujh, 时间: 2004-07-04 11:30:28, ID: 2694892

.NET WebService代码 --------------------------------------------------------------------------------------- using System; using System.Collections; using System.ComponentModel; using System.Data; using System.Diagnostics; using System.Web; using System.Web.Services; using System.Data.OracleClient; using System.IO; namespace WS0622 { /// <summary> /// Service1 的摘要说明。 /// </summary> public class Service1 : System.Web.Services.WebService {  public Service1()  {   //CODEGEN: 该调用是 ASP.NET Web 服务设计器所必需的   InitializeComponent();  }  #region 组件设计器生成的代码    //Web 服务设计器所必需的  private IContainer components = null;      /// <summary>  /// 设计器支持所需的方法 - 不要使用代码编辑器修改  /// 此方法的内容。  /// </summary>  private void InitializeComponent()  {  }  /// <summary>  /// 清理所有正在使用的资源。  /// </summary>  protected override void Dispose( bool disposing )  {   if(disposing && components != null)   {    components.Dispose();   }   base.Dispose(disposing);    }    #endregion  // WEB 服务示例  // HelloWorld() 示例服务返回字符串 Hello World  // 若要生成，请取消注释下列行，然后保存并生成项目  // 若要测试此 Web 服务，请按 F5 键  [Serializable]   public class Person  {   public Person()   {   }   public Person(string name,string gender)   {    this.Name=name;    this.Gender=gender;   }   public string Name="";   public string Gender="";  }  [WebMethod(CacheDuration=60)]  public Person[] GetPersons()  {   Person Alice=new Person("Alice","Female");   Person Bob=new Person("Bob","Male");   Person Chris=new Person("Chris","Female");   Person Dennis=new Person("Dennis","Male");   return new Person[]{Alice,Bob,Chris,Dennis};  }  [WebMethod]  public string GetPersonTable()  {   DataTable table=new DataTable("Person");     table.Columns.Add("Name");   table.Columns.Add("Gender");   table.Rows.Add(new string[2]{"Alice","Female"});   table.Rows.Add(new string[2]{"Bob","Male"});   table.Rows.Add(new string[2]{"Chris","Female"});   table.Rows.Add(new string[2]{"Dennis","Male"});   table.Rows.Add(new string[2]{"Eric","Male"});   DataSet dataset=new DataSet("PersonTable");   dataset.Tables.Add(table);   System.Text.StringBuilder strbuilder=new System.Text.StringBuilder();   StringWriter writer=new StringWriter(strbuilder);   dataset.WriteXml(writer,System.Data.XmlWriteMode.IgnoreSchema);   return strbuilder.ToString();  } } }