vb.net - vb.net 应用程序出现 OutOfMemoryException

Question

在我的一个 VB.Net 应用程序中，我在运行该应用程序时遇到错误。这个错误并不总是出现。所以我也无法重现该错误。没有准确的顺序来重现该错误。

Stack :System.OutOfMemoryException: Out of memory. at System.Drawing.Graphics.FromHdcInternal(IntPtr hdc) at System.Windows.Forms.ToolStrip.OnPaint(PaintEventArgs e) at System.Windows.Forms.Control.PaintWithErrorHandling(PaintEventArgs e, Int16 layer, Boolean disposeEventArgs) at System.Windows.Forms.Control.WmPaint(Message& m) at System.Windows.Forms.Control.WndProc(Message& m) at System.Windows.Forms.ScrollableControl.WndProc(Message& m) at System.Windows.Forms.ToolStrip.WndProc(Message& m) at System.Windows.Forms.StatusStrip.WndProc(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

错误描述:

MyApplication_UnhandledException

出现此错误后，我收到一条消息:

Insufficient memory to create bitmap. Close one or more applications to increase available.

当我检查应用程序的内存使用情况时，发现并没有那么高。此错误不会重复出现。那么我该如何解决这个错误。怎么解决呢？我使用 .Net 内存分析器和 redgate 内存分析器检查了我的应用程序的运行情况。

下面是非托管内存使用量的屏幕截图。我不知道这些值是否很高。

更新:

我又得到了错误。检查了gdi对象，结果是9998。所以错误是由于高gdi对象造成的。现在问题是如何解决。然后我使用GDIView并检查。通过该工具，我得到了 pen-2954 Brush-5918 font-90 bitmap-13 等 GDI Total-9998那么这些笔和画笔是什么？在我的代码中，我没有使用画笔或笔。(我在代码中搜索了“笔”和“画笔”，但没有得到任何结果。)所以请帮助我

Answer 1

在任务管理器中，转到查看菜单，选择要在进程选项卡中显示的列。选择您想要显示GDI 对象列。我相当肯定您会看到进程的 GDI 对象总数达到 10000，这是任何进程的最大值。

这与使用了多少物理内存无关。从这个意义上说，该错误消息非常糟糕且具有误导性。问题是您已经用完了 GDI 句柄。 Windows 下的每个进程都限制其可以创建的 GDI 句柄的最大数量。当前限制为每个进程 10000 个句柄。

我假设您的问题是 GDI 句柄的原因是因为在绘制控件的过程中尝试创建新位图时抛出异常。位图是一个 GDI 对象。创建位图会使用该位图的 GDI 句柄。因此，这很可能是原因。

由于错误发生在标准 ToolStrip 控件中，因此不太可能是 ToolStrip 本身的错误。更有可能的是，您在程序的其他地方用完了所有 GDI 句柄，然后，当控件尝试绘制自身时，它会失败，因为没有剩余的句柄。

任何时候创建 GDI 对象(例如笔和位图)时，都需要确保释放这些对象。所有获取 GDI 句柄的 GDI 类都实现 IDisposable 接口(interface)。当对象被处理时，它们会自动删除此时的句柄。但是，如果您从不丢弃这些对象，则句柄永远不会被删除，并且您的 GDI 对象数量只会不断增长。

要处置任何 IDisposable 对象，只需在处理完该对象后调用 Dispose 方法即可，例如:

Dim b As New Bitmap("test.bmp")
'...
b.Dispose()

但是，如果可以的话，最好使用 Using block 声明 IDisposable 对象的变量，如下所示:

Using b As New Bitmap("test.bmp")
    '...
End Using

使用 Using block ，将自动为您调用 Dispose 方法，因此您无需自己显式调用它。 Using block 比自己调用 Dispose 更好的原因是，如果在 Using block 内抛出异常， >Dispose 方法仍会自动调用。如果您自己显式调用它，而不使用 Using block ，则更容易错过需要调用它的每个位置。

要查找代码中的问题区域，请在调试器中运行程序并单步执行代码。当您单步执行代码时，将任务管理器保持打开状态，显示GDI 对象列。观察任务管理器中的GDI对象列，您将看到计数随着新GDI对象的创建而增加。使用此方法应该相当容易找出问题所在。