[WORD] pilotage ole Delphi

Bonjour à tous
Je développe une application en delphi 7 où j'ai besoin de gérer des documents word. J'ai trouvé ce tuto très bien : http://lfe.developpez.com/PasWord/
Le problème c'est que le code pour créer une instance ne fonctionne pas:

Code:

---

1 2 3 4 5

try vMSWord := GetActiveOleObject('Excel.Application'); except vMSExcel := CreateOleObject('Excel.Application'); end;

---

Il renvoit "opération non disponible". Si je met la ligne

Code:

---

vMSWord := GetActiveOleObject('Excel.Application');

---

dans l'ouverture de mon application cela marche mais si un document word est deja ouvert cela créé une nouvelle instance.:?

Le code pour fermer le document:

Code:

---

1 2	vMSWord.Quit; vMSWord := unassigned;

---

Ce code marche seulement si l'utilisateur n'a pas fermé le document sinon il provoque une erreur. :(
Voilà j'aimerais savoir si il y a un moyen de ne crée qu'une seule instance de word à chaque fois et de laisser l'utilisateur décider si il veut ou non fermer le document.
Merci :wink:

Pardon je me suis trompé dans mes lignes je voulais mettre:

Code:

---

1 2 3 4 5

try vMSWord := GetActiveOleObject('Word.Application'); except vMSExcel := CreateOleObject('Word.Application'); end;

---

bien sur :oops:

:resolu: ou pas :?:

Non non pas tout :cry:

Citation:

---

Envoyé par missmarion

Pardon je me suis trompé dans mes lignes je voulais mettre:

Code:

---

1 2 3 4 5

try vMSWord := GetActiveOleObject('Word.Application'); except vMSExcel := CreateOleObject('Word.Application'); end;

---

bien sur :oops:

---

Est ce normal que les deux objets ole soient différents ?

Code:

---

vMSWord

---

et

Code:

---

vMSExcel

---

décidement je suis pas réveillée ce matin les 2 lignes ont bien le même nom:

Code:

---

1 2 3 4 5

try vMSWord := GetActiveOleObject('Word.Application'); except vMSWord := CreateOleObject('Word.Application'); end;

---

Mais toujours la même erreur :(

salut,
dans :f1: , au sujet de GetActiveOleObject ils disent:

Citation:

---

Si la classe ou l'interface IDispatch ne sont pas correctement renvoyés,une erreur EOleSysError se produit.

---

j'ai jamais eu besoin de gérer le cas de double instance donc mon code gère une instance à la fois :

Code:

---

1 2 3 4 5 6 7 8 9

try XlApp := CreateOleObject('Excel.Application'); if VarType(XlApp) <> VarDispatch then Abort; XlApp.Visible := False; XlApp.DisplayAlerts := False; except on E: Exception do XlApp := Unassigned; end;

---

Salut,
la clé de registe pour Word.Application existe-elle ?

Merci à tous pour vos messages.

Citation:

---

Envoyé par HumanTool

j'ai jamais eu besoin de gérer le cas de double instance donc mon code gère une instance à la fois :

Code:

---

1 2 3 4 5 6 7 8 9

try XlApp := CreateOleObject('Excel.Application'); if VarType(XlApp) <> VarDispatch then Abort; XlApp.Visible := False; XlApp.DisplayAlerts := False; except on E: Exception do XlApp := Unassigned; end;

---

---

Oui mais là tu vérifie pas si il y a deja une instance de creer, si c'est le cas cela en créée une autre.

Citation:

---

Envoyé par Laurent Dardenne

Salut,
la clé de registe pour Word.Application existe-elle ?

---

Désolé je suis débutante je vois pas ce que tu entend par là :oops:

Citation:

---

Envoyé par missmarion

Désolé je suis débutante je vois pas ce que tu entend par là

---

La méthode que tu appelles lit dans la base de registre une clé du même nom. Cette clé contient une entrée nommée CLSID (classe ID) qui est le GUID ( i.e un identifiant unique) du serveur OLE/COM de WORD.
Cela facilite l'écriture faire Getxxx('Word.Application') est plus facile que Getxxx('{000209FF-0000-0000-C000-000000000046}').

Mais en relisant ton post initiale je me demande si je ne suis pas HS ?
Que fait l'appel suivant ?

Code:

---

CreateOleObject('Word.Application');

---

Citation:

---

Envoyé par Laurent Dardenne

Mais en relisant ton post initiale je me demande si je ne suis pas HS ?
Que fait l'appel suivant ?

Code:

---

CreateOleObject('Word.Application');

---

---

Il crée une instance de Word.
Merci d'essayer de se pencher sur mon problème mais je commence à croire qu'il n'existe pas de solution à mon problème. :cry:

Citation:

---

Envoyé par missmarion

mais je commence à croire qu'il n'existe pas de solution à mon problème. :cry:

---

"Qui veut vivre est condamné à l'espoir"
Je regarde ça dés que j'ai 5 minutes, j'en profiterais pour améliorer la FAQ si besoin est.

Le code existant fonctionne mais la nouvelle instance de word est par défaut 'invisible'.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var WordApplication:Variant;   Begin Try WordApplication:=GetActiveOleObject('Word.Application'); except // OleCheck, appellée par GetActiveOleObject, déclenche une exception EOleSysError // message 'Opération non disponible' on EOleSysError do begin WordApplication:= CreateOleObject('Word.Application'); WordApplication.Visible:=True; end; end;

---

Pour ton prb de fermeture, vérifie si la collection de document est vide.
En utilisant un TWordApplication tu peux tester les événement de fermeture et d'ouverture de document.
Tu peux mixer, les 2 variant et TWordApplication, regarde TOleserver dans l'aide en ligne, procedure ConnectTo(svrIntf: _Application);

Citation:

---

Envoyé par Laurent Dardenne

Le code existant fonctionne mais la nouvelle instance de word est par défaut 'invisible'.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var WordApplication:Variant;   Begin Try WordApplication:=GetActiveOleObject('Word.Application'); except // OleCheck, appellée par GetActiveOleObject, déclenche une exception EOleSysError // message 'Opération non disponible' on EOleSysError do begin WordApplication:= CreateOleObject('Word.Application'); WordApplication.Visible:=True; end; end;

---

---

Je sais pas si qui cloche chez moi mais ton code me renvoit encore la même erreur 'opération non disponible' il ne rentre pas dans le except. Mais pourquoi, c'est bizar, Merci quand même d'essayer.

Sous l'EDI l'erreur est déclenchée dans tous les cas sauf si tu désactives la prise en charge de l'exception EOleSysError.
Tu as placé un point d'arrêt dans le bloc except ?
Et en dehors de l'EDI est-ce que cela fonctionne ?

Citation:

---

Envoyé par Laurent Dardenne

Sous l'EDI l'erreur est déclenchée dans tous les cas sauf si tu désactives la prise en charge de l'exception EOleSysError.
Tu as placé un point d'arrêt dans le bloc except ?
Et en dehors de l'EDI est-ce que cela fonctionne ?

---

Oui j'ai placé un pont d'arrêt dans le bloc mais il plante à

Code:

---

1 2	try WordApplication := GetActiveOleObject('Word.Application');

---

Il rentre pas du tout dans le except.
Sinon comment désactive t-on la prise en charge de l'exception EOleSysError?
Merci pour ton aide.

Citation:

---

Envoyé par missmarion

Il rentre pas du tout dans le except.

---

Quel est le résultat si tu adaptes la portion de code en retirant la ligne on EOleSysError do ?

Citation:

---

Envoyé par missmarion

Sinon comment désactive t-on la prise en charge de l'exception EOleSysError?

---

Regarde dans la FAQ Delphi, il y a une rubrique à ce sujet.

Citation:

---

Envoyé par Laurent Dardenne

Quel est le résultat si tu adaptes la portion de code en retirant la ligne on EOleSysError do ?

---

Même erreur

Citation:

---

Envoyé par Laurent Dardenne

Regarde dans la FAQ Delphi, il y a une rubrique à ce sujet.

---

Je vais voir. Merci

Communique nous le code dans son intégralité (un site ftp c'est parfait).
A quel endroit dans ton code tu reprends la main en mode trace ?

bonjour, j'ai le même pb,
as-tu réussi à trouver la solution ?
je ne trouve pas comment desactiver eOleSysError, as tu trouvé ?