Discussion :

[arkhamon]

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 :

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

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.

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

[Linkin]

Pour l'objet, il vaut mieux utiliser un try finally.
Cela devrait aussi résoudre le problème du processus.

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

[Linkin]

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 :

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

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;

[arkhamon]

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

peut on imbriquer des bloc Try Finaly ?

[Linkin]

Oui sans problème.