[DELPHI 7][DLL] Message d'erreur s'il n'y a pas de DLL

**Stef.web** · 19/02/2007, 18h38

Bonjour
Comment ne pas avoir de message d'erreur si une dll n'est pas présente au démarrage d'une appli?

plus concretement, je souhaite utiliser un boîtier DMX. Pour l'utiliser, il suffit de faire appel à une dll.

Cette dll est une option à mon programme et l'utilisateur final n'en a pas forcement besoin (d'où la notion d'option

)

L'appel à la DLL est simple:

Code :

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

1
2
     Function DasUsbCommand(Command, Param: integer; Bloc: PChar): integer;
       cdecl; external 'dashard2006.dll';

Maintenant, si je fait une mise à jour sans la dll de fournit et que le client lance l'appli, c'est un message d'erreur à coup sur!!!

Si quelqu'un à une idée, et si quelqu'un à compris ce que j'explique ...

Amicalement

Stéf.

**anapurna** · 19/02/2007, 18h43

salut

Comment appel tu ta dll
noemalement si tu fait les chose dans les regle de l'art

tu devrait avoir un handle sur la dll il te suffit donc juste de verifier que celui-ci soit valide

@+ phil

**Stef.web** · 19/02/2007, 19h38

Comme ça par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
     interface_open := DasUSBCommand(DHC_INIT, 0, nil);
     interface_open := DasUSBCommand(DHC_OPEN, 0, nil);
     if interface_open > 0 then
         v := DasUSBCommand(DHC_DMXOUTOFF, 0, nil)
        else
     begin
          showmessage ('Erreur : Ne trouve pas l''interface "Intelligent USB DMX"');
          application.terminate;
          exit;
     end;

Je n'utilise donc pas de handle.

Mon problème se situ à la définition de la fonction que j'utilise (voir le code au 1er post)

**Cl@udius** · 19/02/2007, 19h48

Salut

Il te suffit de charger dynamiquement ta DLL à l'aide de LoadLibrary (qui renvoie un handle). En cas d'échec de chargement le handle retourné est égal à 0.
Ensuite il est facile dans le code de faire appel ou non aux fonctions de ta DLL.

@+

**Stef.web** · 19/02/2007, 20h10

Merci, il semble que se soit la solutiondont j'ai besoin, néanmoin, as-tu une exemple simple et concret à me proposer?

Merci par avance.

**Stef.web** · 22/03/2007, 17h27

UP , j'aurais toujours besoin d'un exemple

Amicalement.

**Linkin** · 22/03/2007, 17h35

Avec LoadLibrary et Delphi sur google, la première page est de Developpez, avec un morceau de code ...

**Caine** · 22/03/2007, 17h36

Salut,

Il faut utiliser comme indiqué LoadLibrary:

Code :

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

1
2
3
4
 
HANDLE Hnd = LoadLibrary("Nom de la dll", options);
If not Assigned (Hnd) Then
   // Traiter proprement le cas d'erreur.

UNe fois la dll chargée en mémoire, il faut avoir définit pour chaque fonction un type fonctionnel qui correspond, et charger avec GetProcAddress.

Toutes les infos avec une recherche dans la FAQ delphi:
http://delphi.developpez.com/faq/?pa...pelfonctiondll

**Cl@udius** · 22/03/2007, 17h38

Re

Ben je t'avais oublié !!!

Sorry.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
interface
 
var
  MaFonctionDLL: function(const v: Integer): Integer; stdcall;
 
  function LoadDLL(Filename: string): Boolean;
  procedure FreeDLL;
 
 
implementation
 
var
  hDLL: Cardinal;
 
function LoadDLL(Filename: string): Boolean;
begin
  result := True;
  // Chargement de la DLL
  hDLL := LoadLibrary(PChar(Filename));
  if (hDLL <> 0) then
    begin
      @MaFonctionDLL := GetProcAddress(hDLL, 'MaFonction');
      if (@MaFonctionDLL = nil) then
        ShowMessage('fonction ''MaFonctionDLL'' non chargée');
    end;
  else
    result := False;
end;
 
procedure FreeDLL;
begin
  if (hDLL <> 0) then FreeLibrary(hDLL); //libération de la DLL
end;