Hola que tal, estoy usando los componentes PostgresDac 2.5.5 y quiero capturar los (eventos o mensajes) del postgres el 'Raise Notice' y enviarlo al formulario activo de la aplicación, una vez echo eso, que en cada formulario activo se programe lo que se quiera.
Resumen de lo que tengo:
1 - Modulo de datos con un PSQLDatabase, llamado DB.
2 - Un formulario llamado form1, que tiene un query1, tedit1, tbutton1.
3 - Un formulario llamado form2, que tiene otras cosas.
En la base de datos tengo la siguiente funcion
Código SQL
[-]
CREATE OR REPLACE FUNCTION probando(idprueba integer)
RETURNS integer AS
$BODY$
DECLARE
BEGIN
raise notice 'Prueba nº %', idprueba;
RETURN idprueba;
END;
$BODY$
LANGUAGE plpgsql VOLATILE;
ALTER FUNCTION probando(integer) OWNER TO postgres;
En el formulario 1 tengo.
El query1 tiene la siguiente instrucción.
select probando(:idprueba)
El codigo del button1 es:
Código Delphi
[-]
PSProbando.Close;
PSProbando.ParamByName('idprueba').AsString:= EProbando.Text;
PSProbando.Open;
--------------------------------
Ahora lo que quiero es programar el evento, onnotice del componente DB del modulo de datos para que, envié un mensaje al formulario activo y este lo capte y se produzca un evento que se pueda programar en el formulario.
Bueno espero que halla sido claro, estuve tratando de usar el componente application events, pero no se como enviarle un mensaje o string al formulario activo y que este al recibir el mensaje produzca el evento, además no quiero programar al formulario en modo de escucha, quiero que sea por evento.
Desde ya muchas gracias.