Discussion :

[06Sergio]

Bonjour,
Je vais essayer d'âtre clair car c'est un peu compliqué...
Je développe une application N-Tiers dont la partie serveur se trouve dans une Dll.
Le client accède aux fonctions de la dll via des interfaces de la bibliothèque de types définies dans le service de composants Windows. (demarrer\panneau de config\outils d'administration\service des composants)
J'ai donc un composant qui s'active le quand une demande lui est faite. (petit rappel : les composants du service de composant sont en attente d'un message (via COM/COM+) qui à été lancé par un client via les interfaces décrites ci dessus)
Ce composant (entre autres) accède à une base de données. Lors de la première activation la connexion à la base de données se fait et tout roule.

Il arrive que la base tombe (exemple la nuit elle est arrêtée pour une sauvegarde) Mon programme lui n'en sait rien... sauf que ses objets (ADO et BDE) sont connectés à une instance de base de donnée qui n'existe plus ! bref ca plante.

Le seul moyen pour que tout reparte dans l'ordre est de faire un click droit sur mon composant et de faire "arrêter". Lors de la demande suivante, il redémarre, se reconnecte du coup et tout fonctionne.

Or ce n'est pas jouable en production, il faudrait que quand je me rends compte de la coupure à la base de données j'arrête mon composant pour qu'il refasse ses connections à la demande suivante du poste client.

Or je n'y arrive pas avec delphi (D6 SP2). Impossible de trouver une fonction qui stoppe un composant du service de composant.
PS : ce n'est pas un service windows, mais bien un composant du service de composants.

Quelqu'un a-t-il une solution ??

Merci bcp.

[06Sergio]

Malheureusement non, par contre on m'a passé une bonne idée (Merci FredM) : L'utilisation d'un script AutoIt....
C'est pas super génial mais ca fonctionne !

Le voici : Changer "NomDeMonComposantCom+" par le nom de ton composant et changer éventuellement les coordonées.

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
34
35
36
37
38
39
40
Dim $SelItem
Dim $Menu
if NOT WinExists ("Services de composants") then
	ShellExecute("C:\WINDOWS\system32\Com\comexp.msc")
Endif 
 
 
 
WinActivate ("Services de composants")
WinWaitActive("Services de composants")
sleep(200)
 
 
ControlTreeView ("", "", "SysTreeView321", "collapse",  "Racine de la console")
sleep(100)
 
ControlTreeView ("", "", "SysTreeView321", "Select",  "Racine de la console|Services de composants")
ControlTreeView ("", "", "SysTreeView321", "expand",  "Racine de la console|Services de composants")
sleep(100)
ControlTreeView ("", "", "SysTreeView321", "Select",  "Racine de la console|Services de composants|Ordinateurs")
ControlTreeView ("", "", "SysTreeView321", "expand",  "Racine de la console|Services de composants|Ordinateurs")
sleep(100)
ControlTreeView ("", "", "SysTreeView321", "Select",  "Racine de la console|Services de composants|Ordinateurs|Poste de travail")
ControlTreeView ("", "", "SysTreeView321", "expand",  "Racine de la console|Services de composants|Ordinateurs|Poste de travail")
sleep(100)
ControlTreeView ("", "", "SysTreeView321", "Select",  "Racine de la console|Services de composants|Ordinateurs|Poste de travail|Applications COM+")
ControlTreeView ("", "", "SysTreeView321", "expand",  "Racine de la console|Services de composants|Ordinateurs|Poste de travail|Applications COM+")
sleep(100)
$SelItem = ControlListView ("", "", "SysListView321", "FindItem", "NomDeMonComposantCom+")
sleep(200)
ControlListView ("", "", "SysListView321", "Select", $SelItem)
sleep(200)
ControlFocus ( "", "", "SysListView321" )
sleep(200)
ControlListView ("", "", "SysListView321","ViewChange", "details")
sleep(200)
ControlClick("", "", "SysListView321", "menu", 1, 42, 96)
send("{DOWN 3}")
send("{ENTER}")
WinClose("Services de composants")

J'ai le même besoin que toi.
As-tu trouvé une solution à ce problème ?

D'avance merci

Julien