Foros Club Delphi - Bloqueo Ibx Firebird AND threads

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Bloqueo Ibx Firebird AND threads (https://www.clubdelphi.com/foros/showthread.php?t=40733)

Bloqueo Ibx Firebird AND threads

Hola, tengo un pequeño problema, siento que es muy sencillo, pero me gustaria saber si alguien del foro lo ha intentado.

Crear dos Threads en la misma aplicacion, cada uno con una Query y Transaction, y una sola conexion a una base de datos o tambien sucede con dos conexiones una para cada Transaction y Query, en cada Query colocar cualuier consulta por sencilla que sea. Despues Ejecutar primero uno de los Threads, determinar que realmente esta consultando sin problemas, y Despues por medio de un boton por ejemplo Arrancar el otro. La idea es que cada Thread este ejecutando una consulta al mismo tiempo.

El resulatado es que Cuando el segundo thread arranca y utilizar cualquiera de los componentes de Ibx por ejemplo StartTransaction la aplicacion se bloquea inmediatamente.....:confused: , como puedo evitar esto, es posible hacerlo
o no lo es, ya he intentado con todo, pero no lo he logrado.
Este prolema tiene un reto mas, esto tendria que hacerse sin usar Semaforos o Secciones Criticas la idea es que ambas consultas se esten ejecutando al mismo tiempo, sin que una tenga que esperar a la otra...
Si con Ibx no es posible existe algun otro componente que sea capaz de hacerlo , ya lo intente con Ibo y el resultado es el mismo... Por su amable ayuda muchas gracias

He utilizado para estas pruebas Borland C++ 6.0 , Firebird-1.5.3.4870 y Ibx 6.08

Como creas los query, porque por cada thread tenes que crear la consulta, a ver si me explico mejor, tenes que crear dentro del thread el TQUERY o componente que uses con su correspondiente transaction.

Espero que me entiendas

Suerte

Cita:

Empezado por aledieb

Muchas gracias por el Tip, pero sucede exactamente lo mismo, aun cuando sea creado cada elemento en el Thread de forma dinamica.
El de Conexion a la Base de Datos ( Cada Thread con su conexion), la Transaccion, y el Query.

En la Creacion:

Código:

 

IBDatabase =new  TIBDatabase(NULL);

IBDatabase->DatabaseName="DBX.FBD";

IBDatabase->Params->Add("user_name=SYSDBA");

IBDatabase->Params->Add("password=masterkey");

IBDatabase->LoginPrompt=false;



IBTransaction = new TIBTransaction(NULL);

IBTransaction->DefaultDatabase = IBDatabase;

IBTransaction->Params->Add("write");

IBTransaction->Params->Add("consistency");

 

IBQuery = new TIBQuery(NULL);

IBQuery->Transaction = IBTransaction;

IBQuery->Database =  IBDatabase;

IBQuery->SQL->Add("select * from TableX");

Execucion:

Código:

 

void __fastcall TTest::Execute()

{

 IBDatabase->Connected=true;

 while(!Terminated)

  {

  try{

     IBTransaction->StartTransaction();

     IBQuery->Open();

     IBTransaction->Commit();

     Sleep(1);

     }

     catch (Exception &exception)

                 {

                 }

  }

}

Cuando se crea el Segundo Thread sucede el Congelado.

No se si este sera el problema probalo, despues de crear el IBTransaction agrega:

Código Delphi [-]IBDatabase->Transaction = IBTransaction;

y fijate a ver que pasa