终于抓住你了, BUG! 300分(300分)

cAkk · 2000-06-05

最近写离线阅读器的时候,发现如果使用了ListView的CustomDrawItem, 资源总是被耗尽,检查我的程序代码没有发现任何问题,于是用memproof 跟踪一下,结果发现问题出在comctrls.pas. 请大家打开这个文件,查找字符串"don't delete the stock font", 你会发现下面一段代码,而memproof正是指出该段代码有资源泄漏: FCanvas.Handle := 0;  // disconnect from hdc // don't delete the stock font SelectObject(hdc, CreateFontIndirect(LogFont)); Result := Result or CDRF_NEWFONT; 我不明白上面的红字是什么意思? 为什么borland的工程师特意提醒 不要删除该字体资源,而恰恰是该代码有泄漏! 请明白人给解释一哈.并给出解决办法. 环境: pwin98+D5 (without updatepack)

Sachow · 2000-06-05

memproof是工具程序还是函数？哪里有，我也想用，能否指点？

Victortim · 2000-06-05

listen

Pipi. · 2000-06-06

StockFont 以后还要恢复回去的

adminis · 2000-06-06

wrench · 2000-06-06

看了看这个单元 一头雾水

Kang · 2000-06-06

没看,不敢看

王亮 · 2000-06-06

我也想了解memproof能作些什么， 方便请mail:wlpublic@btamail.net.cn

程云 · 2000-06-06

嘿嘿！没研究过。

SuperMMX · 2000-06-06

好象是要恢复的。再多就不知道了。

cAkk · 2000-06-06

但是memproof告诉我,该字体资源没有释放,我从他的窗口可以看到 FONT 资源不断增加,最后导致资源耗尽. 要memproof的可以检索一下. 在我的个人信息里面有一个问题是 关于"ODBC98的内存泄漏"的,里面提到过下载地质

amo · 2000-06-06

可能是与它无关， 再好再检查一下你的代码，或第三方控件。 看看Delphi中对font资源的处理吧： procedure TCanvas.SetFont(Value: TFont); begin   FFont.Assign(Value); end; procedure TFont.Assign(Source: TPersistent); begin   if Source is TFont then   begin     Lock;     try       TFont(Source).Lock;       try         FontManager.AssignResource(Self, TFont(Source).FResource);         Color := TFont(Source).Color;         if PixelsPerInch <> TFont(Source).PixelsPerInch then           Size := TFont(Source).Size;       finally         TFont(Source).Unlock;       end;     finally       Unlock;     end;     Exit;   end;   inherited Assign(Source); end; //注意： procedure TResourceManager.AssignResource(GraphicsObject: TGraphicsObject;   AResource: PResource); var   P: PResource; begin   Lock;   try     P := GraphicsObject.FResource;     if P <> AResource then     begin       Inc(AResource^.RefCount);       GraphicsObject.FResource := AResource;       GraphicsObject.Changed;       FreeResource(P);     end;   finally     Unlock;   end; end; //看看PResource是什么：   PResource = ^TResource;   TResource = record     Next: PResource;     RefCount: Integer;     Handle: THandle;     HashCode: Word;     case Integer of       0: (Data: TResData);       1: (Font: TFontData);       2: (Pen: TPenData);       3: (Brush: TBrushData);   end; //再看看对所有资源是如何管理的： function TResourceManager.AllocResource(const ResData): PResource; var   ResHash: Word; begin   ResHash := GetHashCode(ResData, ResDataSize);   Lock;   try     Result := ResList;     while (Result <> nil) and ((Result^.HashCode <> ResHash) or       not CompareMem(@Result^.Data, @ResData, ResDataSize)) do       Result := Result^.Next;     if Result = nil then     begin       GetMem(Result, ResDataSize + ResInfoSize);       with Result^ do       begin         Next := ResList;         RefCount := 0;         Handle := TResData(ResData).Handle;         HashCode := ResHash;         Move(ResData, Data, ResDataSize);       end;       ResList := Result;     end;     Inc(Result^.RefCount);   finally     Unlock;   end; end; procedure TResourceManager.FreeResource(Resource: PResource); var   P: PResource;   DeleteIt: Boolean; begin   if Resource <> nil then     with Resource^ do     begin       Lock;       try         Dec(RefCount);         DeleteIt := RefCount = 0;         if DeleteIt then         begin           if Resource = ResList then             ResList := Resource^.Next           else           begin             P := ResList;             while P^.Next <> Resource do P := P^.Next;             P^.Next := Resource^.Next;           end;         end;       finally         Unlock;       end;       if DeleteIt then       begin  // this is outside the critsect to minimize lock time         if Handle <> 0 then DeleteObject(Handle);         FreeMem(Resource);       end;     end; end; 一时间我还没看出如何会使内存泄漏。 大家一齐看看吧。

