Indy Gestionnaire d'E/S

**Cl@udius** · 12/04/2008, 09h45

Salut

Implémente l'evènement OnAfterConnect de ton composant IBDatabase ainsi pour recenser ton ou tes events:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TDM.IBDatabase1AfterConnect(Sender: TObject);
  // Recensement des Events
  with IBEvents1 do
  begin
    Events.Clear;
    Events.Add('new_order');
//  Events.Add('autre_event');
    Registered := True;
  end;

Ensuite sur le composant IBEvent, voici un exemple d'implémentation qui se limite à afficher un message:

Code :

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

1
2
3
4
5
6
procedure TDM.IBEvents1Event(Sender: TObject; const EventName: String;
  EventCount: LongInt; var CancelAlerts: Boolean);
begin
  ShowMessage(Format('Présence de %d évènement(s) de type %s.',
    [EventCount, EventName]));
end;

Voilà.

@+ Claudius

**jojo86** · 12/04/2008, 13h23

Merci Claudius,

Ca fonctione, je vais voir ça...

Merci !

**jojo86** · 13/04/2008, 11h48

Envoyé par Cl@udius

Salut

Implémente l'evènement OnAfterConnect de ton composant IBDatabase ainsi pour recenser ton ou tes events:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TDM.IBDatabase1AfterConnect(Sender: TObject);
  // Recensement des Events
  with IBEvents1 do
  begin
    Events.Clear;
    Events.Add('new_order');
//  Events.Add('autre_event');
    Registered := True;
  end;

Ensuite sur le composant IBEvent, voici un exemple d'implémentation qui se limite à afficher un message:

Code :

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

1
2
3
4
5
6
procedure TDM.IBEvents1Event(Sender: TObject; const EventName: String;
  EventCount: LongInt; var CancelAlerts: Boolean);
begin
  ShowMessage(Format('Présence de %d évènement(s) de type %s.',
    [EventCount, EventName]));
end;

Voilà.

@+ Claudius

Cette methode fonctionne, mais necessite une deconnexion de la bdd, mais ça ne m'arrange pas... existe t'il une autre methode?

Merci de votre aide !

**evarisnea** · 13/04/2008, 13h13

comment ça? ça nécessite une déconnexion de la bd? le paramétrage du IBEvents se fait pourtant dans l'évènement AfterConnect du composant IBDatabase.

**Cl@udius** · 13/04/2008, 14h09

Envoyé par jojo86

Cette methode fonctionne, mais necessite une deconnexion de la bdd, mais ça ne m'arrange pas...

Envoyé par evarisnea

comment ça? ça nécessite une déconnexion de la bd?

+1

Il n'y a absolument aucune obligation d'être déconnecté pour recenser des events. Comment en es-tu arrivé à cette conclusion ?

@+ Claudius

**jojo86** · 13/04/2008, 14h44

Et bien voici ce que j'ai fait :

J'ai donc ajouter sur le After Connect de mon IBDatabase ce code ci :

Code :

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

1
2
3
4
5
6
7
 with IBEvents1 do
  begin
    Events.Clear;
    Events.Add('new_order');
    Registered := True;
  end;
end;

