Discussion :

[lopezpacheco]

Bonjour,
Je parcours les forums et tutoriels firebird pour trouver le problème de code ou d'implémentation pour les composants ibx.

J'ai une application qui captent des informations de passage de véhicules.
Cette application scrute 8 voies de passage via un middleware industriel.

Pour chaque passage détecté j'appelle une procédure de création de passage qui met en forme des informations et qui appelle une procédure stocké me renvoyant un identifiant de passage.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
{*--------------------------------------------------------------------------------------------------
Description : fonction permettant d'appeler une procedure stocquée de la bdd en passant son nom
@param stockproc nom de la procédure stoquée dans la base de donnée
@return identifiant generé par la procedure stockée appelé en parametre
@Author Thierry Lopez-Pacheco
@Version 2005/01/17 TLP V0.1 InitialVersion
@Version 2005/04/22 TLP V0.2 AdminVersion
---------------------------------------------------------------------------------------------------}
 
function TmiMonitDataModule.getident(stockproc: string): integer;
begin
connectionbddExt;
with ibsGenId do
begin
if ibtGenId.Active then ibtGenId.Commit;
ibtGenId.StartTransaction;
StoredProcName := uppercase(stockproc);
try
begin
ibsGenId.ExecProc;
ibtGenId.Commit;
end;
except on E: Exception do
begin
ibtGenId.Rollback;
showmessage('impossible de retourner identifiant passge');
Cancel;
abort;
end;
end;
end;
result := ibsGenId.Params[0].AsInteger;
end;

Pour cela dans mon data module , jai placé un composant TIBDATABASE, un TIBTRANSACTION et pour l'appel de ma procédure stocké un IBBSTOREDPROC et un TIBTRANSACTION.


Ensuite pour chaque passage j'appelle une procédure différente ou j'utilise à chaque fois un TIBSQL avec un TIBtransaction pour l'insertion dans la table des passage.
l'erreur deadlock n'est pas fréquente mais quand cela arrive il faut fermer l'application pour la relancer.
Je pense que mon implémentation de composant ou de code n'est pas bonne.
Pouvez vous me guider.
Salutations

[qi130]

Tu mentionnes 2 compos Transaction dans ton datamodule, est-ce 1 erreur ?

Il faudrait nous communiquer le réglage de ces composants: par exemple le commit de la transaction.
Idem pour le code de la PS.

Quelle version de Firebird ?

Enfin, les composants IBX avec Firebird, c'est pas le top, et à terme ils ne seront plus du tout compatibles.

[lopezpacheco]

Bonjour et merci pour votre intérêt,
En effet dans tous mes développements DELPHI 7, j'utilise un data module ou je place un composant TIbDataBase et TibTransaction lié l'un à l'autre.
Ensuite pour toutes les autres requêtes ( ibsql, ibdataset ou ibstredProc) je place le composant dans le data module et je rajoute pour chacun un TibTransaction.
Je fixe le parametre Default Database avec le non de mon composant TIbdatabase et je laisse par defaut les paramétres DefaultAction (TaCommit) et AutostopAction SaNone.
La version de Firebird qui est en production est la V1.5
La procédure stockée renvoi un identifiant de passage :

Code sql :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SET TERM ^ ;
 
CREATE PROCEDURE GID_PASSAGE 
returns (
    id integer)
as
begin
  /* Procedure Text */
  ID=gen_id(gid_passage,1);
end^
 
SET TERM ; ^
 
GRANT EXECUTE ON PROCEDURE GID_PASSAGE TO SYSDBA;

avec id le parametre de sortie et Gid_passage un generator:

Code sql :

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

1
2
CREATE GENERATOR GID_PASSAGE;
SET GENERATOR GID_PASSAGE TO 7519089;

Si les composants Interbase de delphi ne sont pas adaptés, que doit on utiliser pour optimiser les échanges (j'utilise également la bibliothèque de composants JEDI)

Merci pour votre aide technique.
Salutations

[SergioMaster]

Si les composants Interbase de delphi ne sont pas adaptés, que doit on utiliser pour optimiser les échanges (j'utilise également la bibliothèque de composants JEDI)

Je suis très content des composants UIB ou ZEOSDBO (et tres mécontent des DBExpress )

[makowski]

Ensuite pour chaque passage j'appelle une procédure différente ou j'utilise à chaque fois un TIBSQL avec un TIBtransaction pour l'insertion dans la table des passage.
l'erreur deadlock n'est pas fréquente mais quand cela arrive il faut fermer l'application pour la relancer.

surement pas un deadlock mais juste un conflit de mise à jour d'un même enregistrement
en aucun cas cela ne doit bloquer un programme, cela doit pouvoir être géré (rollback puis retentative)
quel est le type de transaction utilisée ?
essayer avec Read_committed, cela devrait limiter les cas de conflits
bien penser à ouvrir et fermer les transactions le plus rapidement possible

[edam]

Ensuite pour toutes les autres requêtes ( ibsql, ibdataset ou ibstredProc) je place le composant dans le data module et je rajoute pour chacun un TibTransaction.

moi,j'utilise une seule TIBtransaction dans mon programme