Discussion :

[hesky]

Bonjour,

Je rencontre un problème dans mon problème, lorsque j'utilise une librairie extérieure et lorsque j'ai une perte de la liaison avec celle-ci.

Donc j'ai une fonction qui utilise une librairie extérieur (MonEx.MaLib)
Je définie ma variable (Set g_maLib = ....), une fois initialisée elle est bien présente dans les processus.

Puis je boucle, jusqu'à temps que cette librairie se connecte à un serveur distant.
Si la librairie n'arrive pas à se connecter, elle se "tue" toute seule; au moment ou l'on passe sur g_maLib.Connect, la boucle passe en erreur et va dans Error_Handled.
A ce moment là, l'erreur suivante apparait : "Erreur Automation. L'objet invoqué s'est déconnecté de ses clients".
J'ai donc une perte de liaison avec ma librairie.

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
 
Public WithEvents g_maLib As MonEx.MaLib
 
Function maFunction()
    On Error GoTo Error_Handled
 
    Set g_maLib = New MonEx.MaLib
 
    Do While g_maLib.IsConnected = False And cpt / 60 < 5
        g_maLib.Connect
        cpt = cpt + 1
        Sleep (1000)
    Loop
    ...
 
Error_Handled:
    debug.print g_maLib.Status 
    ...
End Function

Ma question est donc la suivante:
Existe-il un moyen de détecter cette erreur ?

Mon objectif est de relancer la librairie et recommencer l'opération.
Seulement, je ne vois pas comment faire. Pourriez-vous m'aider dans ma recherche ??? Merci.

[OhMonBato]

Désolé de ne pouvoir répondre à ta question mais je n'ai aucune idée de ce que tu appelles une librairie exterieure telle que la décris. Peux tu en dire un peu plus, car j'ai l'impression d'avoir loupé un épisode.

[DarkVader]

Difficile d'avoir un avis précis avec si peu toutefois le code suivant me semble plus cohérent

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
 
Public WithEvents g_maLib As MonEx.MaLib
 
Function maFunction()
    On Error GoTo Error_Handled
 
    Set g_maLib = New MonEx.MaLib
    g_maLib.Connect
 
    Do While g_maLib.IsConnected = False And cpt / 60 < 5
        cpt = cpt + 1
        Sleep (1000)
    Loop
    ...
 
Error_Handled:
    debug.print g_maLib.Status 
    ...
End Function

D'autre part si tu déclares g_maLib avec withevents, il y a fort à parier qu'il y a
un évènement gérant l'état connecté et donc permettant de gérer la connection en asynchrone,
voir également un évènement permettant de gérer les erreurs de connection.

Regarde de ce coté.

[ProgElecT]

Essais de monter ta boucle autrement, Sleep ne laisse rien faire au autre processus (ou si peu), d'ou des surprises possibles.

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
On Error GoTo Error_Handled
'Set g_maLib = New MonEx.MaLib
Dim FinCpt As Date
'FinCpt = DateAdd("s", 5, CDbl(Time)) '5 Sc
FinCpt = DateAdd("n", 5, CDbl(Time)) '5 Mn, je ne me suis pas trompé c'est bien "n" pour Minutes
Do While g_maLib.IsConnected = False And FinCpt > Time
 g_maLib.Connect
 DoEvents
Loop
    Debug.Print "sortie de la boucle sans gestion de l'Erreur"
Exit Sub
 
Error_Handled:
    'Debug.Print g_maLib.Status
    Debug.Print "Gestion de l'Erreur"