[FIREDIRD] [FIREDAC] Firedac et le Thread

Bonjour à tous

Je suis en train de basculer une appli qui utilisait les composants IbDAC vers Firedac sous Delphi XE7, mais j'ai des difficultés à lancer une connexion dans un thread.

J'ai suivi la procédure indiquée par :
http://docwiki.embarcadero.com/RADSt...ding_(FireDAC)
https://riptutorial.com/fr/delphi/ex...xemple-firedac

Ainsi, le FdManager est activé avec avec la définition de connexion fournie avec FDManager.AddConnectionDef('appli', 'FB', Param);
La définition de la connexion est privée comme cela est recommandé ( http://docwiki.embarcadero.com/RADSt...xion_(FireDAC) ) pour l'utilisation dans un Thread
Dans Param, j'ai bien indiqué que la connexion est pooled (Pooled=True) comme indiqué dans les tutos.

mais rien n'y fait.
Je reçois le message :

Citation:

Le projet xxx a déclenché la classe d'exception Exception avec le message : 'Can't perform operation on inactive transaction'

à la création de la connexion

Code:

Base_FireDac := TFDConnection.Create(nil);

Pour infos, j'utilise le composant de JEDI VCL pour le thread (TJvThread) au cas où cela peut avoir une incidence.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 PROCEDURE TfData.Th_Envoi_ErreurExecute(Sender: TObject; Params: Pointer); VAR Base_Firebird: TIBCConnection; Trans_Firebird: TIBCTransaction; .... begin Base_FireDac := TFDConnection.Create(nil); Base_FireDac.ConnectionDefName := 'appli'; ...... end;
Je ne vois pas ce que j'ai manqué ? des idées ?
merci d'avance

ah :( le message maudit qui arrive parfois sans explication.

j'aimerais juste comprendre pourquoi tu déclares des TIBCConnection et les crée en tant que TFDConnection

Bonjour et merci pour la réponse

Citation:

j'aimerais juste comprendre pourquoi tu déclares des TIBCConnection et les crée en tant que TFDConnection

Parce que les différents éléments dans le thread doivent être "autonome", non ? J'ai suivi l'exemple présenté par Embarcadero ci-dessous ( http://docwiki.embarcadero.com/RADSt...ding_(FireDAC) )
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TDBThread.Execute; var oConn: TFDConnection; oPrc: TFDQuery; begin FreeOnTerminate := False; oConn := TFDConnection.Create(nil); oConn.ConnectionDefName := 'Oracle_Pooled'; // see next section oPrc := TFDStoredProc.Create(nil); oPrc.Connection := oConn; try oConn.Connected := True; oPrc.StoredProcName := 'MY_LONG_RUNNING_PROC'; oPrc.ExecProc; finally oPrc.Free; oConn.Free; end; end;
Je déclare la connexion puis je la crée.

Par contre, je me suis trompé dans mon exemple (j'ai déclaré des éléments de IbDac :( )
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 PROCEDURE TfData.Th_Envoi_ErreurExecute(Sender: TObject; Params: Pointer); VAR Base_FireDac : TFDConnection; Trans_FireDac: TFDTransaction; .... begin Base_FireDac := TFDConnection.Create(nil); Base_FireDac.ConnectionDefName := 'appli'; ...... end;
Ce n'est pas correct ?

Citation:
Envoyé par dehorter olivier
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 PROCEDURE TfData.Th_Envoi_ErreurExecute(Sender: TObject; Params: Pointer); VAR Base_FireDac : TFDConnection; Trans_FireDac: TFDTransaction; .... begin Base_FireDac := TFDConnection.Create(nil); Base_FireDac.ConnectionDefName := 'appli'; ...... end;
Ce n'est pas correct ?
comme ça, si, ça devrait passer

as-tu des transactions sur ta base ? fermes-tu les connexions quelque part une fois plus utilisées ?

Bonjour à tous

J'ai trouvé la solution à partir de l'indication de pprem

Citation:

"fermes-tu les connexions quelque part une fois plus utilisées ? "

Oui, il me restait une transaction ouverte avant de lancer le thread. Je l'ai fermé et maintenant cela fonctionne.

Donc avant d’exécuter un Thread, il faut faire attention de bien avoir fermer les transactions du "principal" (je suis sûr que ce n'est pas comme cela que cela s'appelle)

A+ et a d'autres posts :(