Page 1 of 1

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

Posted: Fri Aug 18, 2006 7:18 pm
by 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

Posted: Fri Aug 18, 2006 9:05 pm
by Antonio Linares
Gonzalo,

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

Que RDD estás usando ?

Posted: Fri Aug 18, 2006 11:04 pm
by gdeteran
Antonio :

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

Posted: Sat Aug 19, 2006 1:10 am
by Antonio Linares
Gonzalo,

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

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

Posted: Tue Aug 22, 2006 4:15 pm
by 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

Posted: Tue Aug 22, 2006 7:15 pm
by Antonio Linares
Gonzalo,

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

Posted: Tue Aug 22, 2006 11:12 pm
by 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()

Posted: Tue Aug 22, 2006 11:42 pm
by 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

Posted: Tue Aug 22, 2006 11:46 pm
by 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.

Posted: Wed Aug 23, 2006 12:10 am
by 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

Posted: Wed Aug 23, 2006 6:07 pm
by gdeteran
Sera la unica solucion cambiar los datos a PC con WinXP ??

Posted: Wed Aug 23, 2006 6:24 pm
by 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.

Posted: Thu Aug 24, 2006 3:57 pm
by Armando Picon
Antonio Linares wrote: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

Posted: Thu Aug 24, 2006 4:34 pm
by 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.

Posted: Tue Aug 29, 2006 6:06 pm
by Armando Picon
Ok

Quedo a la espera!!!

Armando
Antonio Linares wrote: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.