Con FWH 2.7, DbUnLock() se pega cuando ejecuto en red

[gdeteran]

Tambien pasa con DbCommit().
Cuando aplicacion y basedatos estan locales no hay problemas.

Lo raro es que con la version Oct. 2002 de FWH no pasa esto.

Si alguien me puede ayudar, le agradezco de antemano.

Saludos

Gonzalo

[Antonio Linares]

Gonzalo,

Que build de FWH 2.7 estás usando ? De qué mes ?

Que RDD estás usando ?

[gdeteran]

Antonio :

Lo baje de fivetechsoft.com/software/fwh el 6 de Junio de 2006.
Uso CDX

[Antonio Linares]

Gonzalo,

Puedes descargar Harbour/xharbour de estos foros. Hay un build más reciente:

http://fivetechsoft.com/forums/viewtopi ... highlight=

[gdeteran]

Antonio:

Trato de bajar el build de June 28 2006 :

Harbour for Borland:
http://hyperupload.com/download/026ece0 ... r.EXE.html

pero, no esta disponible la pagina.

Se puede bajar de otro sitio?

Gracias
Gonzalo

[Antonio Linares]

Gonzalo,

Vuelve a intentarlo por favor. Aquí aparece como disponible.

[gdeteran]

Antonio :
Ya encontre el problema. Es que uso esta funcion en vez de RLock().
Pero sigo sin saber porque con esta version de FWH se pega.

Saludos
Gonzalo

Code: Select all

 Function RecLock(nSeconds)
*--------------------------
 /*  Attempt to RLOCK() with optional retry
     RecLock( <nSeconds> ) --> lSuccess
 */
    local lforever
    DEFAULT nSeconds TO 0

    if rlock()
       return .t.                        // LOCKED
    endif
    nSeconds *= 1.00
    lForever := (nSeconds == 0)

    DO WHILE (lforever .OR. nSeconds > 0) .AND. LASTKEY() # VK_ESCAPE
       MsgAlert(PADC( [Registro tomado por otro usuario : Esperando ] +;
        LTRIM(STR(nSeconds,5,1))+[ segundos],81)+CRLF+PADC([<Esc> Termina (No actualiza reg) ], 85) )

       IF RLOCK()
          RETURN .T.                     // LOCKED
       ENDIF
       INKEY(.5)      // wait 1/2 SECOND
       nSeconds -= .5
    enddo

    RETURN .F.                           // NOT LOCKED
    // end Function reclock()

[gdeteran]

Noo, me equivoque, sigo con el problema.

Baje el ultimo build de harbour y sigue el error.

Cuando acceso al programa en un disco remoto sucede el error, sin embargo el mismo ejecutable en forma local funciona perfecto.

La basedato la tengo en un PC con Win98 y acceso desde otro PC con XP

Saludos,
Gonzalo

[Antonio Linares]

Gonzalo,

Las funciones de "terminal" de Harbour han sido modificadas ultimamente, de ahí que un determinado build de Harbour/xHarbour pueda estar dándote esos problemas.

En principio en una aplicación Windows no debes usar ni LastKey() ni Inkey() (ambas funciones pertenecen a los módulos "terminal" de Harbour/xHarbour).

Nuestro consejo es que modifiques esa función para que no use esas dos funciones. En vez de Inkey() puedes usar SysWait( nSecs ) y LastKey() podrias eliminarla completamente.

[gdeteran]

Antonio:

Ahora estoy usando directamente RLock() sin pasar por la funcion RECLOCK().

Definitivamente el problema se da cuando la base esta en Win98 y se accesa desde XP. Probe con 2 PC's con XP y no se da el error. Tambien probe teniendo la base en XP y accese desde Win 98 y tampoco se da el error.
Y para estar seguro accese desde un segundo PC c/XP a una base en Win98 y tambien se dio el error.

Saludos
Gonzalo

[gdeteran]

Sera la unica solucion cambiar los datos a PC con WinXP ??

[Antonio Linares]

Gonzalo,

Nosotros podemos facilitarte un build de Harbour más actualizado, pero necesitarás recompilar todos los PRGs tanto de FWH como de tu aplicación.

Envíanos un email y te lo proporcionamos.

[Armando Picon]

Gonzalo,

Nosotros podemos facilitarte un build de Harbour más actualizado, pero necesitarás recompilar todos los PRGs tanto de FWH como de tu aplicación.

Envíanos un email y te lo proporcionamos.

Antonio..

Esa recompilación de FWH lo haces con un Batch?. Podrías enviarme a mi email: apic1002002@yahoo.es lo que enviarás a Gonzalo?

Te agradecería muchiiisimo.

Saludos

Armando

[Antonio Linares]

Armando,

No, no usamos un batch. Usamos un make bastante complejo ya que construye FW para cinco compiladores distintos.

En unos dias publicaremos el build de Agosto con todos los _ y los builds más recientes de Harbour y xHarbour, que no quisimos publicarlos en Julio porque no estaban totalmente estables.

[Armando Picon]

Ok

Quedo a la espera!!!

Armando

Armando,

No, no usamos un batch. Usamos un make bastante complejo ya que construye FW para cinco compiladores distintos.

En unos dias publicaremos el build de Agosto con todos los _ y los builds más recientes de Harbour y xHarbour, que no quisimos publicarlos en Julio porque no estaban totalmente estables.