Delphi, Excel et OLE automation

Version imprimable

23/02/2016, 09h29
CoyotteDundee

Delphi, Excel et OLE automation

Bonjour à toutes et tous,

J'ai une fonction Delphi à laquelle je voudrais accéder depuis Excel.
Pour ce faire, j'ai créé une petite application qui comprend un objet Automation et une fonction simpliste.
Je peux, moyennant un petit morceau de code en VBA accéder à la fonction depuis Excel.

Tout va pour le mieux dans le meilleurs des mondes... sauf que... sauf que...

Par curiosité, j'ai commandé l'affichage d'une boîte de dialogue lorsque mon programme est lancé et lorsqu'il est terminé.
Stupeur et tremblements : Ces boîtes apparaissent pour chaque appel de ma fonction depuis ma feuille Excel.

Ma question : Est-il possible de faire en sorte que mon "application" ne soit chargé qu'une seule fois par Excel.
la vraie fonction fera appel à une ou plusieurs tables SQLite et je voudrais éviter de créer les connexions et tables pour chaque appel à la fonction.

Je précise qu'actuellement, l'objet automation est déclaré Single Thread et Single Instance. Peut-être dois-je chercher de ce côté là ? Mais alors quelles parties de mon code doivent être protégées ?
Si quelqu'une pouvait m'indiquer une piste, voire même pourquoi pas un tutoriel à ce sujet.

Merci d'avance,

Coyotte

ps: Oublié de préciser que je suis en Xe8...
23/02/2016, 14h39
ShaiLeTroll

En Delphi, pour utiliser un objet existant c'est GetActiveOleObject si cela renvoie nil, on utilise CreateOleObject pour avoir un nouvel objet
Idem en VBA : GetObjet et CreateObject
Idem en PHP : com_get_active_object, j'utilisais bien l'instance déjà lancé d'un EXE qui contenait un objet COM

Après, faudrait savoir si Excel peut conserver un objet COM ouvert tout du long de son éxecution (peut-être une variable globale en VBA, je ne maitrise pas du tout les macros)
Il est possible qu'a chaque exécution du script VBA, tout le contexte mémoire est alloué au début et libérée à la fin,
du coup, ton objet a une durée de vie assez courte et il est chargé et déchargé à chaque fois que le script est lancé

salut

comme le dis ShaiLeTroll
il faut faire un truc du genre

Code:

1
2
3
4
5
6
7
8
9
10
 
    try
      MonAppli := GetActiveOleObject(MonAppliCLassName);
    except
      try
        MonAppli := CreateOleObject(MonAppliCLassName);
      except
        raise Exception.Create('Impossible de trouver MonAppli. ');
      end;
    end;

26/02/2016, 15h05
CoyotteDundee

Hello Shai et Anapurna,

Merci pour vos réponses.

@Anapurna,: Sauf erreur de ma part, ton code est en Delphi... Mon problème se situe plutôt du côte d'Excel.
@ShaiLeTroll: En effet, je m'oriente vers une variable "globale" mais je dois plancher la question car les premiers tests ne sont pas concluants :-(

Merci pour votre aide en tous cas.

Coyotte