como migrar de codigo dbase a otro ¿? clipper u otro ?

[mainau]

Buenas tardes , a ver si me dejo de dar cabezazos,, bien el problema es el siguiente :

Tengo un cliente con una aplicacion hecha en dbase compilado y necesita que funcione en red, e intentado ir leyendo la aplicación (tiene los fuentes) y cambiar las llamadas a bases exclusivas y cuando son a varias ponerlas en shared pero no confio ni un poquito y ademas cada vez que empieza a cargar cualquier modulo me indica que necesita exclusividad total que yo queria pasarla a delphi pero no tengo tiempo suficiente y necesitaria alguna pocion magica para que el puñetero programa funcionara o mejor dicho soportara que lo llamaran desde varios ordenadores pero de distintos modulos por lo menos asi podrian meter los datos y medio funcionar hasta yo tener terminado la aplicacion que lo sustituya .

Si se os ocurre algo , lo que sea , contadmelo seré todo oidos , un abrazo juan.

gracias.

[marcoszorrilla]

En Clipper te pongo un ejemplo:

Código Delphi [-]
FUNCTION ABREFICH(nModo)
       IF nModo == 1
       DbUseArea(.T.,,cCamino+cFichero,cAlias,.T.)
       ELSE
       DbUseArea(.T.,,cCamino+cFichero,cAlias,.F.)
                IF NETERR()
                lPacked:=.F.
                ELSE
                lPacked:=.T.
                END
       END
RETURN(nil)

Un Saludo.

[marcoszorrilla]

Otro ejemplo para hacer un bloqueo:

                WHILE !PRIXGEN->(EOF())
                nValor:=(++nCon)*100/nUltimo
                        IF nValor < 2
                        nValor:=2
                        END
                GAUGE(nValor)

                        
                        WHILE !PRIXGEN->(RLOCK())
                        END

                PRIXGEN->NUEVOPREC:=0
                PRIXGEN->MRGFUTURO:=0
                        PRIXGEN->(DbUnLock())
                PRIXGEN->(DbSkip())
                END

Un Saludo.

[marcoszorrilla]

Estoy consultando un viejo libro de Dbase IV y te recomiendo busques ayuda sobre las funciones:

Flock()
LkSys()
Lock()
RLock()
Set Lock
UnLock
Set Exclusive
Use

Un Saludo.