FiveTech Support Forums

luisduque wrote:Maestro Antonio

1. libmysql.dll en 32bits y 64bits se debe llamar asì hay que cambiar de nombre a libmysql64.dll por libmysql.dll para poder trabajar en 64bits existe alguna manera de trabajar con libmysql.dll y libmysql64.dll en la misma carpeta asi como se trabaja freeimage.dll y freeimage64.dll.

2. coloco un ejemplo sencillo donde cada vez que se revisa una procedimiento se incrementa la memoria, es como si no cerrara el oRcs coloco un ejemplo
cada vez que entra a CalCtaAntDH se incrementa la memoria.

Code (fw): Select all Collapse

   oRcs := oConexion:Query("Select * From MaesCont Order by NroAsi")
    If oRcs==Nil
        Return(.f.)
    EndIf
   While !oRcs:Eof()

        fNroAsi := oRcs:Fields("NROASI"):Value
      fFecAsi := oRcs:Fields("FECASI"):Value

        fTotDeb := 0
        fTotHab := 0 

       oRcsC := oConexion:Query("Select * From DetaCont Where NroAsi="+str(fNroAsi))
        If oRcsC==Nil
            Return(.f.)
        EndIf
        While !oRcsC:Eof()

          fCodCta := oRcsC:Fields("CODCTA"):Value
       fDebe   := oRcsC:Fields("DEBE"):Value
        fHaber  := oRcsC:Fields("HABER"):Value

            fTotDeb += fDebe
            fTotHab += fHaber

            CalCtaAntDH(fCodCta,fDebe,fHaber,"+")

           oRcsC:MoveNext()
        EndDo

        oRcs:Fields("TotDeb"):Value := fTotDeb
        oRcs:Fields("TotHab"):Value := fTotHab

        oRcs:Save()

       oRcs:MoveNext()
    EndDo
//
Procedure CalCtaAntDH(fCodCta,fDebe,fHaber,fSumRes)

    oRcsA := oConexion:Query("select * from cuentas where `codcta`='"+fCodCta+"'")
    If oRcsA==Nil
        Return(.f.)
    EndIf
    If !oRcsA:Eof()
        If !Empty(fDebe)
           If fSumRes = "+"
                oRcsA:Fields("Debe"):Value  += fDebe
            Else
                oRcsA:Fields("Debe"):Value  -= fDebe
            EndIf
        EndIf

        If !Empty(fHaber)
           If fSumRes = "+"
                oRcsA:Fields("Haber"):Value += fHaber
            Else
                oRcsA:Fields("Haber"):Value -= fHaber
            EndIf
        EndIf

        oRcsA:Save()
    EndIf   

    oRcsA:Close()

El mismo resultado con la versión 16.05 y 16.06

Nota: Con ADO no aumenta la memoria en procesos de windows, con ese mismo ejemplo

Luis,

Has probado a hacer oRcs := nil después de usarlo ?

xmanuel wrote:Que yo recuerde esto sólo funciona en ADO

Code (fw): Select all Collapse

    fCodCta := oRcsC:Fields("CODCTA"):Value
       fDebe   := oRcsC:Fields("DEBE"):Value
        fHaber  := oRcsC:Fields("HABER"):Value

Maestro Antonio

Acabé de probar y la memoria aumenta

Nota: La idea del ejemplo es simplemente para mostrar un consumo de memoria que se produce, y es un simple ejemplo que se me ocurrió para poderlo mostrar y algo fácil de entender.

Y la idea es que estamos haciendo una comparación en paralelo ADO y TYMSQL para poder hacer el cambio a la nueva clase de fivewin

El detalle del consumo de memoria es cuando se usa un sistema todo un día y se hacen n cantidad de consultas se puede poner demasiado lento y eso es lo mas que hay que evitar.

Desconocía esas clases...
Si me las envías a mi correo particular podría echarles un vistazo para ver si descubro la pérdida de memoria

Luis,

> El detalle del consumo de memoria es cuando se usa un sistema todo un día y se hacen n cantidad de consultas se puede poner demasiado lento y eso es lo mas que hay que evitar

Cuando ocurra eso ve al administrador de tareas de Windows y revisa toda la información que aparezca: ficheros abiertos, consumo de GDI, consumo memoria, etc.
y publícalo aqui, gracias

Maestro Antonio

El caso con la clase TMySql es muy simple entro al sistema ejecuto el proceso y empieza aumentar la memoria en ese caso no es en 1 hora o en el dia, solo entro ejecuto y el consumo de memoria empieza.

Luis,

gracias por tu información

Lo estamos revisando a ver que pueda estar pasando