faire fonctionner une API dans une DLL

Question

salut &#224; tous
j'ai mis api SetTimer dans 1 class pour faire un dll

lors de la compilation : erreur de compilation " utilisation incorrecte de l'operateur AddressOf"

ce que j'ai ou que l'on ma presenter

Il faut faire un wrapper pour AddressOf, car tu ne peux pas l'utiliser directement dans un appel d'API, qui attend un Long.

' Fonction   : GetFuncAdr
' Auteur     : Christophe RENAUD
' Objet      : Retourne l'adresse d'une fonction. En effet, le mot-cl&#233; 'AddressOf' ne peut &#234;tre utilis&#233; directement
' Arguments  : ByVal Adr As Long : Adresse de la fonction
' Retour     : Long : L'adresse de la fonction
'
Private Function GetFuncAdr(ByVal Adr As Long) As Long
    ' C'est idiot mais totalement indispensable
    GetFuncAdr = Adr
End Function

Et tu t'en sert comme cela :
SetTimer(..., ..., ..., GetFuncAdr(AddressOf Le nom de ta fonction))

Il n'y a pas de fonction plus con de GetFuncAdr, mais la syntaxe de AddressOf  la rend obligatoire : Ceci est du au fait que, en VB, AddressOf est un op&#233;rateur et non pas une fonction (pas de parenth&#232;ses). Et une API ne peut recevoir un Op&#233;rateur en tant que argument.

essai

SetTimer Form1.hwnd, 5 , 1000 , addressof  NomduSub = erreur
SetTimer Form1.hwnd, 5 , 1000 , adr NomduSub = erreur
SetTimer Form1.hwnd, 5 , 1000 , GetFuncAdr NomduSub = erreur

SetTimer(Form1.Hwnd, 5 , 1000, GetFuncAdr(AddressOf LeNomDeTaSub))

SetTimer Form1.hwnd, 5, 1000, GetFuncAdr(AddressOf NomDu Sub) =
erreur de compilation "Utilisation de l'operateur AddressOf"

et si 
SetTimer (Form1.hwnd, 5, 1000, GetFuncAdr(AddressOf NomDu Sub))  erreur de compilation "Attendu"

rien de tous ce que vous avez lu jusque la ne fonctione

merci d'avance de votre aide

Gobillot · Answer

dans un module

Public Declare 
Function SetTimer 
Lib 
"user32" (
ByVal hwnd 
As 
Long, 
ByVal nIDEvent 
As 
Long, 
ByVal uElapse 
As 
Long, 
ByVal lpTimerFunc 
As 
Long) 
As 
Long


Public Declare 
Function KillTimer 
Lib 
"user32" (
ByVal hwnd 
As 
Long, 
ByVal nIDEvent 
As 
Long) 
As 
Long


Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
       'ton programme

End Sub



dans la Forme

Private 
Sub Form_Load()

    SetTimer Me.hwnd, 0, 1000, AddressOf TimerProc
End 
Sub

Private Sub Form_Unload(Cancel As Integer)

    KillTimer Me.hwnd, 0

End Sub

Daniel

VBREP · Answer

1 MODULE N'EST PAS 1 DLL
MERCI QUAND MEME 
MAIS PAS BON

Gobillot · Answer

n'emp&#234;che que tu dois le mettre en Public.
que tu peux faire appel &#224; AdressOf directement.
que dans "AddressOf NomDu Sub" c'est pas tr&#232;s bon non plus.
et faut pas oublier le KillTimer &#224; la fin.

Daniel

VBREP · Answer

IL FAUT QUE SETTIMER SOIT DANS LA CLASS DU DLL ET PAS DANS L'APPLI
SINON AUCUN INTERET A FAIRE UN DLL

cs_DARKSIDIOUS · Answer

Pas besoin de t'&#233;nerver VBREP !



Ce que veux s&#251;rement dire Gobillot, c'est que pour utiliser AddressOf,
il faut que la fonction soit dans une zone de m&#233;moire non modifiable,
et donc, elle ne peux pas se situer dans un module de classe vu que
celui-ci peut &#234;tre instanci&#233;, et donc, les adresses des fonctions sont
variables.



Donc, il faut mettre ta fonction dans un module classique, et y faire
appel &#224; partir du module de classe de ta dll (le module classique &#233;tant
dans le projet de ta dll bien entendu !).

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Faire fonctionner une API dans une DLL

5 réponses

Discussions similaires