.net - sintomas - bloqueo en el corazon tratamiento

La fuente incrustada causa un bloqueo

Question

Tengo una aplicación WinForm. Estoy usando una fuente personalizada que está en mis recursos integrados.
Funciona al principio, pero luego hace que el programa se cuelgue después de un tiempo.
Usando el siguiente código como ejemplo, si sigo redimensionando el formulario, forzándolo a redibujarse constantemente, se bloqueará en unos pocos segundos. El mensaje que recibo es '' Error in ''Form1_Paint()''. Object is currently in use elsewhere. Error in ''Form1_Paint()''. Object is currently in use elsewhere. ''.
¿Qué estoy haciendo mal? ¿Cómo puedo evitar esto?
Tengo la fuente desde aquí.
Gracias.

Imports System.Drawing.Text
Imports System.Runtime.InteropServices
Public Class Form1
Friend Harabara As Font
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadFonts()
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Try
e.Graphics.DrawString("This was drawn using the custom font ''Harabara''", Harabara, Brushes.Lime, 10.0F, 10.0F)
Catch ex As Exception
MsgBox("Error in Form1_Paint()''" & vbCrLf & ex.Message)
End Try
End Sub
Public Sub LoadFonts()
Try
Harabara = GetFontInstance(My.Resources.HarabaraHand, 24.0F, FontStyle.Italic)
Catch ex As Exception
MsgBox("Error in ''LoadFonts()''" & vbCrLf & ex.Message)
End Try
End Sub
Private Function GetFontInstance(ByVal data() As Byte, ByVal Size As Single, ByVal Style As FontStyle) As Font
Dim result As Font
Try
Dim pfc = New PrivateFontCollection
''LOAD MEMORY POINTER FOR FONT RESOURCE
Dim FontPtr As System.IntPtr = Marshal.AllocCoTaskMem(data.Length)
''COPY THE DATA TO THE MEMORY LOCATION
Marshal.Copy(data, 0, FontPtr, data.Length)
''LOAD THE MEMORY FONT INTO THE PRIVATE FONT COLLECTION
pfc.AddMemoryFont(FontPtr, data.Length)
''FREE UNSAFE MEMORY
Marshal.FreeCoTaskMem(FontPtr)
result = New Font(pfc.Families(0), Size, Style)
pfc.Families(0).Dispose()
pfc.Dispose()
Catch ex As Exception
''ERROR LOADING FONT. HANDLE EXCEPTION HERE
MsgBox("Error in ''GetFontInstance()''" & vbCrLf & ex.Message)
result = New Font(FontFamily.GenericMonospace, 8)
End Try
Return result
End Function
End Class

Answer 1

 Marshal.FreeCoTaskMem(FontPtr)

La documentación de MSDN para PrivateFontCollection es demasiado obtusa al respecto. Pero necesita mantener la memoria de la fuente añadida válida hasta que ya no pueda usar la fuente. O para decirlo de otra manera, AddMemoryFont () no hace una copia de la fuente. Por lo tanto, su programa se caerá con un misterioso error GDI + cuando intente acceder a los datos de la fuente y se sobreescribirá con otra asignación de memoria no administrada.

Mueva la llamada de FreeCoTaskMem () a un controlador de evento FormClosed. O no se moleste si al cerrar el formulario también finaliza su programa.