pero NO me parece normal que tengamos que FORZAR nosotros a entrar el recolector de basura.
Rafa;
Pues me parece fantástico. Luce muchas más fácil de usar que TxmlDocument(). No creo que cambie todo el código que tengo ya funcionando perfectamente, pero en una futura necesidad me gustaría poder dirigirme a un xml document usando un hash como veo en tu código. Lo que no mencionas es de donde sale esta librería mxml. O sea, ¿y como la consigo?
METHOD WriteXML() CLASS Twebtarifas
Local oNode, oNodeP, oNodeConcepto, aTarifa
oNode := ::CreateXML()
oNodeP := TxmlNode():New( HBXML_TYPE_TAG, ::Operacion )
oNodeP:SetAttribute( "CODIGOHOT", ::CodigoHot )
oNodeP:SetAttribute( "IDUSER", ::IdUser )
oNode:AddBelow( oNodeP )
if !empty( ::aTarifas )
for each aTarifa in ::aTarifas
oNodeConcepto := TxmlNode():New( HBXML_TYPE_TAG, "CONCEPTO" )
oNodeConcepto:SetAttribute( "PAX", UHtmlEncode( aTarifa[1] ) )
oNodeP:AddBelow( oNodeConcepto )
next
endif
RETURN ::oDoc:ToString() METHOD WriteXML() CLASS Twebtarifas
Local oNode, oNodeP, oNodeConcepto, aTarifa
oNode := ::CreateXML()
oNodeP := TxmlNode():New( HBXML_TYPE_TAG, ::Operacion )
oNodeP:SetAttribute( "CODIGOHOT", ::CodigoHot )
oNodeP:SetAttribute( "IDUSER", ::IdUser )
oNode:AddBelow( oNodeP )
if !empty( ::aTarifas )
oNodeConcepto := TxmlNode():New( HBXML_TYPE_TAG, "CONCEPTO" ) // Lo quito de debajo y lo pongo aquí
for each aTarifa in ::aTarifas
//oNodeConcepto := TxmlNode():New( HBXML_TYPE_TAG, "CONCEPTO" ) // Fuera de aqui esto
oNodeConcepto:SetAttribute( "PAX", UHtmlEncode( aTarifa[1] ) )
oNodeP:AddBelow( oNodeConcepto )
next
endif
RETURN ::oDoc:ToString()
xmanuel wrote:Hola Rafa, soy Manu de Sevilla...
Admitiendo que no estoy metido en estos líos tuyos por lo que no sé si lo que voy a decir tiene sentido para ti.
Este método WriteXML está bien?
Prueba así:
METHOD WriteXML() CLASS Twebtarifas Local oNode, oNodeP, oNodeConcepto, aTarifa oNode := ::CreateXML() oNodeP := TxmlNode():New( HBXML_TYPE_TAG, ::Operacion ) oNodeP:SetAttribute( "CODIGOHOT", ::CodigoHot ) oNodeP:SetAttribute( "IDUSER", ::IdUser ) oNode:AddBelow( oNodeP ) if !empty( ::aTarifas ) oNodeConcepto := TxmlNode():New( HBXML_TYPE_TAG, "CONCEPTO" ) // Lo quito de debajo y lo pongo aquí for each aTarifa in ::aTarifas //oNodeConcepto := TxmlNode():New( HBXML_TYPE_TAG, "CONCEPTO" ) // Fuera de aqui esto oNodeConcepto:SetAttribute( "PAX", UHtmlEncode( aTarifa[1] ) ) oNodeP:AddBelow( oNodeConcepto ) next endif RETURN ::oDoc:ToString()
No sé si coges la idea
reinaldocrespo wrote:Rafa;
Pues me parece fantástico. Luce muchas más fácil de usar que TxmlDocument(). No creo que cambie todo el código que tengo ya funcionando perfectamente, pero en una futura necesidad me gustaría poder dirigirme a un xml document usando un hash como veo en tu código. Lo que no mencionas es de donde sale esta librería mxml. O sea, ¿y como la consigo?
Eso depende Rafa, habría que ver que hace el método. Por lo que veo tiene la pinta que hace una copia nueva del item que se le pasa al métod...
Tu prueba a ver que pasa... 
Rafa,
Reabro el post porque creo que tendrias que poner hb_gcall(.T.)
Importante el .T. para forzar el recolector a ejecutar la accion, sino solo se hara cuando encuentre un idle. Eso podria explicar tus perdidas de memoria.
Explicacion del garbage collector en https://vivaclipper.wordpress.com/2014/ ... collector/
Por cierto, hablando de xml... ¿ alguien recomienda un buen editor/ visualizador de xml, a ser posible free ?
Saludos
Da igual. Además que ha veces se produce cuelgues inesperados.
He optado por usar la la mxml y solucionado.
Por cierto, mira esto, ahora con los createobjet() también se consume la memoria que da miedo;
http://xthefull.blogspot.com.es/2015/02 ... moria.html
Lo reporte en los foros de Harbour, nadie dijo nada... En fin... tendrán otras cosas que mirar.
Respecto a la herramienta uso Altova XMLSpy, es de pago, pero es muy muy buena.
Amigos:
Sin duda XML NotePad, es free.
http://www.microsoft.com/en-us/download ... px?id=7973
Saludos
Gente;
Si de algo les sirve, la clase TXMLDocument() fue arreglada en xharbour ya hace como dos años y desde entonces no padece de pérdida de memoria.
Reinado.
thefull wrote:Por cierto, mira esto, ahora con los createobjet() también se consume la memoria que da miedo;
http://xthefull.blogspot.com.es/2015/02 ... moria.html
Buenas
>>Por cierto, mi post venia porque en tu articulo utilizas hb_gcall(.f.) y a mi modo de ver ha de ser hb_gcall(.t.) y por ello ponia la direccion de donde hay una explicacion a todo esto del garbage collector
Es igual , lo pongas a .T. o lo pongas a .F., es que en el primer post, si lo pongo a .T. , no sé si tu aplicación usan threads, literalmente, a veces, casca.
Si coges el ejemplo, y lo haces andar, verás como no se libera la memoria. De lo contrario, deberá ser entonces mi compilador de C, en este caso uso Borland.
Cuando expongo algo, primero he realizado MULTIPLES pruebas, y dejo el ejemplo que demuestra, al menos desde mi parte, lo que está ocurriendo.
La solución que comentas , no funciona, aparentemente, en este ejemplo en concreto.
Y que la solución sea llamar al recolector de basura directamente, sorry, pero eso solo es un parche, que lo puede solucionar, no te digo que no, pero , bajo mi punto de vista, no es correcto.
Saludos Cordiales
