请问我怎样动态的远程获得ClientDataSet的DataSetProvider?????

Question

我想ClientDataSet动态生成，在ClientDataSet动态生成的时候,在应用服务器上动态生成一个DataSetProvider组件跟他相关联,程序代码如下:
function TSmDataModule.GetClientDataSet(Sql: string): TClientDataSet;
begin
  Result := GetClientDataSet;  //创建ClientDataSet
  Result.Close;
  if not FDComConneted then
    FDComConn.Connected;
  Result.ProviderName := DComConn.AppServer.GetDsProvider;(动态生成TDataSetProvide并且将DataSetProvider的Name返回并赋值给ClientDataSet的ProviderName)
  Result.CommandText := Sql;
  Result.Open;
end;然而，我在执行这句Sql时'Select * from Test'报错: Provider not Exported: DspData1(DspData1为动态生成的DataSetProvider的名称)。意思是说DataSetProvider没有岛出???请问这个问题怎么解决，请高手赐教!!!谢谢

Answer 1

function TSmDataModule.GetDsProvider: TDataSetProvider;
var Qry: TADOQuery;
begin
  Result := TDataSetProvider.Create(Self);
  Qry := GetQuery;
  Result.DataSet := Qry;
  SetDsProAllowSql(Result);
  Result.Exported := True;
  Inc(FDsProviderCount);
  Result.Name := 'DspData' + Inttostr(FDsProviderCount);
end;