APPELER UNE FONCTION DEPUIS SON ADRESSE

Commentaire de Renfield le 08/09/2006 07:40:42 administrateur CS

c'est assez utile, en fait...
tu peux par exemple paramétrer quelque chose, et simplement fournir un pointeur différent selon ce que tu souhaites faire
appeler une dll dynamiquement sans faire de Declare
executer des bouts d'ASM directement intégrés à VB
etc, etc

Commentaire de draluorg le 17/09/2006 22:19:07

Salut a tous,

Source tres interessante en effet, mais j'ai une question a 2 cents...
Comment kon fai pour un sub ?

Merci d'avance
++

Commentaire de draluorg le 17/09/2006 22:37:08

Merci pour cette reponse si rapide ^^

En effet ca marche pour un sub sorry, mais apparement pas si c'est un sub qui ne prend aucun parametre et ne renvoi rien...(bon ils sont rare j'admets!) mais fallait que je tombe dessus evidement...

Encore merci
++

Commentaire de draluorg le 17/09/2006 23:24:21

Ok merci, je vais tester ca, meme si je comprends pas trop le AddressOf NoParam...
Je le mets ou alors le nom du module et du sub ?
Je me sens c** parfois c'est grav lol

Sinon pour le reste ca marche impec et c'est vraiment facile d'utilisation bravo!

++

Commentaire de draluorg le 19/09/2006 01:19:29

Ah ok je me disais bien que tu pensais que c'etait pour un sub "local" (de mon prog)

En fait je parle bien d'un sub api.(RtlSetProcessIsCritical)

J'ai essaye avec des tas d'autres api et aucun problemes, mais celui la ne fonctionne pas :( (il fonctionne bien si je le declare normalement)
C'est un api un peu ambigu, tres peu d'info sur le net :/

Merci pour ta reponse et desole de t'avoir fait perdre du temps

++

Commentaire de draluorg le 19/09/2006 21:14:09

Ok lol

Petite suggestion, car je viens de rencontrer le probleme, si le module n'est pas deja charger..

Remplacer:

        If Module Then
            Address = GetProcAddress(Module, Args(1))
        Else
            Err.Raise vbObjectError
            Exit Sub
        End If


par:

        If Not(Module) then Module = LoadLibrary(Args(0))

        If Module Then
            Address = GetProcAddress(Module, Args(1))
        Else            
            Err.Raise vbObjectError
            Exit Sub
        End If


++

Commentaire de santiago69 le 15/10/2006 19:20:36

Salut EB,

Autant te dire tout de suite, j'y comprend rien, mais alors rien du tout ! Bon je vais essaye de pas te faire perdre ton temps alors pour l'instant j'essaye juste de faire marcher ta classe.

J'ai pris l'exemple le plus con du monde : un formulaire.
On rempli 2 cases avec des nombres et y'a 2 boutons : additionner et multiplier. Et j'essaie de faire apparaitre le resultat dans une troisieme case.

Le code du formulaire est :
'=================================================================
Private Operation As New CDelegate

Private Sub Command1_Click()
    Operation.Create AddressOf Additionner, vbVDouble, vbDouble, vbDouble
    Text3.Text = Operation(CDbl(Text1.Text), CDbl(Text2.Text))
End Sub

Private Sub Command2_Click()
    Operation.Create AddressOf Multiplier, vbVDouble, vbDouble, vbDouble
    Text3.Text = Operation(CDbl(Text1.Text), CDbl(Text2.Text))
End Sub
'=================================================================

Et j'ai un petit module a cote qui dit :
'=================================================================
Function Additionner(Val1 As Double, Val2 As Double) As Double
    Additionner = Val1 + Val2
End Function

Function Multiplier(Val1 As Double, Val2 As Double) As Double
    Multiplier = Val1 * Val2
End Function
'=================================================================

J'execute, je rentre deux valeurs, je lance l'addition et la je crash VB :o(
J'ai le probleme aussi bien en mode execution qu'en mode compile.
J'ai essaye d'executer pas a pas, tout va bien jusqu'a ce qu'il arrive a la ligne
    Additionner = Val1 + Val2
Et la soit j'appuie sur F8 et il crash soit il suffit que je passe la souris sur Val1 ou Val2 (pour voir leur valeur) et il crash aussi.

As tu la moindre idee de ce qui peut poser probleme ?

Commentaire de draluorg le 15/10/2006 19:29:07

Salut,

Essais en mettant vbVDouble a la place de VbDouble....

++

Commentaire de EBArtSoft le 15/10/2006 19:42:40 administrateur CS

1- Effectivement c'est vbVDouble et pas vbDouble (mais les deux constantes sont identique donc rien a craindre de ce coté la)

2- Il faut declarer les arguments en ByVal et pas en ByRef l'omission du By... sous entend un ByRef donc erreur lors du passage des arguments la fonction attend un pointeur et tu lui sers une valeur d'ou le crash

3- Il faut reinitialiser l'objet CDelegate à chaque changement de fonction soit faire un Set MyDelegate = nothing puis Set MyDelegate = New CDelegate

avec tout ça ça devrait aller.

@+

Commentaire de santiago69 le 15/10/2006 19:52:19

Merci draluorg et EB,
EB felicitation pour cette classe.
Je trouve ca un peu con de noter quand on comprend rien, mais je trouve ca trop utile. Je viens de mettre 10.

Commentaire de Tropic le 08/02/2007 16:52:29

Bonjour

Ma question est, peut-on appeler une fonction dans un autre progamme
du style
MyFunction2.Create "MonProjet.EXE::Mafonction",vbLong,vbLong

Commentaire de Renfield le 25/11/2009 17:04:47 administrateur CS

Gaffe au DEP, EBArtSoft...
pas bon d'executer des données, Windows aime plus ça :/

demande un bout de mémoire avec un flag PAGE_EXECUTE_READWRITE et zou :o
tout le monde il est content ^^