FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Garantizar de 1..N Instancias Activas en Memoria por Aplicación para Delphi y Lazarus
Club Delphi,
Revisen el siguiente código en Delphi: El código anterior en Delphi 7 Sobre Windows 7 Professional x32, permite tener una sola instancia activa en memoria de una aplicación. Revisen el siguiente código en Lazarus: El código anterior en Lazarus Versión #:1.2.6 FPC Version 2.6.4 bajo Windows 7 Professional x32 , permite tener una sola instancia activa en memoria de una aplicación. Nota: 1- Para tener una sola instancia de una aplicación tanto en Delphi como en Lazarus, solo debe agregarse la unidad SingleInstance al proyecto Delphi/Lazarus, la unidad ejecutara de forma automática el procedimiento CheckInstance al inicializarce y el procedimiento FreeMutex al finalizar. 2- Básicamente el código de Delphi y Lazarus es el mismo, solo varía en la forma de finalizar la aplicación. 3- MutexName, es el nombre de la aplicación para efectos de exclusión el cual debe ser único para las funciones de Mutex. Revisen esta información: Cita:
Nelson. Última edición por nlsgarcia fecha: 02-04-2015 a las 23:33:50. |
#2
|
||||
|
||||
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
#3
|
||||
|
||||
Club Delphi,
Revisen este código: El código anterior en Delphi XE7 Sobre Windows 7 Professional x32, permite por medio de un Semaphore definir el número de instancias activas en memoria de una aplicación en función de los requerimientos de la misma, según se muestra en la siguiente imagen con un máximo de 3 instancias permitidas en este caso: Nota: 1- Para controlar el número de instancias de una aplicación tanto en Delphi como en Lazarus, solo debe agregarse la unidad SingleInstance al proyecto Delphi/Lazarus, la unidad ejecutara de forma automática el procedimiento CheckInstance al inicializarce y el procedimiento FreeMutex al finalizar. 2- El código propuesto funciona correctamente en Delphi 7 y Lazarus Versión #:1.2.6 FPC Version 2.6.4 bajo Windows 7 Professional x32. 3- SemaphoreName, es el nombre de la aplicación para efectos de exclusión el cual debe ser único para las funciones de Semaphore. 4- NumberInstance, es el número de instancias máximas permitidas para una aplicación en función de sus requerimientos de performance y/o recursos. 5- Este código es una ampliación del código del Msg #1, ambos son equivalentes funcionalmente si el número de instancias (NumberInstance) es 1 . Revisen esta información: Cita:
Nelson. |
#4
|
||||
|
||||
Club Delphi,
Cita:
Revisen este código: El código anterior en Delphi 7 sobre Windows 7 Professional x32, permite crear un Globally unique identifier, que identifique de forma unívoca una aplicación para la creación de un Mutex o un Semaphore, como se muestra en la siguiente imagen: Nota: 1- Este código es un complemento para el código de los Msg #1 y Msg #3. 2- El Globally unique identifier (GUID) generado, esta disponible por medio del Clipboard. Espero sea útil Nelson. Última edición por nlsgarcia fecha: 05-04-2015 a las 05:35:50. |
#5
|
||||
|
||||
Una preguntita. ¿Por qué para finalizar la aplicación se usa "Application.Terminate" en Delphi y "Halt" en Lazarus? Ya sé que la implementación de TApplication es diferente en VCL que en LCL, pero aun así, ¿no funcionaría el "Application.Terminate" en Lazarus?
Ya sé, podría hacer yo la prueba... |
#6
|
||||
|
||||
Guillermo,
Cita:
Revisa esta información: Tomado de : TCustomApplication.Terminate Según entiendo por las pruebas realizadas, en Lazarus no hay una verificación del método DoRun si Application.Terminate es ejecutado desde la sección de Initialization, por lo cual es necesario usar Halt en este caso. Saludos, Nelson. |
#7
|
||||
|
||||
Gracias Nelson.
|
#8
|
||||
|
||||
Curiosidad..., ¿y funcionará ésto en Delphi Berlin?
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively... "Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum. Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco |
#9
|
||||
|
||||
Tiene que funcionar
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Evitar múltiples instancias en Lazarus | Stereo100 | Lazarus, FreePascal, Kylix, etc. | 3 | 13-04-2015 09:40:18 |
Aplicación para Mac con Lazarus | Jovalca | Lazarus, FreePascal, Kylix, etc. | 17 | 15-05-2014 21:32:28 |
FTP para subir archivos al servidor en DELPHI y me sirva para lazarus = | koiji | Delphi para la web | 2 | 05-02-2013 16:52:06 |
Evitar abrir dos instancias en Lazarus | pedrolazarus | Lazarus, FreePascal, Kylix, etc. | 7 | 17-11-2012 19:50:05 |
DCOM, instancias de una aplicación, Mensajes y Mapeo de ficheros en memoria | Aldo | OOP | 0 | 15-09-2006 19:09:36 |
|