欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標(biāo)題: 關(guān)于DELPHI ADO內(nèi)存得不到釋放的問(wèn)題 [打印本頁(yè)]

作者: heicad 時(shí)間: 2014-5-20 16:06
標(biāo)題: 關(guān)于DELPHI ADO內(nèi)存得不到釋放的問(wèn)題
一程序使用ADO動(dòng)態(tài)創(chuàng)建TADOQuery類(lèi)，使用中發(fā)現(xiàn)每次open后，內(nèi)存都得不到釋放，無(wú)論free，close后都都到釋放，N次運(yùn)行后內(nèi)存終會(huì)崩掉，上CSDN、GOOGLE中文都無(wú)法得到正解的解釋。糾結(jié)許久，終看到一老外的ADO類(lèi)的源碼分析，恍然大悟。

TADOQuery = class(TCustomADODataSet)
...
constructor TCustomADODataSet.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCommand := TADOCommand.Create(Self);
...
destructor TADOQuery.Destroy;
begin
// Problem: destroy before delete of members
inherited Destroy;
FreeAndNil(FSQL);
end;
destructor TADOCommand.Destroy;
begin
// The same problem: destroy before delete of members
inherited Destroy;
Connection := nil;
FCommandObject := nil;
FreeAndNil(FParameters);
end;
See this discussion:
groups.google.ru/groups&lr=&threadm=41ed54ce%241%40newsgroups.borland.com&rnum=6&prev=/groups%3Fas_q%3DTADOCommand%26as_ugroup%3D*borland*%26as_scoring%3Dd%26lr%3D%26num%3D20%26hl%3Dru
Possible workarounds:
- don't create TADOQuery and TADOCommand dynamically (use some static
instances), "ignore small leak" on terminating of application;
- patch adodb.pas ...

歡迎光臨 (http://m.raoushi.com/bbs/)