[WORD] pilotage ole Delphi [FAQ]

**missmarion** · 15/03/2006, 09h48

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 :

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

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 :

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

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 :

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

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

**missmarion** · 15/03/2006, 09h56

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

Code :

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

1
2
3
4
5
try
    vMSWord := GetActiveOleObject('Word.Application');
except
    vMSExcel := CreateOleObject('Word.Application');
end;

bien sur

**Frank** · 15/03/2006, 10h02

ou pas

:

**missmarion** · 15/03/2006, 10h03

Non non pas tout

**Frank** · 15/03/2006, 10h13

Envoyé par missmarion

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

Code :

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

1
2
3
4
5
try
    vMSWord := GetActiveOleObject('Word.Application');
except
    vMSExcel := CreateOleObject('Word.Application');
end;

bien sur

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

Code :

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

vMSWord

et

Code :

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

vMSExcel

**missmarion** · 15/03/2006, 10h17

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

Code :

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

1
2
3
4
5
try
    vMSWord := GetActiveOleObject('Word.Application');
except
    vMSWord := CreateOleObject('Word.Application');
end;

Mais toujours la même erreur

**HumanTool** · 15/03/2006, 10h50

salut,
dans

, au sujet de GetActiveOleObject ils disent:

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 :

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

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;

**Laurent Dardenne** · 15/03/2006, 13h16

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

**missmarion** · 15/03/2006, 13h43

Merci à tous pour vos messages.

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 :

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

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.

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à

**Laurent Dardenne** · 15/03/2006, 19h09

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 :

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

CreateOleObject('Word.Application');

**missmarion** · 15/03/2006, 20h48

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 :

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

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.

**Laurent Dardenne** · 15/03/2006, 20h57

Envoyé par missmarion

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

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

**Laurent Dardenne** · 15/03/2006, 21h58

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

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
 
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);

**missmarion** · 16/03/2006, 09h35

Envoyé par Laurent Dardenne

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

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

**Laurent Dardenne** · 16/03/2006, 12h22

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 ?

**missmarion** · 16/03/2006, 14h17

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 :

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

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.

**Laurent Dardenne** · 16/03/2006, 15h13

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 ?

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.

**missmarion** · 16/03/2006, 17h22

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

Envoyé par Laurent Dardenne

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

Je vais voir. Merci

**Laurent Dardenne** · 16/03/2006, 19h45

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 ?

**bib34690** · 28/09/2010, 11h19

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

[WORD] pilotage ole Delphi [FAQ]

API, COM et SDKs Delphi

Discussions similaires

Partager

Partager