jueves, 29 de enero de 2015

Harbour. The Lost of Memory. 2 Parte ( UPDATE )








Aplicando un pequeño parche al codigo;

function play_doc(  )
   Local oTarifas
   Local cEncoding := "ISO-8859-1"

  
   oTarifas := Twebtarifas():New()
   for x := 1 to 10
       oTarifas:Append( X )
   next

   UAddHeader( "Content-Type", "text/xml;charset=utf-8" )
   UWrite( oTarifas:WriteXML() )
  
   // PATCH
   oTarifas := NIL
   HB_GCALL( .F. ) // limpia basuras .T. fuerza


RETURN nil

Pero si miramos el gráfico, los picos de memoria en la imagen gráfica amarilla, llega a hasta a 9Mb RAM , finalmente se queda en 5Megas RAM

Pero ojo, esto se queda así , y se va acumulando cada vez que hay más y más peticiones.
A la larga, el programa necesita ser reiniciado por el consumo excesivo de memoria.

GTXSII. Visual Basic .NET

Estamos trabajando muy duro en intentar en soportar más lenguajes de programación para nuestra librería GtxSII, para el Suministro Inmedi...