Une fonction déjà présente

Vous avez dû remarquer que lorsque vous avez créé votre projet, une fonction était déjà présente, il s'agit de la fonction DllMain. Chaque Dll doit avoir une fonction DllMain : elle peut être appelée à divers moments, lorsque la Dll est initialisée ou rechargée. Nous n'utiliserons pas ici cette fonction, mais libre à vous d'y placer du code à exécuter lors du chargement de la Dll.

L'utilisation de paramètres

Une fonction ne serait rien sans l'utilisation de paramètres... Créons une petite fonction qui additionnera deux entiers. Sous Visual C++, ajoutez le prototype de la fonction dans le fichier header :

int __stdcall Additionne(int a, int b)
{
  return (a + b);
}

Additionne =   ?Additionne@@YGHHH@Z          PRIVATE

Public Declare Function DllAdditionne Lib "dll_fichier.dll" 
     Alias "Additionne" (ByVal a As Long, ByVal b As Long) As Long

int __stdcall AdditionnePtr(int* a, int* b)
{
  return ((*a) + (*b));
}

Et les objets ?

Pour terminer cette introduction à la programmation de Dlls, abordons un point essentiel, et répondons à une question que tout le monde se pose (si si...) : Qu'est-ce qu'on mange ce soir ? Pardon : Peut-on exporter des classes avec une Dll ?

La réponse est simple : des pâtes, ah... pardon : oui et non... En fait, il est possible d'exporter des classes, mais elles ne seront pas réutilisables sous VB car non importables dans cet environnement ! On doit avoir recours à une petite supercherie pour parvenir à nos fins... En fait, il va nous falloir écrire une interface pour pouvoir utiliser notre classe ! En clair, chaque méthode dont nous voudrons disposer dans notre programme VB, y compris les constructeurs/destructeurs, devra être appelée à partir d'une fonction qui sera, elle, exportée par la Dll. Passons à un petit exemple, cela vaut mieux qu'un long discours...

Créez une petite classe sous VisualC++, par exemple, celle-ci :

class Test
{
  public:
    Test(); // Constructeur, initialisa A à 0
    ~Test(); // Destructeur, ne fait rien de spécial
    int SetA(int a); // Affecte a à A
    int GetA(void); // Renvoie A
  private:
    int A; // Donnée privée : A
};

// On renvoie l'adresse d'un nouvel objet Test
Test* __stdcall Test_Constr(void)
{
  return (new Test);
}

// Détruit un objet Test à partir de son adresse
int __stdcall Test_Destr(Test* Objet)
{
  delete Objet;
  return 0;
}

// Appelle la méthode SetA() d'un objet à partir de son adresse
int __stdcall Test_SetA(Test* Objet, int a)
{
  Objet->SetA(a);
  return 0;
}

// Appelle la méthode GetA() d'un objet à partir de son adresse
int __stdcall Test_GetA(const Test* Objet)
{
  return Objet->GetA();
}

Public Declare Function DllTest_Constr Lib "dll_fichier.dll"
     Alias "Test_Constr" () As Long
Public Declare Function DllTest_Destr Lib "dll_fichier.dll" 
     Alias "Test_Destr" (ByVal Adresse As Long) As Long
Public Declare Function DllTest_GetA Lib "dll_fichier.dll" 
     Alias "Test_GetA" (ByVal Adresse As Long, ByVal a As Long) As Long
Public Declare Function DllTest_SetA Lib "dll_fichier.dll" 
     Alias "Test_SetA" (ByVal Adresse As Long) As Long