EXPORTER DES FONCTIONS DANS UNE DLL VB6 ADDIN

Commentaire de BruNews le 07/01/2004 23:06:36 administrateur CS

Salut,
ce pauvre VB, il en aura vu de toutes les couleurs avec toi.

Commentaire de lumesh le 08/01/2004 06:09:36

Tient il serais bien pretique d'ajouter une rubrique ADDIN dans les categorie...      <- qui disparaitera avec vb6  ;) ;) ;) ;)

Commentaire de EBArtSoft le 08/01/2004 09:49:07 administrateur CS

shadomoy> l'interet par rapport a un "simple" referencement de ta dll
activex c'est justement que tu n'utilise pas d'activex grace a cette technique ta dll est chargé en memoire comme n'importe quel autre
dll mais surtout lorsque tu appel une fonction vb ne crée par un
nouvel espace memoire pour une classe et appel directement ta fonction par un call.

tu doit donc declarer tes fonctions comme le module kernel par exemple :

declare function mafonction lib "madll.dll" (byval mesarguments as long) as long

cela te permet egalement de partager les fonctions que tu utilise souvent sans reecrire le code "module" de tes programmes
(ce qui est la base meme d'une dll et qui est un mis de coté avec
les modules de classe)

bref les applications sont multiple, pour ce qui est de l'utilisation
voici les instructions :

- dezziper defaddin.dll (ou compiler la a partir du projet)
- faire regsvr32 defaddin.dll
- lancez vb6
- cliquez sur gestionnaire de complement
- ajoutez "ebartsoft@ dll function exoporter"
- creez un nouveau projet du type dll activex
- ajoutez un module "standard"
- ajoutez qlq fonctions public
- activez l'addin en cliquant sur le switch rouge
- activez egalement les fonctions a exporter en cliquant sur les croix
- puis compilez le projet
- ... la dll est creé !

@+

Commentaire de shadowmoy le 08/01/2004 18:11:58

en gros ca permet de creer des dll comme celle du c++ si j'ai bien compris :op c'est clair c'est super cool mais y a t'il un reel gain de performances par rapport à une dll activex ?
hein Manu :)  ?

Commentaire de Afyn le 09/01/2004 11:52:27

Puis je me permettre encore un encouragement !

Le temps que tu passes sur VB et en asm doit être phénoménal.

Pourrais tu par exemple faire un petit prog qui montre les différences de performances entre un appel conventionnel et un appel amélioré par tes soins.
Et expliquer les situations ou c'est vraiment utile d'utilser telle ou telle méthode.

Merci d'avance.

Afyn
Navedac

Commentaire de benzinafouad le 04/03/2004 12:51:27

Merçi Beaucoup

Mais il reste comme même un probleme, c'est que si je créee une procédure, ou une Fonction, stockée dans une DLL et qui permet d'ouvrir un form, Vb6.exe genere une erreur et s'arrete complètement.

Encore Un problème : Si j'utilise un objet comme DAO 3.6 dans le MOdule, la fonction ne réagie plus.

Commentaire de EBArtSoft le 26/05/2004 07:38:25 administrateur CS

azerty> Ce n'est pas un probleme et il n'y a rien d'etrange...
ce qu'il se passe c'est que tu declare ta fonction dans un module vb
par consequent ta fonction attend pour tout argument string une
chaine de type ANSI alors que vb traite des chaines Unicode
c'est pour cela que ton message indique des ????. pour resoudre
ce probleme crée une typlib (tlb) avec les declarations de ta dll
ce qui forcera vb a ne pas convertir unicode>ansi avant l'appel

@+

Commentaire de Afyn le 26/05/2004 10:46:17

Tu pénétres (sans jeu de mots) dans le Royaume d'EB...
Asm et TLB seront les 2 mamelles de tes progrés...

Si tu regardes la Liste des Codes d'EB, tu trouveras de koi faire
des TLB's. Ou alors Tape TLB ds le moteur de recherche de VBFrance.

Bon courage.

Afyn
Navedac

Commentaire de EBArtSoft le 26/05/2004 13:21:43 administrateur CS

azerty>

UNICODE > ANSI : a$ = StrConv(b$,vbFromUnicode)
ANSI > UNICODE: b$ = StrConv(a$,vbUnicode)

pour info une chaine :

ANSI = "A" & "B" & "C" & "D" & Chr$(0)
(Codage sur 1 octet 256 caracteres)

UNICODE = "A" & chr$(0) & "B" & chr$(0) & chr$(0) & chr$(0)
(Codage sur 2 octets 65536 caracteres)

c'est pas plus compliqué que ça...

@+

Commentaire de azerty25 le 26/05/2004 21:00:40

Alors, je vais t'expliquer ce qui résulte de mes qq recherches et de mes manips. J'ai, dans mon projet de DLL, dans ses propriétés, composants, coché remote server files (eh oui, j'ai version anglaise, j'espere que ça n'a pas d'influence sur ton code), j'ai activé le bouton vert de ton addin, activé les fonctions (dont celle qui pose probleme est : Public Sub msg(chaine As String)
MsgBox chaine
End Sub
)
, puis compilé. Ensuite, j'ai fait un nouveau projet standard, j'ai mis en référence le tlb crée lors de la compil de la DLL, j'ai ensuite déclaré la sub (Private Declare Sub msg Lib "dll" (chaine As String)), puis appele la sub dans un bouton par msg "coucou".
Mais j'ai toujours le probleme des points d'interrogation :(

Commentaire de azerty25 le 27/05/2004 20:36:41

Ca fonctionne parfaitement, je te remercie beaucoup pour ton aide. par contre, c'est pas vbFromUnicode qu'il faut mettre mais vbUnicode ;)

Commentaire de sinouhe17 le 08/06/2004 09:34:17

Super source. Moi j'appelle les fct de la DLL depuis XL/VBA.
Mais j'ai le problème de l'UNICODE. J'ai bien compris qu'il pourrait y avoir une solution avec les TLB mais j'y arrive pas....
Si on dit que j'ai une fonction foo(string s) as string exportée, il semble qu'il y ai une conversion en UNICODE qq part. En effet, à l'appel, foo("toto") au niveau XL/VBA j'ai bien une chaine ANSI mais à reception dans la fct, s est en unicode.... QQun sait comment rester en ANSI partout ?
d'avance merci.

Commentaire de Fabio972 le 15/09/2004 14:21:53

BRAVO !!! SUBLIME !!! MAGNIFIQUE !!!
J'ai cherché longtemps sur le net comment exporter ces fonctions d'un .dll depuis VB.

N'ayant jamais fais de .dll avant, ce sont les autres codeurs qui m'ont signalé que mes fonctinos n'étaient pas exportées.

Maintenant elle le sont en quelques clicks et c'est génial (par contre elles ne fonctionnent pas de l'autre côté mais c'est un autre problème) !!!

!!! MERCI BEAUCOUP EB !!!
10 évidemment (d'ailleurs, comment se fait-ce qu'elle ne siot pas noté cette merveilleuse source ?)

Commentaire de Fabio972 le 15/09/2004 14:58:07

J'ai trouvé :
http://www.vbfrance.com/code.aspx?ID=7785

Merci EB pour ces bons softs !!!

Commentaire de ania le 07/08/2005 00:15:26

Bonjour,

Est-ce que ca devrait marcher quand on appelle les fcts de la DLL depuis XL/VBA ?
Ca me fait planter XL (et ACCESS aussi) ...
Dans VB6, ca marche impec.
Benoit