客户端应如何接收中间层代码（MTS）返回数据？ ( 积分: 100 )

有如下中间层代码（MTS）
procedure TMyServer.ExecSQL(const SQL: WideString;
out vData:OleVariant);
begin
try
try
TmpDB.Close;
TmpCds.Close;
TmpDB.CommandText := SQL;
TmpCds.Open;
vData := TmpCds.Data;
SetComplete;
except
SetAbort;
end;
finally
TmpCon.Connected := False;
end;
end;

//已经定义
//TmpCds: TClientDataSet;
//TmpProvider: TDataSetProvider;
//TmpDB: TADODataSet;
//并且
//TmpCds.Provider:=TmpProvider;
//TmpProvider.DataSet:=TmpDB;
//请问：
//如何才能在客户端接收数据？
//
//我用WebConn.AppServer.ExecSql('select * from MyInfo',cdsTest.Data)但，没有反应，能否给出客户端的代码？
//

有如下中间层代码（MTS）
procedure TMyServer.ExecSQL(const SQL: WideString;
out vData:OleVariant);
begin
try
try
TmpDB.Close;
TmpCds.Close;
TmpDB.CommandText := SQL;
TmpCds.Open;
vData := TmpCds.Data;
SetComplete;
except
SetAbort;
end;
finally
TmpCon.Connected := False;
end;
end;

//已经定义
//TmpCds: TClientDataSet;
//TmpProvider: TDataSetProvider;
//TmpDB: TADODataSet;
//并且
//TmpCds.Provider:=TmpProvider;
//TmpProvider.DataSet:=TmpDB;
//请问：
//如何才能在客户端接收数据？
//
//我用WebConn.AppServer.ExecSql('select * from MyInfo',cdsTest.Data)但，没有反应，能否给出客户端的代码？
//

[!][red]没高手可以回答吗？[/red]

qq:59401463
做过三层,可以一起讨论

我是 涛涛江水，接分来了。

感谢 独孤客 的例子。