Discussion :

[dehorter olivier]

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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pprem]

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

[dehorter olivier]

Bonjour et merci pour la réponse

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[pprem]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[dehorter olivier]

Bonjour à tous

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

"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