dll visual C++ dans visual basic

Version imprimable

bonjour tout le monde,

j'ai un E-NO-RME problème :cry: et j'espère que vous pourrez m'aider.

Voilà, j'essaie de creer une DLL avec visual c++ pour pouvoir l'utiliser sur visual basic. Seulement j'ai une erreur lors de l'exécution de mon programme visual basic.
J'ai commencé par faire un .h et .cpp avec visual c++ comme ceci :

voilà pour mon .h :

Code:

1
2
3
4
5
6
7
8
9
10
11
// fonctionsJPEG.h
 
namespace fonctionsJPEG
{
    class mesFonctionsJPEG
    {
    public:
        // fonction qui ajoute 20 à chaque pixel sauf s'il est supérieur a 234
        static __declspec(dllexport) int addVingt(int);
    };
}

et mon .cpp :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
#include "fonctionsJPEG.h"
 
#include <stdexcept>
 
using namespace std;
 
namespace fonctionsJPEG
{
    int mesFonctionsJPEG::addVingt(int a)
    {
		return a+20;
    }
}

Ensuite j'ai fais "générer la solution" et apparemment il m'a bien créé le .dll dans le dossier "debug" de mon projet.

Puis j'ai créé un nouveau projet avec visual basic pour utiliser cette dll :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Class Form1
 
    Public Declare Function addVingt Lib "jpegDLL.dll" (ByVal lala As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim monImage As Bitmap
        Dim monEntier As Integer
        Dim monTableau As ArrayList = New ArrayList
 
        monImage = New Bitmap("C:\Users\Thomas\Downloads\projetCPPVB\projetJPEG\projetJPEG\monJPEG.jpg")
 
        For i = 0 To monImage.Width - 1
            For j = 0 To monImage.Height - 1
                monTableau.Add(monImage.GetPixel(i, j).R)
                monTableau.Add(monImage.GetPixel(i, j).G)
                monTableau.Add(monImage.GetPixel(i, j).B)
            Next
        Next
 
        monEntier = monTableau(0)
        MsgBox(monEntier)
        addVingt(monEntier)
        MsgBox(monEntier)
 
    End Sub
 
End Class

j'ai essayé en copiant le .dll crée précédemment dans mon répertoire du projet vb.

je ne sais trop quoi faire :(

merci d'avance si vous pouvez m'aider et si vous avez besoin de plus de précision je suis tout ouïe :)

24/11/2010, 10h08
Bluedeep

Euh ... A aucun moment, tu n'expliques le problème que tu rencontres.
"j'ai une erreur d'exécution" n'est pas une explication; nature du message d'erreur ?.
24/11/2010, 10h13
paladice

Je pense, si j'ai bien compris, qu'il n'arrive pas a accédé à la DLL.
C'est une dllNotFoundException :

Citation:

Impossible de charger la DLL 'jpegDLL.dll': Le module spécifié est introuvable. (Exception de HRESULT : 0x8007007E)

Mais je ne sais pas d'où viens mon erreur :?
24/11/2010, 10h24
Bluedeep

Citation:

Envoyé par paladice

Je pense, si j'ai bien compris, qu'il n'arrive pas a accédé à la DLL.
C'est une dllNotFoundException :

Impossible de charger la DLL 'jpegDLL.dll': Le module spécifié est introuvable. (Exception de HRESULT : 0x8007007E)

Mais je ne sais pas d'où viens mon erreur :?

Ok. C'est déjà plus clair.

Donc, déjà copie ta DLL dans le répertoire Debug du projet client (du projet VB).Sinon, ton consommateur (ton projet VB) n'a aucun moyen de savoir où se trouve la DLL en question (puisqu'il n'y a pas de notion de référencement d'assembly contrairement à un projet managé).
24/11/2010, 10h32
paladice

Merci :ccool: de ta réponse, je ne savais pas qu'il y a avait un dossier debug dans les dossiers de projet vb :? honte sur moi.

Maintenant ça fais une exception de type "EntrypointNotFoundException" :

Citation:

Impossible de trouver le point d'entrée 'addVingt' dans la DLL 'jpegDLL.dll'.

Ça te dis quelque chose ? :zoubi:
24/11/2010, 10h48
Bluedeep

Oui, la déclaration de la fonction dans le projet C est mauvaise.

Tu ne peux utiliser que des fonctions, pas des méthodes de classes.

Or, là tu déclares :

- une méthode dans une classe.
- et un namespace à l'implémentation.

Vire tout cela, je pense que cela ira mieux.

merci pour ton aide et d'avoir répondu si rapidement :ccool: je vais essayer de modifier tout ça :)

edit : ça marche :mrgreen: pour ceux qui ont également le problème voici mon code :

.cpp :

Code:

1
2
3
4
5
6
7
#include <iostream>
using namespace std;
 
__declspec (dllexport) int __stdcall ajoutVingt( int monVector)
{
	return monVector + 20;
}

.def :

Code:

1
2
3
LIBRARY jpegDLL
EXPORTS
	ajoutVingt @1

je génère le .dll

le .vb :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Class Form1
 
    Public Declare Function ajoutVingt Lib "jpegDLL.dll" Alias "?ajoutVingt@@YGHH@Z" (ByVal lala As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim monImage As Bitmap
        Dim res As Integer
        Dim monTableau As ArrayList = New ArrayList
 
        monImage = New Bitmap("C:\Users\Thomas\Downloads\projetCPPVB\projetJPEG\projetJPEG\monJPEG.jpg")
 
        For i = 0 To monImage.Width - 1
            For j = 0 To monImage.Height - 1
                monTableau.Add(monImage.GetPixel(i, j).R)
                monTableau.Add(monImage.GetPixel(i, j).G)
                monTableau.Add(monImage.GetPixel(i, j).B)
            Next
        Next
 
        MsgBox(monTableau(0))
        res = ajoutVingt(monTableau(0))
        MsgBox(res)
 
    End Sub
 
End Class

25/11/2010, 09h59
Bluedeep

Parfait.

Pense donc à mettre le tag :resolu: à l'aide du bouton ad-hoc.