Et ensuite, pour tester ceci j'ai ajouté un TEdit et un bouton sur ma form, avec ce code ci sur le bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
IBDatabase1.Connected:=true;
IBTransaction1.Active:=True;
With IBQuery1 do
begin
  close;
  sql.Clear;
  sql.Add('Insert into TTT (ID,TTT) Values (Gen_ID(G$_ID,1),'''+Edit1.Text+''');');
  ExecSql;
  end;
end;

Voila... et lorsque j'ajoute un enregistrement avec tout ça, je n'ais aucune alerte qui apparait...

Il faut que je déconecte pour que ça fonctionne...

Merci de votre aide à tous !

**Cl@udius** · 13/04/2008, 14h47

Salut

Simplement parce que tu ne fais pas de commit après l'insertion.
En fait la validation (le commit) intervient quand tu te déconnectes. (AutoCommit à la fermeture).

[Edit]
PS: Pas de commit pas de retour de notification. Logique !
@+ Claudius

**evarisnea** · 13/04/2008, 14h48

Envoyé par jojo86

Voila... et lorsque j'ajoute un enregistrement avec tout ça, je n'ais aucune alerte qui apparait...

Il faut que je déconecte pour que ça fonctionne...

explique toi un peu plus. lorsque tu dis qu'il faut que tu te déconnecte pour que ça fonctionne ça veut dire quoi exactement?
autre chose, ton trigger est il définit pour la table TTT que tu utilises dans ta requête ?

**jojo86** · 13/04/2008, 16h24

Envoyé par evarisnea

explique toi un peu plus. lorsque tu dis qu'il faut que tu te déconnecte pour que ça fonctionne ça veut dire quoi exactement?
autre chose, ton trigger est il définit pour la table TTT que tu utilises dans ta requête ?

Lorsque je dit qu'il faut que je déconnecte pour que ça fonctionne, ça veut dir qu'il faut que je connect la bdd ensuite, j'ajoute mon enregistrement, et ensuite je déconnect ma bdd et après la deconnexion, le message apparait.

Oui le trigger est bien défini pour la table TTT.

Et comme le dit Cl@udius, je ne fais pas de commit...

Mais même avec un commit, ça ne fonctionne pas...

J'active le IBDatabase sur le oncreate de ma form, ainsi que mon IBTransaction, et lorsque je clique sur mon bouton, j'ai ajouté la commande CommitRetaining mais rien ne ce produit...

Merci !

**Cl@udius** · 13/04/2008, 16h55

Tout d'abord concernant la remarque d'evarisnea au sujet du trigger. Si tu as bien défini un trigger qui appelle le GEN_ID avant insertion, alors cette requête:

Code :

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

sql.Add('Insert into TTT (ID,TTT) Values (Gen_ID(G$_ID,1),'''+Edit1.Text+''');');

va certainement doubler l'appel au GEN_ID.

Je verrais plus ceci:

Code :

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

sql.Add('Insert into TTT(TTT) Values (' + QuotedStr(Edit1.Text) + ')');

Ainsi le champ ID sera renseigné par le trigger, et l'appel au GEN_ID sera unique.

Ensuite:

Envoyé par jojo86

Mais même avec un commit, ça ne fonctionne pas...

Là cela m'étonne, je viens de faire un test et cela fonctionne correctement. As-tu réellement fais un Commit après l'Insert ?
D'un autre côté je n'ai pas fait de tests avec un CommitRetaining (d'ailleurs je ne l'utilise jamais).

Envoyé par jojo86

... je déconnect ma bdd et après la deconnexion, le message apparait.

Tu as certainement relié entre eux ton IBDatabase et IBTransaction avec leurs propriétés DefaultTransaction et DefaultDatabase, et tu as laissé le DefaultAction du IBTransaction à TACommit.
Donc quand tu te déconnectes de la BDD, la transaction exécute l'action par défaut TACommit et tu reçois l'event.

@+

**jojo86** · 14/04/2008, 13h26

Rien à faire ça ne fonctionne toujours pas...

Que puis-je faire??? Reinstaller firebird?

**evarisnea** · 14/04/2008, 14h49

vraiment étrange

si possible, poste nous ton projet (sources) et la base de données pour que l'on puisse tester.

**jojo86** · 14/04/2008, 19h45

Oki, donc voici un lien vers un dossier zippé qui contiend mon project, avec mon fichier bdd qui s'appel 'MAFIEU.GDB'.

J'éspère que vous trouvez quelque chose qui ne vas pas.

Merci de votre aide.

**evarisnea** · 14/04/2008, 20h27

Envoyé par jojo86

J'éspère que vous trouvez quelque chose qui ne vas pas.

oui:

la base que tu as postée n'est pas celle à laquelle tu accèdes dans ton projet!

DatabaseName = '192.168.1.6: D:\testgestionappareil\Bdd\TOTO.GDB'

or la base que tu as postée se nomme MAFIEU.GDB. avec une table TABLE1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
CREATE TABLE TABLE1 (
    ID    INTEGER NOT NULL,
    TEST  CHAR(30)
);
...
CREATE OR ALTER TRIGGER TESTMSG FOR TABLE1
ACTIVE AFTER INSERT POSITION 0
AS
begin
POST_EVENT 'test';
end

j'ai donc effectué les modifications suivantes :

modification de la propriété DatabaseName pour faire référence au fichier joint.

modification du nom de l'évènement recherché

Code :

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

1
2
  //Events.Add('tt');
  Events.Add('test');

modification de la requête pour être conforme au schéma de la base utilisée

Code :

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

1
2
  //sql.Add('Insert into TTT (TTT) Values ('+QuotedStr(Edit1.Text)+')');
  sql.Add('Insert into TABLE1 (TEST) Values ('+QuotedStr(Edit1.Text)+')');

voilà, ça fonctionne correctement, sans autre modification. alors re-vérifie bien ton projet.

**jojo86** · 14/04/2008, 20h37

Je n'ai pas envoyé le bon projet, j'en avais fait deux. Voici le bon.

Donc si tu pouvais revérifier...

Merci beaucoup de ton aide.

**evarisnea** · 14/04/2008, 20h38

si tu pouvais aussi revérifier ton projet avec les indications que je t'ai données ...
ps: inutile de zipper l'exécutable, seules les sources suffisent

**evarisnea** · 14/04/2008, 21h02

bon voilà:
ça ne marche pas !
pourquoi ? parce que la transaction n'est pas validée comme dans le premier exemple que tu as mis en ligne

alors en ajoutant le code

Code :

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

1
2
3
IBTransaction1.Commit;
ou
IBTransaction1.CommitRetaining;

dans l'évènement OnClick du bouton, ça marche normalement

**jojo86** · 14/04/2008, 21h10

Je dois avoir un soucis avec ma config... même avec un commit ça ne fonctionne pas...

**evarisnea** · 14/04/2008, 21h13

possible, mais je n'y crois pas trop.
essaie une dernière chose, recommence les tests à zéro, c'est à dire:
tu crée une nouvelle bdd, un nouveau projet et tu fais tes tests.