为什么这会导致内存泄漏？

Question

这很有趣。 我们花了最后一天的时间尝试修复以下（遗留）代码的问题，该代码继续增加其进程大小。 这是在 Visual Studio 2003 中完成的。

我们有一个表单，在该表单上显示图像（来自 MemoryStream）以及一些文本和一个按钮。 没有什么花哨。 看起来像这样：

  Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
    MyBase.OnLoad(e)
    Try
      m_lblWarning.Visible = False

      m_grpTitle.Text = m_StationInterface.ProcessToolTitle
      m_lblMessage.Text = m_StationInterface.ProcessToolMessage

      Dim objImage As MemoryStream
      Dim objwebClient As WebClient
      Dim sURL As String = Trim(m_StationInterface.ProcessToolPicLocation)

      objwebClient = New WebClient

      objImage = New MemoryStream(objwebClient.DownloadData(sURL))
      m_imgLiftingEye.Image = Image.FromStream(objImage)

      m_txtAcknowledge.Focus()
    Catch ex As Exception
      '*** This handles a picture that cannot be found without erroring'
      m_lblWarning.Visible = True
    End Try
  End Sub

该表单经常关闭和打开。 每次重新打开时，进程内存使用量都会增加大约 5mb。 当表单关闭时，它不会恢复到以前的用法。 资源仍分配给未引用的表单。 窗体呈现如下：

      m_CJ5Form_PTOperatorAcknowlegement = New CJ5Form_PTOperatorAcknowlegement
      m_CJ5Form_PTOperatorAcknowlegement.stationInterface = m_StationInterface
      m_CJ5Form_PTOperatorAcknowlegement.Dock = DockStyle.Fill
      Me.Text = " Acknowledge Quality Alert"

      '*** Set the size of the form'
      Me.Location = New Point(30, 30)
      Me.Size = New Size(800, 700)

      Me.Controls.Add(m_CJ5Form_PTOperatorAcknowlegement)

关闭后，控件稍后从窗体中删除：

Me.Controls.Clear()

现在。 我们已经尝试了很多事情。 我们发现 Dispose 不执行任何操作，事实上，IDisposable< /a> 界面实际上并不接触内存。 如果我们不每次都创建新的 CJ5Form_PTOperatorAcknowledgement 表单，则进程大小不会增长。 但是将新图像加载到该表单中仍然会导致进程大小不断增长。

任何建议，将不胜感激。

Answer 1

我不知道具体为什么会泄漏，但我可以建议您查看使用 .NET 内存分析器 。 如果您使用它来运行您的应用程序，它将让您很好地了解哪些对象没有被释放，并帮助您排除原因。 它有免费试用版，但非常值得购买。

Answer 2

您必须处置您的 WebClient 对象和任何其他可能不再需要的托管非托管资源。

objImage = New MemoryStream(objwebClient.DownloadData(sURL))
objwebClient.Dispose() ' add call to dispose

更好的编码方法是使用“using”语句：

using objwebClient as WebClient = New WebClient      
objImage = New MemoryStream(objwebClient.DownloadData(sURL))      
end using

有关更多信息，请在 google 和 stackoverflow 上搜索“Dispose”和“IDisposable”模式实现。

最后一个提示：如果可能，不要使用内存流。 直接从文件加载图像，除非您需要将其保存在 RAM 中。

编辑

如果我正确理解你的代码，也许这样的事情会起作用：

Dim objImage As MemoryStream      
Dim objwebClient As WebClient      
Dim sURL As String = Trim(m_StationInterface.ProcessToolPicLocation)      
using objwebClient as WebClient = New WebClient      
  using objImage as MemoryStream = New MemoryStream(objwebClient.DownloadData(sURL))      
    m_imgLiftingEye.Image = Image.FromStream(objImage)
  end using
end using