Discussion :

[douze_12]

Bonjour,

J'ai suivi le tutoriel "Créer des dll en C compatibles avec VB 6" :
http://rp.developpez.com/vb/tutoriels/dll/


(je travaille sous Code::Blocks et Visual Basic 2008 express).
Après avoir créé ma DLL en C, je cherche à l'appeler depuis mon programme en VB mais j'ai un message d'erreurs qui persiste malgré les nombreuses tentatives que j'ai fait depuis quelques jour. Le message d'erreur est le suivant :

Une exception non gérée s'est produite dans votre application [...]
Tentative de lecture ou d'écriture de mémoire protégée. Cela indique souvent qu'une autre mémoire est endommagée.

Je précise que la fonction en C que je veux utiliser n'a pas de paramètres et qu'elle retourne un float (soit single en VB).

Quelqu'un peut m'aider à résoudre ce problème?
Merci d'avance.

[Nathanael Marchand]

VB6 n'est pas du tout la même chose que VB.Net.
Il faut que tu regardes du côté de P/Invoke, ca a été souvent débattu sur ce forum, une recherche devrait t'aider.

[douze_12]

D'accord, grosse confusion de ma part (je débute).
Je trouve sur le net en quoi consiste le P/Invoke, mais je ne trouve pas d'exemple qui correspondrait à mon cas en particulier (à savoir dll en C à utiliser en VB.net)??
Merci

[Nathanael Marchand]

http://morpheus.developpez.com/dlldotnet/

[douze_12]

je vais regarder ça de près. merci

[MABROUKI]

bonjour les douzes qui font 24
Appeler une fonction c qui renvoie un float .
Voici l'appel d'une fonction C :
-qui renvoie un float.
-qui recoit par adresse (byref en vb.net) un float et renvoie un float.
-qui recoit une chaine (byref ) et renvoie une autre chaine...
projet c win32 "ProjetWin32DllVbNet" :

Code :

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

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
28
29
30
 
//fichier :exemple.c
//fichier :exemple.def  vient apres ci-apres pour les symboles exportes(fonctions ou variables visible à l'xterieur de la dll) 
#include <WINDOWS.H>
 
		LPCSTR DisplayStringByVal(LPCSTR pszString)
		{
		  return "Hello Dll C  Anabase Les DixMille ";
		}
 
				void ReturnParamFloat(float* pFloat)
		{
			*pFloat = *pFloat + 5.5;
 
		}
		float fnFloat(void* )
		{
			float unFloat = 12.0;
			unFloat = unFloat + 6.5;
			return unFloat;
 
		}
//simple.def 
 
LIBRARY	"ProjetWin32DllVbNet"
DESCRIPTION 'Sample C DLL for use with .NET'
      EXPORTS
        DisplayStringByVal
        ReturnParamFloat
        fnFloat

code vb.net projet winform:

Code :

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

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
28
29
30
31
 
Imports System.Runtime.InteropServices
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
       ' LA SUB CHAINE
        Dim Message As String = ""
        Message =DisplayStringByVal(Message)
        MessageBox.Show(Message)
 
       'LA SUB FLOAT
        Dim NumSingle1 As single = 3.0
        Call ReturnParamFloat(NumSingle1)
        MessageBox.Show(NumSingle1.toString)
 
        'LA FUNCTION FLOAT
        Dim NumSingle2 As single = 0.0
        NumSingle2= fnFloat()
        MessageBox.Show(NumSingle2.toString)
    End Sub
     <DllImport("ProjetWin32DllVbNet.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Private Shared Function  DisplayStringByVal(ByRef Message As String) As string
    End Function
      <DllImport("ProjetWin32DllVbNet.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Private Shared Sub ReturnParamFloat(ByRef nombreSingle As Single)
    End Sub
    <DllImport("ProjetWin32DllVbNet.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Private Shared Function  fnFloat() As Single
    End Function
   End Class

1/creer le projet Dll Win32 et generer la dll rojetWin32DllVbNet.dll
2/creer le projet vb.net ,generer et envoyer dans deboguer l'exe dans le dossier debug du projet c.
3/tester.
bonne soiree.....................