[VB6]ouvrir une DLL sans en conaitre le nom à la creation

Version imprimable

04/02/2004, 10h51
victorracine

[VB6]ouvrir une DLL sans en conaitre le nom à la creation

SAlut à tous,

VOila j'ai un petit probleme de VB. Durant l'execution de mon application je dois lancer une fonction presente dans une DLL. Je ne connais pas le repertoire de cette DLL durant la creation de l'application, je connais par contre son nom. Durant l'execution, je determine le repertoire de la DLL. Comment executer la fonction qui m'interesse dans cette DLL si je ne connais pas son nom complet durant la creation? Je peux quand meme utiliser "Public Declare Function toto Lib "MIA_C++.dll" (...)"?

A bientot

VIc

Hello,

Les librairies référencées par Declare sont recherchées entre autres dans le répertoire courant. Donc si tu changes celui-ci provisoirement avant d'appeler ta fonction, en principe ça passe :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Declare Function MaFonction Lib "MaDll"(ByVal N As Double) As Double Sub Test() Dim DLLPath As String Dim CDir As String DLLPath = "C:\Mon Dossier" CDir = CurDir ChDir DLLPath MsgBox MaFonction(3.14) ChDir CDir End Sub
Si tu veux un truc plus "propre" mais moins simple, tu peux aussi ajouter le chemin d'accès de ta DLL à la variable d'environnement PATH -par SetEnvironmentVariable- avant d'appeler ta fonction.

Bonne chance.

05/02/2004, 14h09
victorracine

Ok merci, ta premiere solution ne marche pas mal mais effectivement je prefairerait utiliser le coup de SetEnvironmentVariable. Comment utilise t'on la ptateforme SDK?

Merci
VIc
05/02/2004, 14h19
victorracine

en fait c'est bon j'ai trouvé la doc merci.

Avec SetEnvironmentVariable :

Code:

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
Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" _
(ByVal lpName As String, ByVal lpValue As String) As Long
 
Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" _
(ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Declare Function MaFonction Lib "MaDll" (Nombre As Double) As Double
 
Sub Test()
 
   MsgBox MaFonction(3.14)
 
End Sub
 
Sub Main()
 
   Dim EnvPath As String
 
   EnvPath = Space(GetEnvironmentVariable("PATH", EnvPath, 0) - 1)
   GetEnvironmentVariable "PATH", EnvPath, Len(EnvPath) + 1
   SetEnvironmentVariable "PATH", EnvPath & ";C:\Temp"
 
   Test
 
End Sub

Il suffit d'exécuter SetEnvironmentVariable une seule fois à l'ouverture du programme, c'est pourquoi je l'ai mis dans Main.

Attention, il y a un risque de plantage sous Visual Studio à partir de la deuxième exécution, j'ignore pourquoi. Aucun problème en revanche quand on lance le programme compilé.

05/02/2004, 15h16
victorracine

mercciiii, ca marche super bien :yaisse2: !!! :hola: :hola: :hola: