retrouver le PID d'un objet OLE

Version imprimable

bonjour a tous,
j'ai du code qui cree un objet OLE excel, puis s'amuse a remplir des cases et enfin ferme le fichier et libere l'objet.
Mais de temps en temps, le remplissge plante et ca declenche une exception, le soft sort de la methode et j'ai 2 soucis :

le premier le process Excel.exe est toujours existant (et verouille le fichier qui est ouvert)
l'objet existe toujours.

pour l'objet, je pense finir par trouve la solution en utilisant une variable globale pour pouvoir le desallouer.

Par contre comment trouver le Process Id du excel créé par mon OLE ?

Merci.

Le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 msexcel := createoleobject('Excel.Application'); msexcel.Visible := false; fichier := msexcel.workbooks; feuille := classeur.worksheets['Fiche à imprimer']; ... feuille.range[xml.Root.ReadWidestring('armure','')].value := s; ... msexcel.Calculation := xlCalculationAutomatic; msexcel.CalculateBeforeSave := True; classeur.save; msexcel.quit; msexcel := unassigned;
Le probleme se produit si ca genere une exception entre les "..." (je sais ca devrait pas générer d'exception, mais comme j'ai plus de 1000 lignes de feuille.range... j'ai pas trop envie de rajouter 5000 lignes de code...

Merci.

18/11/2010, 14h32
arkhamon

Je viens en fait de trouver un truc "AINEAURME" ! c'est tellement simple que ca en est émouvant :
c'est cette page :
http://dotnet.developpez.com/faq/cpp...DotNETOffice10

Ca consiste a cumuler les PID des process excel avant et apres la creation de l'objet OLE, et par difference on obtient le PID de celui qu'on vient de créer.

Bon suffit de remplacer winword par excel et de faire ca en delphi plutot qu'en C, mais je crois que tout le monde a compris.
18/11/2010, 14h35
Linkin

Pour l'objet, il vaut mieux utiliser un try finally.
Cela devrait aussi résoudre le problème du processus.
19/11/2010, 09h01
arkhamon

Ben le probleme c'est que quand le soft plante dans l'appel d'un evenement, l'execution de l'evenement est stoppe, mais le programme continue sa route (j'ai active l'option "ne pas interrompre sur une exception") du coup je ne sais pas quand ca a plante. En plus comme mon objet est local il n'est plus visible en dehors de l'evenement. C'est pour ca que je vais tenter de le mettre en global come ca je pourrai le liberer.

Merci.

Il y a quelque chose que je dois rater (Je ne suis pas habitué d'OLE).

Ce code suivant ne convient pas (je l'ai testé avec elphi 7 et Offixe XP)?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
msexcel := createoleobject('Excel.Application');
try
  msexcel.Visible := false;
  fichier := msexcel.workbooks;
  feuille := classeur.worksheets['Fiche à imprimer'];
  ...
  feuille.range[xml.Root.ReadWidestring('armure','')].value := s;
  ...
  msexcel.Calculation := xlCalculationAutomatic;
  msexcel.CalculateBeforeSave := True;
  classeur.save;
finally
  msexcel.quit;
  msexcel := unassigned;
end;

19/11/2010, 12h51
arkhamon

Je dois avouer que j'avais meme pas teste :oops:
Faudra que je fasse le test.
Par contre petite question :

peut on imbriquer des bloc Try Finaly ?
19/11/2010, 13h52
Linkin

Oui sans problème.