JvUIB et Thread

**alexvdb** · 10/12/2007, 17h31

Salut à tous.

Dans une application Delphi7 de reprise de données (passer des données d'un système d'information X vers un autre - le nôtre) j'utilise une base de données Firebird 2 avec les composants UIB.

Je lance certaines procédures stockées via des threads. Pendant leurs éxécution, j'affiche une fenetre d'attente. A la fin de la procédure, la fenetre disparait et rend la main au soft.

Le problème, c'est que parfois, le thread ne me rend pas la main. et donc le fenetre d'attente s'affiche en permenance. Seul solution : tuer la tache ! Pas bon !

Avant j'utilisai Firebird 1 + IBX, je n'ai jamais eu le problème. Etant novice avec les UIB, il y a peut être des choses à faire ou à ne pas faire.

Merci pour vos réponses.
@+, Alex

**alexvdb** · 13/12/2007, 15h25

Salut,

alors, vraiment, ca n'intéresse personne ?

@+, Alex

**edam** · 13/12/2007, 17h32

donne au moins le code de la procedure Execute de thréad

**alexvdb** · 13/12/2007, 22h11

Salut,

Voici le code de la méthode Execute :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
  inherited;
 
  try
    try
      TJvUIBQuery(FParametres).ExecSQL;
      TJvUIBQuery(FParametres).Tag := 1;
    except
      TJvUIBQuery(FParametres).Tag := 0;
    end;
  finally
    Terminate;
  end;

La propriété "Tag" me sert à savoir si la méthode est sortie en erreur ou pas.

Merci de ta solicitude.
@+, Alex

**Cl@udius** · 13/12/2007, 22h26

Salut

Envoyé par alexvdb

Code :

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

1
2
 
      TJvUIBQuery(FParametres).ExecSQL;

Je ne saisi pas très bien, c'est un transtypage ?

sinon, avec les compos UIB il est préférable d'utiliser la méthode Execute plutôt qu'ExecSQL.

A tester.

@+ Claudius

**edam** · 13/12/2007, 22h52

et cette inherited; sére à quoi

**TryExceptEnd** · 14/12/2007, 13h51

Envoyé par alexvdb

Je lance certaines procédures stockées via des threads. Pendant leurs éxécution, j'affiche une fenetre d'attente. A la fin de la procédure, la fenetre disparait et rend la main au soft.

A quoi sert le thread si tu fait attendre l'utilisateur ?

**alexvdb** · 14/12/2007, 20h52

Salut,

Les threads me servent à lancer des procédures stockées longues. Pendant qu'elles s'éxécutent, une fenetre d'attente dit gentiment aux utilisateurs de patientez quelques instants (un peu comme les hots lines) pour ne pas qu'ils s'impatientent et écrasent de leurs gros doigts boudinés les 3 touches que sont CTRL+ALT+SUPPR pour tuer la tâche (ce qui par ailleurs pourraient éventuellement mettre à mal la base de données ...).

Enfin, moi, à leur place, une mise à jour de base qui bloquent/frisent l'appli. pendant 5 longues minutes, ca m'énerverait ...

@+, Alex

**TryExceptEnd** · 14/12/2007, 23h04

Si tu met en service un thread, normalement c'est pour rendre la main a l'utilisateur sans attente.
Sinon, pour utiliser une procedure stockée avec UIB, voici la méthode :

Code :

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

1
2
3
4
5
JvUIBQuery.BuildStoredProc('NOM_Procedure_Stockee');
JvUIBQuery.Params.ByNameAsString['Parametre_Entree'] := 'Valeur';//éventuellement.
JvUIBQuery.Open;
Var_String:=JvUIBQuery.Fields.ByNameAsString['Parametre_Sortie'];//éventuellement.
JvUIBQuery.Close(etmCommit);

**alexvdb** · 14/12/2007, 23h48

Salut,

Ok, merci, je sais comment on lance une procédure stockée avec JvUIB ... mais, sérieux, je tiens absolument à mettre cette foutu fenetre d'attente pendant le longue procédure stockée. Le fait que tu ne comprennes pas pourquoi m'est égal ...

Maintenant, si quelqu'un a d'autre propositions, je suis preneur.

@+, Alex