Discussion :

[zanoubya]

Bonsoir;
J'ai crée une dll sous vb qui contient une methode pour afficher un fenetre, je veux appeler cette dll sous delphi afin de récupérer cette fenetre VB alors comment je peux l'appeler sous delphi ?est ce que je dois la placer dans le dossier de mon projet delphi ??

Merci

[Lung]

Il faut placer ta DLL, là où ton exe pourra la trouver. Soit à côté de l'exe, soit dans un répertoire connu comme C:\Windows\system32\

Sinon, dans ton code, juste avant implementation, place la définition de ta fonction de ta DLL.
Quelque chose comme ça :

Code :

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

procedure MaFonctionDansLaDLL(Parametre: TypeDuParametre);   stdcall;   external 'MaDLL.dll';

[zanoubya]

Bonjour;
Merci pour la réponse.
J'ai ajouté ma dll comme tu m'as indiqué mais lors de l'exécution de mon application j'ai eu le message d'erreur suivant:
"le point d'entrée de la procédure maFonctionDansDll est introuvable dans la bibliothèque de liaisons dynamique nomDeMaDll.dll"

Merci de m'exprimer pourquoi j'ai eu ce message

Sans oublier que je veux appeler cette librairie lors du clic sur un bouton delphi alors c'est quoi l'instruction que je dois mettre ?

[Dr.Who]

en statique la dll doit etre a la racine du programme delphi ou accessible dans le PATH (c:\windows, c:\windows\system32) par exemple.

si ta DLL n'est pas placé dans l'un de ces repertoires, il faut faire une liaison dynamique via LoadLibrary(), GetProcAddress(), CloseHandle()...

[zanoubya]

Bonjour;
Voila j'ai utilisé le code suivant :

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
 
type
MyDll = procedure (X: string);  stdcall;
var
     Hbar: Thandle;
     myLib: MyDll;
 
 
begin
 
 Hbar := LoadLibrary('MaDll.DLL');
    if Hbar >= 32 then // success
   begin
     @myLib := GetProcAddress(Hbar, 'maFonctionDll');
{sachant que maFonctionDll dans ma MaDll a un seul paramètre de type string}
     myLib('msg');
     FreeLibrary(Hbar);
   end
   else
     MessageDlg('Error: could not find MaDll.DLL', mtError, [mbOk], 0)

mais ca me génère une erreur "Access violation at address 00000000. Read of address 00000000"

Merci

[cincap]

@ Zanoubya, regardes un peux cet exemple :

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
35
36
37
38
39
40
41
 
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;

@+,

Cincap

[zanoubya]

ça marche merci à tous