Manejo de Msnpopup

[Choclito]

Muchas gracias por tu comentario y ayuda,justamente es eso lo que quisiera lograr tipo mensajeria entre pcs, te comento que los componentes MDO cuentan con el componente MDOEvent, pero la verdad no tengo idea de como utilizarlo , te pido porfavor que si tuvieras un ejemplo me puedas indicar. mil gracias por todo

[rgstuamigo]

Has un a búsqueda con palabras clave como "IBEvents" de de seguro encontrarás muchos hilos(Temas) que hablan de su uso.
Saludos...

[[AzidRain]]

Otra forma un poco mas sencilla que no te requerirá mucha programacion:

1.- Creamos una tabla que llamaremos "mensajes" y ahi defines como va a ser el mensaje (de quien para quien, fecha y hora, etc.)
2.- En los módulos donde quieras "mandar un mensaje" simplemente haces una inserción en la tabla anterior y llenas con los datos necesarios.
3.- En los módulos coloca un timer que cada x segundos vaya y con un select vea si hay mensajes sin leer en la tabla "mensajes", si es así mandas el aviso y das oportunidad de leerlo. Una vez leído, marcas el registro para que la próxima vez que se dispare el timer ya no vuelva a "avisar".

Es un método muy sencillo pero funciona bien, además de que adicionalmente puedes mantener un historial de mensajes si así lo quieres. Y como "enviar" un mensaje es una mera inserción de un registro, puedes colocar esta rutina en cualquier parte de tu sistema donde lo requieras.

[Choclito]

Muchas gracias amigo AzidRain del foro por la sugerencia, lo pruebo y luego comento como me va.
Antes indicarle que gracias a las anteriores sugerencias y ejemplos de ibevent en el foro pude hacerlo, el problema era que podia mostrar el mensaje con un showmessage, mi intencion era mostrar con un tmsnpopup el nombre del paciente registrado en el otro modulo, pero cuando colocaba el codigo de popup.showpopup no mostraba nada, lo cambie por un showmessage y funciono, el problema era que cuando queria cerrar el otro modulo me daba un error con codigo 1400 y no sabia que hacer.
Esta ultima opcion la probare y luego les comento amigos del foro, mil gracias

[rgstuamigo]

Empezado por AzidRain

...
3.- En los módulos coloca un timer que cada x segundos vaya y con un select vea si hay mensajes sin leer en la tabla "mensajes", si es así mandas el aviso y das oportunidad de leerlo. Una vez leído, marcas el registro para que la próxima vez que se dispare el timer ya no vuelva a "avisar".

Bueno es una alternativa más la que nos comentas el amigo AzidRain y no quiero menospreciarla, al intentar de dar el siguiente comentario, de ninguna manera :
Bueno algo que le veo en contra es el hecho de estar cada "x" segundo haciendo un "SELECT" al base de dato, ésto me no me parece acertado, ya que estariamos saturando la red y el servidor demasiado, y peor aun si existen muchos usuarios conectados, si bien los servidores de BD de hoy en día son muy eficientes y potentes, pero no podemos (en mi opinion) darlos el lujo de lanzar cada x segundo una consulta nada más para hacer eso, pues no me perece muy óptimo, lo ideal para mí sería que cuando se inserte o edite un registro en la BD, el servidor de BD notifique de dicho cambio a la aplicación desde donde se ha hecho la insercion o Modificacion y es exactamente lo que logra el componente "IBEvents" atraves de algun Triggers
Es solo mi opinion personal...
Nuestro amigo Choclito es quien toma la decision de la manera que lo va a hacer?
Saludos...

[Choclito]

Gracias amigos del foro comentarles lo siguiente:
aplicando mdoevent les cuento que tengo los siguientes problemas:
Antes nuevamente decirles que lo que quiero es que en enfermeria registran a un paciente y quiero que en el modulo de caja me muestre un mensaje
Con los ejemplos de manejo de ibevent lo adecue a mi aplicacion pero tengo los siguientes problemas:
1.- En principio queria que el mensaje que se muestre en el modulo de caja sea con un msnpopup pero no daba nada, el codigo es el siguiente:

Código Delphi [-]

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN
popup.Text:='Paciente dado de alta'; 
 popup.ShowPopUp;
//showmessage('paciene dado de alta');
//MsgBox ('Sistema S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end;

, luego para verificar si realmente trabaja el componente probe con un showmessage y dio el mensaje, pero luego como tengo una unidad para personalizar mis mensajes(esto gracias al foro tambien) entonces lo que hice es llamar al form del mensaje para mostrar el mensaje,el problema esta es que tengo varios botones que llaman al form del mensaje , el sistema me da error de debuger exception notification "el identificador de la ventana no es valido", donde esta el error
,el codigo es este:

Código PHP:

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN

//showmessage('paciene dado de alta');
MsgBox ('Sistema S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end; 


Cual seria el error? o que soluciones le doy? Muchas gracias amigos por el aporte brindado, y sobre el anterior post lo probe sobre crear una tabla de mensajes y por ultimo creo q utilizare esa opcion, pero me gustaria explotar las ventajas de firebird, mil gracias

[Choclito]

aclarando cuando se da de alta al paciente en el modulo de enfermeria , con el siguiente codigo:

Código PHP:

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN

MsgBox ('S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end; 


Me muestra el mensaje en el modulo de caja, pero cuando hago click en varios botones que llaman al MsgBox me da el error que anteriormente ya les comente, la verdad nose como arreglarlo,estare agradecido por los comentarios, mil gracias

[Choclito]

Disculpen que nuevamente consulte,que es lo que me faltaria hacer (codigo) para que me muestre o se ejecute el popup.showpopup pues llamando al showmessage comprobe que el ibevent funciona
Ahora creo q utilizando el msnpopup seria mas visual los mensajes es por eso que hago la consulta, mil gracias por las sugerecias brindadas amigos foreros