知识大全在Delphi中如何维护COM+的状态信息[2]

Posted 2022-07-13 状态

篇首语：世事洞明皆学问，人情练达即文章。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在Delphi中如何维护COM+的状态信息[2]相关的知识，希望对你有一定的参考价值。

在Delphi中如何维护COM+的状态信息[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　回到+的工程调试它在ConnectTo和adocBeforeConnect中设置断点发现程序执行到

　　DBName:=sDBName;

　　时确实已经把DBName的值设为 DB 了但是在执行

　　　adoc ConnectionString:=ConnectStringA+´Initial Catalog=´+DBName+´;´+ConnectStringC;

　　时 DBName又成了空字符串所以出错了

　　为什么DBName的值会丢掉呢？原来在是因为在ConnectTo中调用了SetComplete方法 SetComplete方法认为这个+已经完成了任务会释放这个+对象所以连接数据库时又创建了一个新的+ 它的DBName当然是空值了

　　找到了原因把SetComplete改成EnableCommit; 编译再运行客户端终于运行成功取回了DB 数据库中的数据

　　可是在客户端程序中放入另一个ClientDataSet 在打开ClientDataSet 之后打开ClientDataSet 想继续访问DB 中的数据又报错了把程序改成

　　Dconnection AppServer connect(´DB ´);

　　ClientDataset Active:=true;

　　ClientDataset Active:=false;

　　ClientDataset Active:=true;

　　即使只使用一个ClientDataSet 在它关闭之后再打开时依然会出错

但如果客户端写成

　　Dconnection AppServer connect(´DB ´);

　　ClientDataset Active:=true;

　　Dconnection AppServer connect(´DB ´);

　　ClientDataset Active:=true;

　　可以执行成功但这样似乎很不好看 +为什么会在连接完数据库后又把自己释放呢？

　　原来 TmtsDataModule有一个AutoComplete属性默认值是true 所以在连接完数据库之后它还是会把自己释放

　　把AutoComlete设成false后还是出错在+的OnActivate事件中跟踪发现当它被激活时 AutoComplete属性被自动设为ture了所以在它第一次连接数据库后依然会把自己释放

　　在+的OnOnActivate事件中写上

　　AutoComplete:=false;

　　客户端一次连接多次访问数据库也没有问题了

　　但这样一来 +就不会自动释放了需要在+中增加一个方法在这个方法中SetComplete 然后在客户端用完+后调用这个方法来释放+

　　经过以上的摸索得出以下的结论在+中如果要保持状态信息需要做一些工作因为+默认是无状态的它每次被客户端调用后都会判断是不是应该释放自己如果我们不想它释放就要人工加以干预最后我们还要人工去释放它

cha138/Article/program/Delphi/201311/24838

知识大全 在Delphi中如何维护COM+的状态信息[2]