cAkk · 2000-06-06

一点补充: 我上面说的代码是没有加updatepack#1的delphi5,我今天在一台加了 补丁的机器上察看了comctrls.pas,发现相应代码似乎有些不一样,不知道 是不是被补丁修改过了. 我用加补丁后的delphi重新编译了一遍程序,今天晚上使用之后就能 知道结果.

cAkk · 2000-06-07

抱歉,关于memproof的连接我高错了,下载连接是 http://www.csdn.net/Delphi/tools/other/memp0930.zip

cAkk · 2000-06-07

我上面说的那个问题,好像装上Updatepack#1之后,重新编译一下 就好了,可能真是一个Bug. 所以,还没有装补丁的赶快装吧.

lww · 2000-06-07

如果装了UpdataPack就好了的话，那自然就是Bug啦。 佩服，佩服。这样的虫都抓得到。假设升级后还不行，老兄打算怎么做？

wrench · 2000-06-07

哪里用Updatepack#1下载？

cAkk · 2000-06-07

估计就是delphi的bug了,今天晚上我把家里的机器也装上了补丁, 然后用memproof一看........没漏洞了!!!!!! 下面是updatepack#1更新的文件列表

注意红色的字体) LIST OF UPDATED FILES ===================== Note: Some of the files on the list below are replaced ONLY on certain editions:  Borland Shared/Data/dbdemos.mdb  Delphi50/Bin/applet50.bpl  Delphi50/Bin/borlndmm.dll  Delphi50/Bin/brcide.dll  Delphi50/Bin/conexprt.dll  Delphi50/Bin/convert.exe  Delphi50/Bin/coride50.bpl  Delphi50/Bin/crbide50.bpl  Delphi50/Bin/dbexplor.exe  Delphi50/Bin/dbwebxprt.bpl  Delphi50/Bin/dbx.dbi  Delphi50/Bin/dbx50.bpl  Delphi50/Bin/dcc50.dll  Delphi50/Bin/dcl31w50.bpl  Delphi50/Bin/dclado50.bpl  Delphi50/Bin/dclaxserver50.bpl  Delphi50/Bin/dclbde50.bpl  Delphi50/Bin/dcldb50.bpl  Delphi50/Bin/dcldss50.bpl  Delphi50/Bin/dclib50.bpl  Delphi50/Bin/dclie50.bpl  Delphi50/Bin/dclisp50.bpl  Delphi50/Bin/dclite50.bpl  Delphi50/Bin/dclmid50.bpl  Delphi50/Bin/dclnet50.bpl  Delphi50/Bin/dclnmf50.bpl  Delphi50/Bin/dclocx50.bpl  Delphi50/Bin/dcloffice2k50.bpl  Delphi50/Bin/dclqrt50.bpl  Delphi50/Bin/dclsmp50.bpl  Delphi50/Bin/dclsmpedit50.bpl  Delphi50/Bin/dclstd50.bpl  Delphi50/Bin/dcltee50.bpl  Delphi50/Bin/dcltqr50.bpl  Delphi50/Bin/dclwbm50.bpl  Delphi50/Bin/delphi32.exe  Delphi50/Bin/delphimm.dll  Delphi50/Bin/dfm50.dll  Delphi50/Bin/dfmpkg50.bpl  Delphi50/Bin/direct50.bpl  Delphi50/Bin/dphcrb50.bpl  Delphi50/Bin/dphide50.bpl  Delphi50/Bin/dphmts50.bpl  Delphi50/Bin/dphpro50.bpl  Delphi50/Bin/dsnide50.bpl  Delphi50/Bin/exptdemo.dll  Delphi50/Bin/httpsrvr.dll  Delphi50/Bin/isapiter.dll  Delphi50/Bin/lnkdfm50.dll  Delphi50/Bin/mtside50.bpl  Delphi50/Bin/mtsinst.exe  Delphi50/Bin/orbpas50.dll  Delphi50/Bin/pce.exe  Delphi50/Bin/proide50.bpl  Delphi50/Bin/rc50.dll  Delphi50/Bin/rcpkg50.bpl  Delphi50/Bin/smclient.dll  Delphi50/Bin/sqlmon.exe  Delphi50/Bin/stride50.bpl  Delphi50/Bin/tlib50.bpl  Delphi50/Bin/tlibimp.exe  Delphi50/Bin/tlibimp.sym  Delphi50/Bin/vclide50.bpl  Delphi50/Bin/Netscap3/isapiter.dll  Delphi50/Bin/Netscp35/isapiter.dll  Delphi50/Bin/Netscp36/isapiter.dll  Delphi50/Imports/access97.dcu  Delphi50/Imports/access2000.dcu  Delphi50/Imports/adodb2000.dcu  Delphi50/Imports/binder97.dcu  Delphi50/Imports/dao97.dcu  Delphi50/Imports/dao2000.dcu  Delphi50/Imports/excel97.dcu  Delphi50/Imports/excel2000.dcu  Delphi50/Imports/msforms97.dcu  Delphi50/Imports/msppt8.dcu  Delphi50/Imports/msppt2000.dcu  Delphi50/Imports/office97.dcu  Delphi50/Imports/office2000.dcu  Delphi50/Imports/outlook8.dcu  Delphi50/Imports/outlook2000.dcu  Delphi50/Imports/vbide97.dcu  Delphi50/Imports/vbide2000.dcu  Delphi50/Imports/word97.dcu  Delphi50/Imports/word2000.dcu  Delphi50/Lib/adodb.dcu  Delphi50/Lib/adoint.dcu  Delphi50/Lib/appevnts.dcu  Delphi50/Lib/axctrls.dcu  Delphi50/Lib/classes.dcu Delphi50/Lib/comctrls.dcu  Delphi50/Lib/corbastd.dcu  Delphi50/Lib/databkr.dcu  Delphi50/Lib/db.dcu  Delphi50/Lib/dbclient.dcu  Delphi50/Lib/dbcommon.dcu  Delphi50/Lib/dbctrls.dcu  Delphi50/Lib/dbgrids.dcu  Delphi50/Lib/dbtables.dcu  Delphi50/Lib/dbx50.dcp  Delphi50/Lib/dcl31w50.dcp  Delphi50/Lib/dclado50.dcp  Delphi50/Lib/dclaxserver50.dcp  Delphi50/Lib/dclbde50.dcp  Delphi50/Lib/dcldb50.dcp  Delphi50/Lib/dcldss50.dcp  Delphi50/Lib/dclib50.dcp  Delphi50/Lib/dclie50.dcp  Delphi50/Lib/dclisp50.dcp  Delphi50/Lib/dclmid50.dcp  Delphi50/Lib/dclnet50.dcp  Delphi50/Lib/dclnmf50.dcp  Delphi50/Lib/dclocx50.dcp  Delphi50/Lib/dcloffice2k50.dcp  Delphi50/Lib/dclqrt50.dcp  Delphi50/Lib/dclsmp50.dcp  Delphi50/Lib/dclstd50.dcp  Delphi50/Lib/dcltee50.dcp  Delphi50/Lib/dcltqr50.dcp  Delphi50/Lib/dclwbm50.dcp  Delphi50/Lib/dsintf.dcu  Delphi50/Lib/dsnide50.dcp  Delphi50/Lib/dss50.dcp  Delphi50/Lib/extctrls.dcu  Delphi50/Lib/forms.dcu  Delphi50/Lib/graphics.dcu  Delphi50/Lib/ibevnt50.dcp  Delphi50/Lib/inet50.dcp  Delphi50/Lib/inetdb50.dcp  Delphi50/Lib/menus.dcu  Delphi50/Lib/miditems.dcu  Delphi50/Lib/mplayer.dcu  Delphi50/Lib/mtx.dcu  Delphi50/Lib/nmfast50.dcp  Delphi50/Lib/oledb.dcu  Delphi50/Lib/provider.dcu  Delphi50/Lib/qrpt50.dcp  Delphi50/Lib/scktcomp.dcu  Delphi50/Lib/stdactns.dcu  Delphi50/Lib/sysinit.dcu  Delphi50/Lib/sysutils.dcu  Delphi50/Lib/tee50.dcp  Delphi50/Lib/teedb50.dcp  Delphi50/Lib/teeqr50.dcp  Delphi50/Lib/teeui50.dcp  Delphi50/Lib/vcl50.dcp  Delphi50/Lib/vclado50.dcp  Delphi50/Lib/vclbde50.dcp  Delphi50/Lib/vcldb50.dcp  Delphi50/Lib/vcldbx50.dcp  Delphi50/Lib/vclib50.dcp  Delphi50/Lib/vclie50.dcp  Delphi50/Lib/vcljpg50.dcp  Delphi50/Lib/vclmid50.dcp  Delphi50/Lib/vclsmp50.dcp  Delphi50/Lib/vclx50.dcp  Delphi50/Lib/webmid50.dcp  Delphi50/Lib/Debug/adodb.dcu  Delphi50/Lib/Debug/appevnts.dcu  Delphi50/Lib/Debug/axctrls.dcu  Delphi50/Lib/Debug/classes.dcu Delphi50/Lib/Debug/comctrls.dcu  Delphi50/Lib/Debug/corbastd.dcu  Delphi50/Lib/Debug/databkr.dcu  Delphi50/Lib/Debug/db.dcu  Delphi50/Lib/Debug/dbactns.dcu  Delphi50/Lib/Debug/dbclient.dcu  Delphi50/Lib/Debug/dbcommon.dcu  Delphi50/Lib/Debug/dbctrls.dcu  Delphi50/Lib/Debug/dbgrids.dcu  Delphi50/Lib/Debug/dbtables.dcu  Delphi50/Lib/Debug/dsintf.dcu  Delphi50/Lib/Debug/extctrls.dcu  Delphi50/Lib/Debug/forms.dcu  Delphi50/Lib/Debug/graphics.dcu  Delphi50/Lib/Debug/menus.dcu  Delphi50/Lib/Debug/mplayer.dcu  Delphi50/Lib/Debug/provider.dcu  Delphi50/Lib/Debug/scktcomp.dcu  Delphi50/Lib/Debug/sysinit.dcu  Delphi50/Lib/Debug/sysutils.dcu  Delphi50/Ocx/Servers/access97.pas  Delphi50/Ocx/Servers/access2000.pas  Delphi50/Ocx/Servers/adodb2000.pas  Delphi50/Ocx/Servers/binder97.pas  Delphi50/Ocx/Servers/dao97.pas  Delphi50/Ocx/Servers/dao2000.pas  Delphi50/Ocx/Servers/excel97.pas  Delphi50/Ocx/Servers/excel2000.pas  Delphi50/Ocx/Servers/msforms97.pas  Delphi50/Ocx/Servers/msppt8.pas  Delphi50/Ocx/Servers/msppt2000.pas  Delphi50/Ocx/Servers/office97.pas  Delphi50/Ocx/Servers/office2000.pas  Delphi50/Ocx/Servers/outlook8.pas  Delphi50/Ocx/Servers/outlook2000.pas  Delphi50/Ocx/Servers/vbide97.pas  Delphi50/Ocx/Servers/vbide2000.pas  Delphi50/Ocx/Servers/word97.pas  Delphi50/Ocx/Servers/word2000.pas  Delphi50/Source/Internet/miditems.pas  Delphi50/Source/Property Editors/adoreg.pas  Delphi50/Source/Property Editors/bdereg.pas  Delphi50/Source/Property Editors/midreg.pas  Delphi50/Source/Property Editors/stfilsys.pas  Delphi50/Source/Rtl/Sys/sysinit.pas  Delphi50/Source/Rtl/Sys/sysutils.pas  Delphi50/Source/Toolsapi/dsgnintf.pas  Delphi50/Source/Vcl/adodb.pas  Delphi50/Source/Vcl/adoint.pas  Delphi50/Source/Vcl/appevnts.pas  Delphi50/Source/Vcl/axctrls.pas  Delphi50/Source/Vcl/classes.pas  Delphi50/Source/Vcl/comctrls.pas  Delphi50/Source/Vcl/corbastd.pas  Delphi50/Source/Vcl/databkr.pas  Delphi50/Source/Vcl/db.pas  Delphi50/Source/Vcl/dbclient.pas  Delphi50/Source/Vcl/dbcommon.pas  Delphi50/Source/Vcl/dbctrls.pas  Delphi50/Source/Vcl/dbgrids.pas  Delphi50/Source/Vcl/dbtables.pas  Delphi50/Source/Vcl/dsintf.pas  Delphi50/Source/Vcl/extctrls.pas  Delphi50/Source/Vcl/forms.pas  Delphi50/Source/Vcl/graphics.pas  Delphi50/Source/Vcl/menus.pas  Delphi50/Source/Vcl/mplayer.pas  Delphi50/Source/Vcl/mtx.pas  Delphi50/Source/Vcl/oledb.pas  Delphi50/Source/Vcl/provider.pas  Delphi50/Source/Vcl/scktcomp.pas  Delphi50/Source/Vcl/stdactns.pas  Windows/System32/dss50.bpl  Windows/System32/ibevnt50.bpl  Windows/System32/inet50.bpl  Windows/System32/inetdb50.bpl  Windows/System32/midas.dll  Windows/System32/nmfast50.bpl  Windows/System32/qrpt50.bpl  Windows/System32/stdvcl40.dll  Windows/System32/tee50.bpl  Windows/System32/teedb50.bpl  Windows/System32/teeqr50.bpl  Windows/System32/teeui50.bpl  Windows/System32/vcl50.bpl  Windows/System32/vclado50.bpl  Windows/System32/vclbde50.bpl  Windows/System32/vcldb50.bpl  Windows/System32/vcldbx50.bpl  Windows/System32/vclib50.bpl  Windows/System32/vclie50.bpl  Windows/System32/vcljpg50.bpl  Windows/System32/vclmid50.bpl  Windows/System32/vclsmp50.bpl  Windows/System32/vclx50.bpl  Windows/System32/webmid50.bpl 嘿嘿,还是赶快打补丁吧! 免得什么时候错了都不知道什么地方错了.

cAkk · 2000-06-07

多人接受答案了。

Pipi. · 2000-06-07

你就说打了补丁就成了嘛，还列出一串来占我的带宽

终于抓住你了, BUG! 300分(300分)

cAkk

Unregistered / Unconfirmed

Sachow

Unregistered / Unconfirmed

Victortim

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

adminis

Unregistered / Unconfirmed

wrench

Unregistered / Unconfirmed

Kang

Unregistered / Unconfirmed

王亮

Unregistered / Unconfirmed

程云

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

lww

Unregistered / Unconfirmed

wrench

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

Similar threads