找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 7223|回復: 0
收起左側(cè)

關(guān)于DELPHI ADO內(nèi)存得不到釋放的問題

[復制鏈接]
ID:262 發(fā)表于 2014-5-20 16:06 | 顯示全部樓層 |閱讀模式
一程序使用ADO動態(tài)創(chuàng)建TADOQuery類,使用中發(fā)現(xiàn)每次open后,內(nèi)存都得不到釋放,無論free,close后都都到釋放,N次運行后內(nèi)存終會崩掉,上CSDN、GOOGLE中文都無法得到正解的解釋。糾結(jié)許久,終看到一老外的ADO類的源碼分析,恍然大悟。

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 ...
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復 返回頂部 返回列表