2

Incremento De Memoria

La memoria continua creciendo de a poquito y luego de un tiempo aproximado de 6 horas sale el error OutOfMemoryException.

Uso el siguiente método para pasar los datos que recibo en el evento SerialPort1_DataReceived y considero que tal vez ese puede ser el problema.

Cualquier ayuda de antemano les agradezco. Si necesitan mas detalles para poder ayudarme háganme lo saber.

 Private Sub SetText1(ByVal [text] As String)
         If Me.TextBox1.InvokeRequired Then
        Dim l As New ContextCallback(AddressOf SetText1)
        Me.Invoke(l, New Object() {[text]})

    Else
        Me.TextBox1.Text = [text]

    End If
End Sub
7
  • Mira esta guia para que tu pregunta sea mejor recibida. Tambien, aprovecha y haz el tour para entender mejor como funcionamos y de paso obtener tu primera medalla!
    – gbianchi
    el 22 sep. 2017 a las 15:27
  • porque piensas que el problema esta ahi?
    – gbianchi
    el 22 sep. 2017 a las 15:28
  • Porque cuando utilizo las herramientas de diagnostico de visual y tomo instantáneas de la memoria y veo la diferencia entre una y otra veo que en primer lugar aparece como la característica que mas crece "Execution Contest" luego despliego la caracteristica mencionada y aparece que lo que hace crecer la memoria es lo siguiente: "QueueUserWorkItemCallback" y asumo que eso se produce porque uso el ContextCallBack.
    – David
    el 22 sep. 2017 a las 15:34
  • no sera la cadena de texto? la estas pasando por valor, o sea la copias...
    – gbianchi
    el 22 sep. 2017 a las 15:54
  • No entendí aquello. Voy a tratar de explicar lo que hago. Imagina que me llega un dato del puerto serie. En ese punto yo uso esto " SetText1(data)" para mostrar el dato en una caja de texto. Pero en el metodo SetText1 acabo de notar que si lleva en la definición lo siguiente: "Private Sub SetText1(ByVal [text] As String)". El ByVal es por valor. Así que asumo que eso es lo que me intentas decir que debo cambiar?
    – David
    el 22 sep. 2017 a las 16:08

1 respuesta 1

0

puedes emplear una libreria/funcion que libere memoria:

Module Utilidades

    Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean

    Public Sub LiberarMemoria()

     Try

      Dim memoria As Process
      memoria = Process.GetCurrentProcess()
      SetProcessWorkingSetSize(memoria.Handle, -1, -1)

     Catch ex As Exception

     End Try

    End Sub

End Module

Link

Te sugiero que agregues mas control sobre el dimensionamiento de variables, y que al mismo tiempo compruebes los datos, sigue las buenas practicas y controles de datos, esto te ayudara a reducir el impacto sobre la memoria..

12
  • Permiteme pruebo haber si se soluciona mi inconveniente. Muchas gracias!
    – David
    el 22 sep. 2017 a las 16:37
  • No he tenido suerte! Aun implementando aquello con lo que me has indicado veo que las fotos instantáneas de la memoria continúan en aumento.
    – David
    el 22 sep. 2017 a las 17:03
  • tambien esta este otro enlace en ingles: stackoverflow.com/a/19720171/4717133
    – user46896
    el 22 sep. 2017 a las 19:37
  • Gracias por el aporte. Intente ver el link pero no hay información. Use lo poco que pude ver de las ayudas ahí expuestas y tampoco me ha ayudado a solucionar el problema. Espero encontrar la solución pronto.
    – David
    el 23 sep. 2017 a las 14:22
  • tendrías que ver si es algún problema en la optimización del código, o no estas usando la mejor manera de manejo de variables.
    – user46896
    el 23 sep. 2017 a las 15:05

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.