知识大全 .Net程序开发中一个较为隐蔽的GDI泄露探析收藏

Posted 2022-07-21 知

篇首语：谷要自长，人要自强。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 .Net程序开发中一个较为隐蔽的GDI泄露探析收藏相关的知识，希望对你有一定的参考价值。

.Net程序开发中一个较为隐蔽的GDI泄露探析收藏 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　最近一直在调试第三方委托开发的医疗输液系统（我接手时代码已经完成原则上我只修改接口部分以适应我们的硬件即可不过调试过程中该程序本身问题暴露不少）该系统用开发该软件的图形界面是花费n多银子专门做的美工大量的贴图就是目前的主流PC机配置也很难在调试模式下走顺溜　　　问题出在两方面第一存在内存泄露（有时间我专门为此写篇文章）第二存在GDI泄露　　　最早的时候由于存在内存泄露问题我一直以为windows弹出的 GDI一般性错误是由于内存泄露引起的直到内存问题得以解决程序还是运行一段时间就弹出类似错误查了很多资料发现windows任务管理器可以查看GDI是否泄露　　　发现该程序的GDI对象计数猛涨由于没有很好的GDI检查工具和方法（如果这方面有高手希望不吝指教）所以我对程序中大段大段涉及GDI的代码进行屏蔽然后再检查是否GDI有泄露 n次重复后功夫不负有心人终于锁定罪魁祸首相关代码如下　 Select Case (uPumpData PumpName & ) Trim

　　Case ******

　　IRBDetail Icon = Icon FromHandle(CType(ImgTabPage Images( ) Bitmap) GetHicon)

　　Case XXXXXX

　　IRBDetail Icon = Icon FromHandle(CType(ImgTabPage Images( ) Bitmap) GetHicon)

　　Case Else

　　IRBDetail Icon = Nothing

　　End Select

　　问题就出在 Icon FromHandle(CType(ImgTabPage Images( ) Bitmap) GetHicon)这句代码上 msdn在关键时刻不辱使命一查结果真相大白

　　Icon FromHandle 方法

　　从图标的指定 Windows 句柄 (HICON) 创建 GDI+ Icon

　　命名空间:System Drawing程序集:System Drawing（在 system drawing dll 中）

　　Visual Basic（声明） Public Shared Function FromHandle (handle As IntPtr ) As Icon

　　Visual Basic（用法） Dim handle As IntPtr

　　Dim returnValue As Icon

　　returnValue = Icon FromHandle(handle)

　　参数

　　handle 图标的 Windows 句柄

　　返回值

　　此方法创建的 Icon

　　备注

　　使用此方法时必须使用 Win API 中的 DestroyIcon 方法释放产生的图标以确保释放相应资源

　　示例

　　下面的代码示例设计用于 Windows 窗体它需要 PaintEventArgse（这是 Paint 事件处理程序的参数）代码执行下列操作

　　· 创建一个 Bitmap

　　· 将该对象绘制到屏幕

　　· 获取 Bitmap 的图标句柄

　　· 将窗体的 Form Icon 属性设置为从该句柄创建的图标

　　· 调用 Win API 函数 DestroyIcon 以释放资源

　　Private Shared Function DestroyIcon(ByVal handle As IntPtr) As Boolean

　　End Function

　　Private Sub GetHicon_Example(ByVal e As PaintEventArgs)

　　 Create a Bitmap object from an image file

　　Dim myBitmap As New Bitmap( c:\\FakePhoto jpg )

　　 Draw myBitmap to the screen

　　e Graphics DrawImage(myBitmap )

　　 Get an Hicon for myBitmap

　　Dim HIcon As IntPtr = myBitmap GetHicon()

　　 Create a new icon from the handle

　　Dim newIcon as Icon = System Drawing Icon FromHandle(HIcon)

　　 Set the form Icon attribute to the new icon

　　Me Icon = newIcon

　　 Destroy the icon since the form creates its

　　 own copy of the icon

　　DestroyIcon(newIcon Handle)

　　End Sub

　　注意备注很关键要用API DestroyIcon释放相关对象

　　我声明了一个API函数

　　Public Declare Function DestroyIcon Lib user Alias DestroyIcon (ByVal hIcon As Integer) As Integer

　　在IRBDetail Icon的属性代码中添加了如下代码问题立马解决（当然类销毁的代码中

　　m_Icon也要释放一下）

　　Public Property Icon() As Icon

　　Get

　　Return m_Icon

　　End Get

　　Set(ByVal Value As Icon)

　　叶帆

　　If Not IsNothing(m_Icon) Then

　　DestroyIcon(m_Icon Handle)

　　m_Icon Dispose()

　　m_Icon = Nothing

　　End If

　　m_Icon = Value

　　Me Invalidate()

　　End Set

　　End Property

cha138/Article/program/ASP/201311/21817