你可以在线程里动态生成TQuery,线程结束时再释放掉嘛:)
解决方案 »
- QQ登录界面的按钮图标是绘制的,还是贴上去的?
- 如何查找到特定的IE窗口,然后获得它的接口控制IE中的网页
- 天啊,Delphi不至于这么弱吧。Utf8Decode的bug?
- idmessage怎么接收多个附件的邮件?
- 信息服务系统整体架构,请给一个方案
- 要在运行时将label1.Anchors中的 aktop设为ture(或false)如何写代码
- 密码问题
- 初来宝地,先贿赂贿赂大家,请大家以后多照顾,美人10分,共20位
- 如何动态生成FastReport里面的控件
- >>>>>>>>>这种光盘怎么刻?!!!!!!!!!!!
- 怎样读取网上的文件?比如在image中显示网上的一个图像
- ☆☆☆☆☆☆请问一下上海市的图书批发市场在什么地方啊,就是可以打7、8折的地方。谢谢大家!☆☆☆☆☆☆
所以,最好静态建一个DataModule1,放上Database1,Session1,Query1,
每一个线程TDataModule1.Create就可以了
本人很菜,请问能否给个具体的例子,谢谢,如果多的话发到
//用户连接
OnClientConnect(UID:TClientID):
var
M_Session:TSession;
begin
M_Session := TSession.Create(Application);
M_Session.OpenDatabase(M_Database.DatabaseName);
//保存UID与M_Session;
SaveSessionToArray(uid,M_Session);
end;
//用户数据请求
OnClientReqData(UID);
var
qryCount:TQuery;
begin
//通过UID找到保存的Tsession;假设是以下函数
qryCount:=TQuery.Create(Application);
qryCount.session:= GetSession(Uid);
//执行
with QryCount do begin
{do some thing}
...
end;
qrySession.free;
end;
//释放连接
OnDisconnect(UID)
var
session:TSession;
begin
session:=GetSession(uid);
end;
不好意思本来给50分的但好象我给的最高分只能是20,不好意思,谢谢你!!!