Automation Word : GetActiveOleObject vs CreateOleObject

Bonjour,

Voilà mon problème, je réalise des fusions/impressions avec Word depuis mon application (langage Delphi7). Pour récupérer l'instance Word j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7

try MyWordApplication:= GetActiveOLEObject( 'Word.Application' ); IsNewInstance:= false; except MyWordApplication:= CreateOleObject( 'Word.Application' ); IsNewInstance:= true; end;

---

Hors il semblerait que lors du premier appel à la fusion/impression, souvent je me tape des erreurs du style "'L'objet invoqué s'est déconnecté du client" ou encore "le serveur RPC est indisponible", "L'appel distant a été rejeté", etc... de manière aléatoire. Et souvent il suffit de relancer le processus de fusion/impression pour que ça passe bien...

En débuggant je n'ai pas l'erreur mais j'ai remarqué que les erreurs ont lieu lorsque je récupère l'instance via "GetActiveOLEObject( 'Word.Application' )" même si je n'en suis pas sûr à 100%. En effet lors du premier appel je passe par 'GetActiveOLEObject' tandis que les fois suivantes je passe par "CreateOleObject( 'Word.Application' )" (assez bizarre finalement on pourrait penser l'inverse).

Le truc est que je ne vois pas en quoi cela pourrait changer le comportement du serveur automation après coup, et surtout le "rendre instable". En l'occurence sur une machine rapide j'ai plus de chance d'avoir des erreurs de ce type que sur une machine plutôt lente. Quelqu'un a des explications ?

Merci d'avance.

Bonjour ZZZzzz2,

Cela parait bizarre en effet, est tu sur qu' après avoir instancier ta variable MyWordApplication , ton code un moment donné ne l'instancie pas une deuxième fois...

Essaie ceci:

Code:

---

1 2 3 4 5 6 7 8 9

try MyWordApplication:= UnAssigned; MyWordApplication:= GetActiveOLEObject( 'Word.Application' ); IsNewInstance:= false; except MyWordApplication:= CreateOleObject( 'Word.Application' ); IsNewInstance:= true; end;

---

Cela pourrait ètre l'explication

Amicalement Laurent

Citation:

---

Envoyé par Laurent GAUDILLIER

Bonjour ZZZzzz2,

Cela parait bizarre en effet, est tu sur qu' après avoir instancier ta variable MyWordApplication , ton code un moment donné ne l'instancie pas une deuxième fois...

Essaie ceci:

Code:

---

1 2 3 4 5 6 7 8 9

try MyWordApplication:= UnAssigned; MyWordApplication:= GetActiveOLEObject( 'Word.Application' ); IsNewInstance:= false; except MyWordApplication:= CreateOleObject( 'Word.Application' ); IsNewInstance:= true; end;

---

Cela pourrait ètre l'explication

Amicalement Laurent

---

Bonjour,

Merci pour ta réponse, je suis très tardif car provisoirement j'ai simplement remplacé mon code par :

Code:

---

1 2 3

MyWordApplication:= CreateOleObject( 'Word.Application' ); IsNewInstance:= true;

---

Et je créé toujours l'instance, mais je crois me souvenir que j'avais réutilisé l'instance de Word existante pour éviter des problèmes rencontrés sur le fichier 'normal.dot' lorsqu'on utilise Word avec le complément Word de Works...

Pour info dans ma fonction 'MyWordApplication' est une variable locale initialisée et détruit une fois dans une clause finally :

Code:

---

1 2 3 4 5 6 7 8

MyWordApplication:= CreateOleObject( 'Word.Application' ); IsNewInstance:= true; try ... finally MyWordApplication:= Unassigned; end;

---

J'avoue ne pas comprendre ce que ta modification peut changer...