DrawText内存泄露

[梁诚斌]

今天在用BCB6写一个滚动字幕的时候,在定时器中使用API的::DrawText,
结果运行的时候察看进程管理器,发现内存按照定时器的间隔定时泄露4K的内存,
我将定时器中的DrawText函数写成最简单的一段代码
void __fastcall TForm1::tmr1Timer(TObject *Sender)
{
HDC dcPaint = ::GetDC(this->Handle);
if(::GetClientRect(this->Handle, &recShowBottomText))
{
HFONT hfontold = SelectObject(dcPaint, hBottomText);
::DrawTextA(dcPaint, "1", 1, &recShowBottomText, DT_LEFT|DT_VCENTER|DT_SINGLELINE);
SelectObject(dcPaint, hfontold);
}
::ReleaseDC(this->Handle, dcPaint);
}
这段代码是一个FORM上面的定时器的处理函数,请问有没有童鞋碰到过相同的问题

[梁诚斌]

补充一下,上面这段代码也会发生泄露,每个定时间隔4K,由于间隔很短,内存就漏的很快

[梁诚斌]

刚才发现一个更奇葩的事情,这段代码在XP下没有问题,WIN7下才发生内存泄露,真是奇怪了

[日立奔腾浪潮微软松下联想]

内存增长不一定代表泄露，你把它最小化一会，再恢复看看，

[宝龙哥]

DrawText也会内存泄露？持续运行一段时间看什么情况

[梁诚斌]

昨天查到点眉目,发现在release模式下没有泄露的问题,只有在debug下才发生的(哪怕只是在定时器里面写最简单GetDC, SelectObject, DrawText, SelectObject, ReleaseDC). 暂时可以解决问题了

[梁诚斌]

DEBUG下最小化好像也一样,内存在往上跳