Utiliser une DLLRésolu

Question

Bonsoir, je cherche &#224; utiliser les fonctions qui se trouvent dans une DLL externe &#224; mon programme VB.

Le seul probl&#232;me est que je ne sais pas quelle ligne &#233;crire pour dire &#224; VB o&#249; se trouve la DLL sur mon disque dur... en l'occurence ce serait App.Path + "\data\xyz.dll"

Merci d'avance pour vos r&#233;ponses !

PCPT · Accepted Answer

je vais t'aider BruNews 

SetCurrentDirectory est une fonction pour dire &#224; VB que son r&#233;pertoire "en cours" est celui que tu d&#233;finis.

donc tu cr&#233;&#233;s un module contenant

Public Sub Main()
   '.....instruction de BruNews
   Form_Principale.Show
End Sub

et tu d&#233;finis le projet sur ce Main pour d&#233;marrer. donc forc&#233;ment, VB va chercher le Path de la DLL dans son CurrentPath, que tu auras d&#233;fini dans ton Main

PCPT

BruNews · Answer

Balance un SetCurrentDirectory() sur le dossier o&#249; elle se trouve tout au d&#233;but de ton prog et devrait aller.

ciao...
BruNews, MVP VC++

bilat0 · Answer

Merci pour la r&#233;ponse mais il n'a pas l'air d'accord....

Y'a pas une ligne &#224; ajouter dans le module... genre "Declare (App.Path + "\data\xyz.dll")"

BruNews · Answer

Mais si qu'il sera d'accord, le mieux est de ne pas lui demander.
S&#233;rieux je l'ai d&#233;j&#224; fait et va impec.
Lance l'appel SetCurrentDirectory depuis ton entr&#233;e Main(), suffit juste que soit fait avant le 1er appel vers la dll, ensuite par force le syst&#232;me trouvera ta dll &#224; charger car elle sera dans ta currentDirectory.
Dans ton "Declare Function..." ne plus mettre de chemin du tout.

ciao...
BruNews, MVP VC++

bilat0 · Answer

Alors je dois faire un truc faux... mais en tout cas VB me r&#233;pond "Invalid Outside Procedure" avec cette ligne l&#224; : SetCurrentDirectory() = App.Path que je l&#224; mette &#224; Form_Load ou apr&#232;s Option Explicit

BruNews · Answer

ah non, l&#224; on part de trop loin.
Va voir dans les sources comment on utilise les appels API.
Declare Function SetCurrentDirectory....

chem = app.path + "dossier\autredossier"
SetCurrentDirectory chem

voila le genre qui devrait se trouver dans ton main()

ciao...
BruNews, MVP VC++

bilat0 · Answer

D&#233;sol&#233; mais euh...   tu me fiches dedans avec ton main() j'ai pas de main en VB... si tu penses au contenu de la DLL, je ne l'ai pas cr&#233;er moi, c'est une utilisation apr&#232;s achat...

BruNews · Answer

Bien entendu il y a un main() dans vb, suffit d'indiquer dans propri&#233;t&#233;s du proj que tu veux d&#233;marrer sur main(), auquel cas tu cr&#233;es la fonction dans un module et dedans tu chargeras la form que tu voudras apr&#232;s l'appel SetCurrentDirectory.

ciao...
BruNews, MVP VC++

bilat0 · Answer

Merci pour cet &#233;claircissement, &#231;a &#224; l'air d'aller mieux, je vous tiens au courant si il y'&#224; d'autres probl&#232;mes !

PCPT · Answer

tu peux valider plusieurs r&#233;ponses, je n'ai fait que traduire celle de BruNews 
PCPT

 · Answer

Hooooo d&#233;cidemment, erreur au d&#233;marrage de l'application, j'ai parl&#233; trop vite !

Il pointe encore et toujours cette ligne de SetCurrentDirectory()=App.Path, l'erreur est "Sub or Function not defined" d&#233;cidemment, je n'y arriverai donc jamais ! c'est quand m&#234;me tout simple comme truc...

BruNews · Answer

Mais c'est quand que tu vas enlever &#231;a ?
SetCurrentDirectory()=App.Path

SetCurrentDirectory est une API !!!
Regarde plus haut.

ciao...
BruNews, MVP VC++

PCPT · Answer

tu trouverais logique de faire MsgBox "bonjour", 32, "hello!!" = "hein?"   ?
PCPT

PCPT · Answer

arf, &#231;&#224; ne fait pas d'erreur

bilat0 · Answer

Pfffff moi je peux pas &#233;crire simplement SetCurrentDirectory() il m'exige un = 

Non c'est pas logique de mettre MsgBox blablabla = qqch

Je l'ai bien compris... mais ma fois... &#231;a marche pas autrement...

PCPT · Answer

Call SetCurrentDirectory()

normalement, c'est tout.
je vais v&#233;rifier de ce pas...
PCPT

PCPT · Answer

*et le path dans les parenth&#232;ses, &#233;videmment.
c'est v&#233;rifi&#233;, c'est bien &#231;&#224; !
PCPT

bilat0 · Answer

Je dois avoir un s&#233;rieux bug, car VB me r&#233;pond encore et toujours "Sub or Function not defined" sur la ligne : Call SetCurrentDirectory(App.Path) &#231;a commen&#231;e &#224; me

BruNews · Answer

Tu as bien mis la d&#233;claration de l'API ?
Declare Function SetCurrentDirectory.....

ciao...
BruNews, MVP VC++

bilat0 · Answer

oui.....

bilat0 · Answer

bah tiens, maintenant y me dis que y'a pas de DLL dans le r&#233;pertoire... &#231;a me change... pourtant elle y est !

SetCurrentDirectory est le seul moyen ??? parceque l&#224; c'est vraiment pas top...

PCPT · Answer

une Form, un Bouton

Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long


Private Sub Command1_Click()
    '1 : r&#233;pertoire de l'application
    MsgBox "rep appli : " & App.Path
    
    '2 : donne le rep actuel
    Call SetCurrentDirectory("C:\WINDOWS")
    
    '3 : r&#233;cup&#232;re le rep actuel
    Dim aPath As String
    aPath = String(255, Chr(0))
    Call GetCurrentDirectory(255, aPath)
    MsgBox "rep donn&#233; : " & aPath
End Sub

PCPT

bilat0 · Answer

Ben voil&#224;&#224;&#224;&#224;&#224;&#224;&#224;&#224; un truc qui marche ! bon &#233;videmment maintenant que tout est donn&#233;... merci beaucoup !

Et d&#233;sol&#233; si &#231;a parait simple... mais l&#224;, j'&#233;tais tout perdu...

Utiliser une DLL

23 réponses

Discussions similaires