Foros Club Delphi - como migrar de codigo dbase a otro ¿? clipper u otro ?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - como migrar de codigo dbase a otro ¿? clipper u otro ? (https://www.clubdelphi.com/foros/showthread.php?t=10881)

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

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.

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.

Otro ejemplo para hacer un bloqueo:

Código:

                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.

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

Código:

Flock()

LkSys()

Lock()

RLock()

Set Lock

UnLock

Set Exclusive

Use

Un Saludo.