Discussion :

[maritime]

Bonjour,
Créer des dll en C compatibles VB6 tuto que j'utilise pour apprendre à compiler une dll avec vc++ 6.0 me pose problème.

en voici le code :

Def.h

Code c :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
#include "windows.h"
#define export __declspec (dllexport)
 
export void __stdcall HelloWorld(void );

fichier.c

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
#include "Def.h"
 
void __stdcall HelloWorld(void )
{
    MessageBox(NULL,"Hello !","Message",MB_OK);
}
 
 
 .def
LIBRARY Fonctions
DESCRIPTION "Essai de dll"
EXPORTS
HelloWorld _HelloWorld@0

dans module vb6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Sub HelloWorld Lib "Fonctions.dll" ()

la dll crée est stockée dans le rep. system de windows.
L'auteur ne montre pas comment faire pour exécuter la dll dans vb6.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
...
End Sub

Merci.

[sevyc64]

la dll crée est stockée dans le rep. system de windows.

Déjà, si tu es sur un Windows 64 bits, ce qui est probable, ce n'est pas C:\windows\system32\ qu'il faudra mettre la dll, mais dans c:\windows\sysWOW64\

L'auteur ne montre pas comment faire pour exécuter la dll dans vb6.

Dans le même module que là ou tu as ton Private Declare ... tu pourras simplement l'utiliser comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
    HelloWorld()
End Sub

[maritime]

Bonjour,
Comme VB6 semble ne pas fonctionner sous win 10 je l'ai installé sur Xp en virtual box.
la compilation de la dll se fait aussi sur Xp vc++ 6.0, ma dll est bien dans le rep win32.

[ProgElecT]

Salut

Comme VB6 semble ne pas fonctionner sous win 10

Si VB6 peut fonctionner même sous window 11, mais faire doute l'installation sous session administrateur, puis lancer l'éditeur en tant qu'administrateur pour ne pas avoir de problèmes de droits d’accès au différentes sources qu’utilisera le projet/programme.

[maritime]

J'ai fait plusieurs tentatives d'installation de vb6 sous win 10, plusieurs procédures existent sut le net (en anglais).
Je me rappelle suivre quelques unes, en vain.
Quant à ma dll, ca ne marche pas, Hello devrait s'afficher quelque part , text1.text par exemple ...

[ProgElecT]

Re

Lire la totalité de cette discussion, il me semble qu'il te manque l'inscription de ta DLL dans la base de registre, tu trouveras comment le faire de la discussion mise en lien.

[maritime]

Re

tu trouveras comment le faire de la discussion mise en lien.

je ne vois pas !

[maritime]

Re

il me semble qu'il te manque l'inscription de ta DLL dans la base de registre, tu trouveras comment le faire de la discussion mise en lien.

J'ai essayé la base de registre en exécutant : regsvr32 c:\Fonctions.dll.
je reçois le msg : "C:\Fonctions.dll a été chargé mais le point d'entrée DllRegisterServer est introuvable.
Ce fichier ne peut être enregistré."

[sevyc64]

normalement les dll de type api win32 n'ont pas besoin d'être registrées, à la différence des dll ActiveX ou COM.

Tu dis que ça fonctionne pas, mais tu obtiens quoi comme message d'erreur ?

[umfred]

le code de la fonction dans la dll est supposé afficher un MessageBox (boite de dialogue) contenant "Hello!" avec "Message" en titre.
(Dans le tuto, la partie .def doit être dans un fichier, par exemple Fonctions.def pour être cohérent avec le nom de la dll et ce fichier doit accompagner la dll)

[maritime]

....

J'ai recompilé le code C apparemment le même que le premier, ma DLL est crée 0 error, 0 warning.
J'ai mis ma dll dans le rep. system32
je l'ai ajouté a Vb6, ça marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Fonctions.h
#include "windows.h"
#define export __declspec (dllexport)
 
export void __stdcall HelloWorld(void );

fichier.c

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
#include "Fonctions.h"
 
void __stdcall HelloWorld(void )
{
    MessageBox(NULL,"Hello !","Message",MB_OK);
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Fonctions.def
LIBRARY Fonctions
DESCRIPTION "Essai de dll"
EXPORTS
HelloWorld _HelloWorld@0

VB6:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Declare Sub HelloWorld Lib "Fonctions.dll" ()
Private Sub Command1_Click()
HelloWorld
End Sub