Dos aplicaciones una conexión

[Ivano]

Si bién, la idea es hacer un "StartTransaction" en la primera aplicación, llamar a la segunda aplicación, que esta segunda realice las operaciones en base de datos que deba hacer(dentro de la transacción). Para poder realizar esto necesito mantener el mismo "conection" y ahi esta el tema, por ejemplo si el motor de base de datos al que accedes funciona por licencias en este caso yo querría realizar solo una conexión a base de datos(unal licencia) ...

[Neftali [Germán.Estévez]]

Busca acerca de "Connection Pool" en Delphi; No se si es exactamente lo que necesitas, pero va por ahí.
Échale un vistazo a este componente, aunque tal vez puedas encontrar algo similar Free.

[Ivano]

Mushas gracias, he leído por encima las funcionalidades del componente y tiene buena pinta, seguiré investigando y si encuentro algo Free os lo dejo aquí.

[Ivano]

Por fin conseguí que funcionase pese a que no utilicé el componente que aparentemente tenía buena pinta, pos bién lo que hice no fue más que pasarle el objeto TDatabase a la segunda aplicación via parametro como un pointer(la segunda aplicación es una DLL).

Definición Aplicación A:

TFuncionCall = function(P: Pointer) ;
funcCall: TFuncionCall;

Llamada de Aplicación A -> Aplicación B:

@funcCall := GetProcAddress(HandleDLL, 'FuncionCall');
result := funcCall(DataModule1.DB1);

al llegar a esta segunda aplicación (Aplicación B) realizo los siguientes pasos:

DataModule2.DB2 := P;
if DataModule2.DB2.InTransaction then
begin
-----
end;

El resultante son dos aplicaciones con un componente TDatabase cada uno apuntando a la misma conexión. De esta forma puedes consultar el estado de la conexión desde las dos aplicaciones y el numero de licencias conectadas al motor es solo uno.

Gracias y hasta otra.