//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>
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>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货