//mts组件如下:
type
  Tly = class(TMtsDataModule, Ily)
    mtsSqlQuery1: TmtsSqlQuery;
  private
    { Private declarations }
    data:OleVariant;
    mCs:integer;
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure GetAllLy(var Datas: OleVariant; RefresgTag: WordBool;
      var Cs: Integer); safecall;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;
//create实现部分
constructor Tly.Create(AOwner: TComponent);
begin
  inherited;
//  mtsSqlQuery1.Execute;
///  data:=mtsSqlQuery1.Data;
  mCs:=mCs+1;
end;
//接口
procedure Tly.GetAllLy(var Datas: OleVariant; RefresgTag: WordBool;
  var Cs: Integer);
begin
  //if  RefresgTag then mtsSqlQuery1.Execute;
//  Datas:= data;//mtsSqlQuery1.Data;
  Cs:=mCs;
  SetComplete;
end;
//问题:
如果,客户端两次(或多个客户端)调用GetAllLy时,返回的Cs均为1,是不是可以认为对象Pooling未好使?
//====
加分主题:
<a href=http://expert.csdn.net/Expert/topic/2903/2903421.xml?temp=.271908> http://expert.csdn.net/Expert/topic/2903/2903421.xml?temp=.271908</a>