UTILISATION DE FONCTION CONTENUE DANS UNE DLL

---

Auteur : MHI

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Objet permettant de charger une DLL est d'utiliser les fonctions la composant.

Utilisation :
- il suffit de dériver la classe TLoadDll comme ci-dessous :

    // Objet permettant d'accéder à Exemple.DLL
  TLoadDLLExemple = class(TLoadDll)
  protected
    procedure FreeLibrary; override;
    procedure LoadLibrary; override;
  Public
    GetFunction1: Function: boolean; stdcall ;
    GetFunction2: Function: boolean; stdcall ;
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{ TLoadDLLExemple }

constructor TLoadDLLExemple.Create(AOwner: TComponent);
begin
  inherited;
  if not (csDesigning in ComponentState) then
    // chargement de la DLL
    Dll:= 'EXEMPLE.DLL';
end;

procedure TLoadDLLExemple.FreeLibrary;
begin
  @GetFunction1:= nil;
  @GetFunction1:= nil;
  inherited;
end;

procedure TLoadDLLExemple.LoadLibrary;
begin
  inherited;
  // fonction1 et fonction2 sont les noms dans la DLL
  @GetFunction1:= GetFunction('fonction1');
  @GetFunction1:= GetFunction('fonction2');
end;

Télécharger le zip