2012-06-27评论
原始帖子有一些有用的代码，但并没有真正说明如何从客户端应用程序的一个请求中从DataSnap服务器返回多个数据集。要查看如何执行此操作的示例，请查看页面底部标记为正确的答案。
2011-08-31评论
感谢Gunny，我再次看了一眼。令人烦恼的问题是我自己的错误，现在已修复。通过在每个数据库查询之间创建/销毁TSQLQuery组件，我可以在单个客户端到服务器请求中的DataSnap服务器上执行多个SQL语句。
当我在尝试解决一个众所周知的问题时，我在我的存储过程中离开调试代码行时出现了问题，该问题阻止您在调用output后访问TSQLStoredProc.Open参数（{{3 }}）。
即使我的问题已解决，原始问题仍然存在 - 您无法调用Open方法来提取数据然后访问output参数，您可以' t访问从单个存储过程返回的多个数据集。
再次感谢Gunny的建议。
我试图在一个请求中从DataSnap服务器返回两个不同的数据集。两者都来自同一个数据库。一个是单个字段/单个记录值，另一个是多字段/多记录数据集。
DataSnap服务器具有以下方法：
function TDSSvrMethods.GetData(const SQL: string; var Params: OleVariant; var Key: string): OleVariant;
var qry: TSQLQuery; cds: TClientDataSet;
begin
// create TSQLQuery & TClientDataSet
// Link the two components via cds.SetProvider(qry);
// run first query, set 'Key' to the result <-- this works
qry.Close;
// run second query <-- I see this hit the database
// return dataset via 'Result := cds.Data;'
// destory TSQLQuery & TClientDataSet
end;
这不起作用。即使我可以看到两个单独的请求都访问数据库，但我无法访问第二个结果集。当我尝试时，（第二次）返回第一个结果集而不是第二个结果集。
在创建/销毁查询组件（每个客户端到服务器请求）之前，所有后续客户端到服务器请求都将返回第一个数据集。很沮丧。创建/销毁查询组件修复了该问题，但现在我在一个客户端执行多个查询到服务器请求，问题已经返回 - 即使执行新查询，也会返回第一个数据集。
我尝试了几种方法：
ONE ：为第一个请求动态创建TSQLQuery组件，提取db值，销毁TSQLQuery，创建新的TSQLQuery并拉出第二个数据集。这没有用。我可以使用 SQL Server Profiler 并观察两个命令命中数据库，但第一个结果集显示为两个查询的数据集。
TWO ：与＃1相同，但使用TSQLStoredProcedure代替TSQLQuery。结果是一样的。
THREE ：使用TSQLStoredProcedure并从同一存储过程中返回两个数据集，如下所示：
create procedure sp_test_two_datasets
as
select 'dataset1' as [firstdataset]
select * from sometable -- 2nd dataset
go
由于TSQLStoredProcedure有NextRecordSet，我原本希望访问这两个数据集，但没有快乐。当我致电NextRecordSet时，会返回nil。
四：使用数据集和TSQLStoredProcedure参数，在一次调用中将两个值返回output：
create procedure sp_another_test
@singlevalue varchar(255) output
as
select * from sometable
go
Delphi代码如下所示：
var sp: TSQLStoredProc; cds: TClientDataSet;
...
cds.SetProvider(sp);
...
sp.CommandText := 'sp_another_test :value output';
sp.Params.ParamByName('value').Value := Key; // in/out method parameter from above
sp.Open;
Key := sp.Params.ParamByName('value').Value; // single string value
Result := cds.Data; // dataset
...
我检查sp.Params并且有一个名为value的输入/输出参数。当还返回数据集时，我无法访问output参数。这是一个已知的错误（多年来一直存在）：http://qc.embarcadero.com/wc/qcmain.aspx?d=90211
结论：
由于DataSnap服务器与所有连接客户端共享其主TSQLConnection，并且因为TSQLQuery（或TSQLStoredProc）和TClientDataSet组件都已创建/释放对于每个请求，唯一可以保留到先前数据集并将其返回到TSQLQuery和TSQLStoredProc组件的是TSQLConnection组件。我在关闭和释放TSQLConnection.CloseDataSets（或TSQLQuery）组件之前尝试调用TStoredProc，但这也无济于事。
或许仔细看看TSQLConnection会有所帮助。以下是它在.dfm文件中的显示方式：
object sqlcon: TSQLConnection
DriverName = 'MSSQL'
GetDriverFunc = 'getSQLDriverMSSQL'
LibraryName = 'dbxmss.dll'
LoginPrompt = False
Params.Strings = (
'SchemaOverride=%.dbo'
'DriverUnit=DBXMSSQL'
'DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver150.' +
'bpl'
'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
'nd.Data.DbxCommonDriver,Version=15.0.0.0,Culture=neutral,PublicK' +
'eyToken=91d62ebb5b0d1b1b'
'MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDr' +
'iver150.bpl'
'MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFact' +
'ory,Borland.Data.DbxMSSQLDriver,Version=15.0.0.0,Culture=neutral' +
',PublicKeyToken=91d62ebb5b0d1b1b'
'GetDriverFunc=getSQLDriverMSSQL'
'LibraryName=dbxmss.dll'
'VendorLib=sqlncli10.dll'
'HostName=localhost'
'Database=Database Name'
'MaxBlobSize=-1'
'LocaleCode=0000'
'IsolationLevel=ReadCommitted'
'OSAuthentication=False'
'PrepareSQL=True'
'User_Name=user'
'Password=password'
'BlobSize=-1'
'ErrorResourceFile='
'OS Authentication=False'
'Prepare SQL=False')
VendorLib = 'sqlncli10.dll'
Left = 352
Top = 120
end
在运行时，我做了一些事情，因此我不必为DBX驱动程序部署.INI文件。首先，让我注册我自己的INI-less驱动程序的单元：
unit DBXRegDB;
interface
implementation
uses
DBXCommon, DBXDynalinkNative;
type
TDBXInternalDriver = class(TDBXDynalinkDriverNative)
public
constructor Create(DriverDef: TDBXDriverDef); override;
end;
TDBXInternalProperties = class(TDBXProperties)
private
public
constructor Create(DBXContext: TDBXContext); override;
end;
{ TDBXInternalDriver }
constructor TDBXInternalDriver.Create(DriverDef: TDBXDriverDef);
begin
inherited Create(DriverDef, TDBXDynalinkDriverLoader);
InitDriverProperties(TDBXInternalProperties.Create(DriverDef.FDBXContext));
end;
{ TDBXInternalProperties }
constructor TDBXInternalProperties.Create(DBXContext: TDBXContext);
begin
inherited Create(DBXContext);
Values[TDBXPropertyNames.SchemaOverride] := '%.dbo';
Values[TDBXPropertyNames.DriverUnit] := 'DBXMSSQL';
Values[TDBXPropertyNames.DriverPackageLoader] := 'TDBXDynalinkDriverLoader,DBXCommonDriver150.bpl';
Values[TDBXPropertyNames.DriverAssemblyLoader] := 'Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=15.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b';
Values[TDBXPropertyNames.MetaDataPackageLoader] := 'TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDriver150.bpl';
Values[TDBXPropertyNames.MetaDataAssemblyLoader] := 'Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxMSSQLDriver,Version=15.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b';
Values[TDBXPropertyNames.GetDriverFunc] := 'getSQLDriverMSSQL';
Values[TDBXPropertyNames.LibraryName] := 'dbxmss.dll';
Values[TDBXPropertyNames.VendorLib] := 'sqlncli10.dll';
Values[TDBXPropertyNames.HostName] := 'ServerName';
Values[TDBXPropertyNames.Database] := 'Database Name';
Values[TDBXPropertyNames.MaxBlobSize] := '-1';
Values['LocaleCode'] := '0000';
Values[TDBXPropertyNames.IsolationLevel] := 'ReadCommitted';
Values['OSAuthentication'] := 'False';
Values['PrepareSQL'] := 'True';
Values[TDBXPropertyNames.UserName] := 'user';
Values[TDBXPropertyNames.Password] := 'password';
Values['BlobSize'] := '-1';
Values[TDBXPropertyNames.ErrorResourceFile] := '';
Values['OS Authentication'] := 'False';
Values['Prepare SQL'] := 'True';
Values[TDBXPropertyNames.ConnectTimeout] := '30';
// Not adding connection pooling to the default driver parameters
end;
var
InternalConnectionFactory: TDBXMemoryConnectionFactory;
initialization
TDBXDriverRegistry.RegisterDriverClass('MSSQL_NoINI', TDBXInternalDriver);
InternalConnectionFactory := TDBXMemoryConnectionFactory.Create;
InternalConnectionFactory.Open;
TDBXConnectionFactory.SetConnectionFactory(InternalConnectionFactory);
end.
上述方法包含在项目（.dpr文件）中并自行注册驱动程序。下一个方法利用它在运行时设置TSQLConnection（sqlcon）（当DataSnap服务器启动时）：
procedure SetupConnection(const hostname, port, dbname, username, password, maxcon: string);
begin
if sqlcon.Connected then
Exit;
// Our custom driver -- does not use DBXDrivers.ini
sqlcon.Params.Clear;
sqlcon.DriverName := 'MSSQL_NoINI';
sqlcon.VendorLib := sqlcon.Params.Values[TDBXPropertyNames.VendorLib];
sqlcon.LibraryName := sqlcon.Params.Values[TDBXPropertyNames.LibraryName];
sqlcon.GetDriverFunc := sqlcon.Params.Values[TDBXPropertyNames.GetDriverFunc];
sqlcon.Params.Values[TDBXPropertyNames.HostName] := hostname;
sqlcon.Params.Values[TDBXPropertyNames.Port] := port;
sqlcon.Params.Values[TDBXPropertyNames.Database] := dbname;
sqlcon.Params.Values[TDBXPropertyNames.UserName] := username;
sqlcon.Params.Values[TDBXPropertyNames.Password] := password;
sqlcon.Params.Values[TDBXPropertyNames.DelegateConnection] := DBXPool.sDriverName;
sqlcon.Params.Values[DBXPool.sDriverName + '.' + TDBXPoolPropertyNames.MaxConnections] := maxcon;
sqlcon.Params.Values[DBXPool.sDriverName + '.' + TDBXPoolPropertyNames.MinConnections] := '1';
sqlcon.Params.Values[DBXPool.sDriverName + '.' + TDBXPoolPropertyNames.ConnectTimeout] := '1000';
sqlcon.Params.Values[DBXPool.sDriverName + '.' + 'DriverUnit'] := DBXPool.sDriverName;
sqlcon.Params.Values[DBXPool.sDriverName + '.' + 'DelegateDriver'] := 'True';
sqlcon.Params.Values[DBXPool.sDriverName + '.' + 'DriverName'] := DBXPool.sDriverName;
end;
这些设置中的任何一个可能会弄乱TSQLConnection组件并使其缓存数据集并返回它们而不是最近的TSQLQuery组件执行的那个吗？
非常感谢任何帮助。你可以说，这让我发疯了！
谢谢， 詹姆斯
答案 0 :(得分：1)
如果您关闭CDS会怎样？
function TDSSvrMethods.GetData(const SQL: string; var Params: OleVariant; var Key: string): OleVariant;
var qry: TSQLQuery; cds: TClientDataSet;
begin
// create TSQLQuery & TClientDataSet
// Link the two components via cds.SetProvider(qry);
// run first query, set 'Key' to the result <-- this works
qry.Close;
cds.Close;
// run second query <-- I see this hit the database
cds.Open
// return dataset via 'Result := cds.Data;'
// destory TSQLQuery & TClientDataSet end;
答案 1 :(得分：0)
如前所述，在尝试解决两个DBX Framework错误时，我引入了一个错误，使得它看起来像TSQLConnection正在为以后的数据请求回送先前的数据集。一旦我修复了我的错误，我就不得不解决两个DBX Framework错误（因为我们无法自己修复/重新编译框架）：
ONE ：您无法调用Open方法并访问output参数。
TWO ：您无法访问从单个存储过程返回的多个数据集。
解决方法：我只是从DataSnap服务器执行两个查询到数据库，然后处理/打包各个数据集以发送回客户端（在一个响应中）。
2012-06-27评论
由于这个线程获得了几个视图，我想我会解释如何将多个数据集打包到DataSnap服务器的单个响应中。
DataSnap可以将OleVariant返回给客户端应用。创建一个OleVariant的数组OleVariant很容易。由于TClientDataSet.Data属性是OleVariant，我们可以创建一组数据集以传递回客户端。此示例返回5个数据集。假设DataSnap服务器中存在这些方法：
function TServerMethods1.GetData(SQL: string): OleVariant;
var cds: TClientDataSet;
begin
cds := TClientDataSet.Create(nil);
try
{ setup 'cds' to connect to database }
{ pull data }
Result := cds.Data;
finally
FreeAndNil(cds);
end;
end;
function TServerMethods1.GetMultipleDataSets: OleVariant;
begin
Result := VarArrayCreate([0, 4], varVariant);
Result[0] := GetData('select * from Table1');
Result[1] := GetData('select * from Table2');
Result[2] := GetData('select * from Table3');
Result[3] := GetData('select * from Table4');
Result[4] := GetData('select * from Table5');
end;
您可以在客户端分配数据，方法是在表单上放置5个TClientDataSet组件，并将Data属性分配给OleVariant中的元素。
procedure X;
var DataArray: OleVariant;
begin
try
with ProxyMethods.TServerMethods1.Create(SQLConnection1.DBXConnection, True) do
try
DataArray := GetMultipleDataSets;
finally
Free;
end;
ClientDataSet1.Data := DataArray[0];
ClientDataSet2.Data := DataArray[1];
ClientDataSet3.Data := DataArray[2];
ClientDataSet4.Data := DataArray[3];
ClientDataSet5.Data := DataArray[4];
finally
VarClear(DataArray);
end;
end;
（我没有测试它就输入了这个例子。我的实际代码包括变量数组边界检查和其他动态元素。）