Discussion :

[Bleuarff]

'jour

J'utilise un TExcelApplication pour ouvrir un classeur, récuperer la valeur d'une case, puis la rafraichir de temps en temps avec un timer.
Quand je quitte mon programme, je disconnect le TExcelApplication dans le OnClose de ma fiche principale, le classeur est déjà refermé, mais j'ai une exception EAccessViolation, qui n'arrive pas si je ne vais pas chercher la valeur de la case (le texcelapplication est ouvert automatiquement). En debug, c'est la fenetre CPU qui s'affiche, impossible donc de savoir quelle ligne provoque l'erreur.

Des idées d'où peut venir l'erreur ? Ou au moins comment la localiser ?

[Manopower]

sur le onclose, après avoir fait ton disconnect, essaye

Code :

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

TExcelapplication1.free;

bonne journée !

[Bleuarff]

Le TexcelApplication est inclus dans la fiche à la conception, il est pas censé ête libéré automatiquement ?

(j'ai pas trop bossé sur les fiches)

[Manopower]

J'ai toujours pris l'habitude de faire un .free quand je pilotais Excel mais c'est vrai que je créais le composant dynamiquement, il n'était pas posé sur la fiche...

et si tu le créé dynamiquement, avec le .free ça fonctionne ?

(voir FAQ pour ça)

[Bleuarff]

J'ai plus l'occaze de tester, l'erreur arrive maintenant plus tot. J'appelle une fonction et l'erreur AccessViolation apparait avant meme que je rentre dans le corps de la fonction ! (en debug pas à pas : l'erreur se produit quand je passe du begin à la 1ere ligne de la fonction).

La fonction en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TForm1.FautResize(ligne : array of TInfoCell) : boolean;
begin
  result := false;
  if high(ligne) < 0 then
    begin
    result := true;
    exit;
    end;
  if ligne[high(ligne)].affecte = true then
    result:= true;
end;

Je comprends plus rien, au secours !

[Laurent Dardenne]

Salut,
ton tableau est initialisé ?
Ce type d'approche devrait être suffisant pour fermer Excel, le composant étant effectivement libéré par la forme contenant le composant.

Code :

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

1
2
3
4
5
 ExcelWorksheet1.Close;
 ExcelWorksheet1.Disconnect;
 ExcelWorkBook1.Close;
 ExcelWorkBook1.Disconnect;
 ExcelApplication1.Quit;

Que souhaites-tu tester avec ceci ?

Code :

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

if high(ligne) < 0 then

[Bleuarff]

C'est pour tester si le tableau contient au moins 1 élément.
Pour ce qui est des erreurs, elles ont disparu en transmettant le paramètre ligne par adresse (var). Plus d'erreur depuis...