Como puedo definir un semaforo en mi aplicación Delphi??
 

Hola amigos, tengo una aplicación que funciona en multipuestos. Dicha aplicación tiene varios procesos, los cuales se me bloquean dando el consiguiente error en la aplicación.

Defino uno de los procesos, en este un usuario está atacando a una tabla con varios valores, los cuales mediante un procedimiento les realizo un recalculo de datos, sería el tipico proceso que se haría en un stock de almacen o en un recalculo de saldos en una aplicación de contabilidad. pues bien si en ese mismo momento otra persona realiza el mismo proceso, la aplicación da error, provocando deadlocks en la mayoria de las veces.

No se si me he explicado con claridad, pero como podría solucionar el error? Tengo entendido leyendo algunos manuales que se debería utilizar lo que se denomina un Semaforo, pero cual seria el codigo correcto de dicho semaforo?

Gracias :D

Una opción sencilla puede ser utilizar una tabla auxiliar de procesos iniciados, si solo se pretende controlar uno pues necesitaríamos un campo lógico y quizás apuntar en un campo texto el nombre del usuario que bloquea el proceso.

Para comenzar el proceso, leemos la tabla auxiliar y si el campo está puesto a Sí , damos mensajes, atención proceso bloqueado por el usuario xxxxx

Sería conveniente también que el administrador pueda desbloquear este proceso, pues puede darse un mal apagado o cuelgue de la aplicación y quedarse para siempre inutilizado.

Un Saludo.