通过CrossTalk在Delphi中使用ADO.Net（1）

atozed这个公司，做了个新项目（indy也是他们搞的），企图在Native与.Net中架起一个桥梁，让Delphi可以使用.Net的元件，地址在：

http://www.atozed.com/CrossTalk/index.EN.aspx

因为ADO2.8后，MS不再维护了，全部转到了ADO.Net，我也一直想使用其新的功能，但是项目一直还是抛不掉Delphi环境，这个CrossTalk看起来是我想要的。

下载后，开启Delphi XE，新建一个专案，保存，汇入System.Data.dll里面的如下一些元件：

按“Save”后，它在专案目录下，自动生成了CTSystem_Data.pas文件。

赶紧写段代码来测试一下：

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics,
   Controls, Forms,  Dialogs,StdCtrls, DB, ADODB, CTmscorlib,CTSystem_Data;
 procedure TForm4.Button1Click(Sender: TObject);
 var
   vConnection:CTSystem_Data.SqlConnection;
   vCommand:SQLCommand;
   vReader:SqlDataReader;
   vTable:CTSystem_Data.DataTable;
   vDataSet:DataSet;
   vAdapter:CTSystem_Data.SqlDataAdapter;
   vFormatter:BinaryFormatter;
 begin
   vConnection:=SqlConnection.Create('Password=xxx;User ID=sa;Initial Catalog=xxx;Data Source=.');
   vConnection.Open;
   vCommand:=vConnection.CreateCommand;
   vCommand.CommandText:='select UserOID,UserAID from Users';
   vReader:=vCommand.ExecuteReader;
   vReader.Read;
   ShowMessage(vReader.GetString(1));

哈哈，成功。

目前发现两个问题：

（1）、很多同名函数，即使加上overload也编译不过。如：

 function CreateCommand: CTSystem_Data.SqlCommand; overload;
 function CreateCommand: TCTObject {Class: System.Data.Common.DbCommand}; overload;

但是到c#中查看SqlConnection的定义，里面并没有两个CreateCommand，而是有一个叫CreateDbCommand的：

 public SqlCommand CreateCommand();
 protected override DbCommand CreateDbCommand();

但因为SqlConnection是从DbConnection继承来的，而DbConnection确实有个DbCommand CreateDbCommand();所以，看起来是自动生成的元件把祖先的方法也放到了自己这里，可能是CrossTalk自动生成代码部分的bug，或者是其功能的局限性，因为包裹元件都是从TCTObject继承，包裹元件之间没有继承关系。

（2）、因为所有的.Net元件都被包裹成TCTObject的后代，会破坏原来元件之间的父子关系。如：

 Stream = class(TCTObject)
 ...
 end;
 FileStream = class(TCTObject)
 ...
 end;
 BinaryFormatter = class(TCTObject)
 public
     procedure Serialize(const aSerializationStream: CTmscorlib.Stream; const aGraph: TCTObject); overload;
 ...
 end;

下面的代码，vFormatter.Serialize调用的地方编译不过：

 procedure TForm4.Button1Click(Sender: TObject);
 var
   vConnection:CTSystem_Data.SqlConnection;
   vCommand:SQLCommand;
   vReader:SqlDataReader;
   vTable:CTSystem_Data.DataTable;
   vDataSet:DataSet;
   vAdapter:CTSystem_Data.SqlDataAdapter;
   vFormatter:BinaryFormatter;
   vStream:FileStream;
 begin
   vConnection:=SqlConnection.Create('Password=xxx;User ID=sa;Initial Catalog=xxx;Data Source=.');
   vConnection.Open;
   vAdapter:=SqlDataAdapter.Create('select UserOID,UserAID from Users',vConnection);
   vDataSet:=DataSet.Create();
   vAdapter.Fill(vDataSet);
   ShowMessage(InttoStr(vDataSet.Tables.Count));
   ShowMessage(vDataSet.Tables.Item[0].TableName);
   vFormatter:=BinaryFormatter.Create();
   vStream:=FileStream.Create('D:\ADO.Net.dat',FileMode.CreateNew);
   vFormatter.Serialize(vStream,vDataSet.Tables.Item[0]);
   vStream.Position:=0;
   vStream.Flush;
 end;

[DCC Error] Unit4.pas(53): E2250 There is no overloaded version of 'Serialize' that can be called with these arguments
把定义改为FileStream = class(Stream)，编译过了，但执行到这句：
vDataSet.Tables.Item[0].TableName
出现这个错误：
Project Project6.exe raised exception class ECTdotNETException with message 'AmbiguousMatchException : 发现不明确的匹配。'.