Discussion :

[ZZZzzz2]

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 :

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

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.

[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 :

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

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

[ZZZzzz2]

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 :

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

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 :

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

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 :

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

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...