Utiliser DLL C avec VB

Version imprimable

Bonjour,

Je pense que ce probleme a deja etait aborde plusieurs fois mais apres avoir cherche partout je ne trouve toujours pas la reponse a mon probleme. Je souhaite utiliser un dll detaillant une methode de calcul pour l implementer dans un programme en VB. Je cherche donc a utiliser les fonctions qui se trouvent dans le dll. Le probleme est la correspondance des types.
Je souhaite pour l instant simplement adapter un simple exemple d utilisation du dll en C dans un environnement VB.
L exemple est tres simple en C :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void* p2p ;
double att[27] ;
// initialize the PointToPoint module
p2p = P2P_Create() ;
if (p2p == NULL)
{
... // error handling : could not create a P2P structure
}
// setup the cross-section
// remember : the origin = point on the road surface below the source
P2P_Clear(p2p) ; // source foot point (0,0)
P2P_AddSegment (p2p, 10.0, 0.0, 7) ; // top of embankment
P2P_AddSegment (p2p, 14.0, -3.0, 5) ; // bottom of embankment
P2P_AddSegment (p2p, 50.0, -3.0, 4) ; // receiver foot point
// set the source and receiver heights relative to the local terrain
// heights at the first and last points of the cross-section
P2P_SetSourceHeight (p2p, 0.3, 0.0) ;
P2P_SetReceiverHeight (p2p, 5.0, 0.0) ;
// calculate the excess attenuation and return the result in “att”
P2P_GetResult (p2p, att) ;
// do something with the excess attenuation values...

Mon code VB est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Declare Function Create Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_Create" () As Integer
    Private Declare Function Clear Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_Clear" (ByRef p2p_struct As Integer) As Integer
    Private Declare Function AddSegment Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_AddSegment" (ByRef p2p_struct As Integer, ByVal D As Double, ByVal Z As Double, ByVal impedanceModel As Integer) As Integer
    Private Declare Function SetSourceHeight Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_SetSourceHeight" (ByRef p2p_struct As Integer, ByVal hSource As Double, ByVal delta_hs As Double) As Integer
    Private Declare Function SetReceiverHeight Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_SetReceiverHeight" (ByRef p2p_struct As Integer, ByVal hRec As Double, ByVal delta_hRec As Double) As Integer
    Private Declare Function GetResults Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_GetResults" (ByRef p2p_struct As Integer, ByRef att_dB As Double) As Integer
    Private Declare Function Delete Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_Delete" (ByRef p2p_struct As Integer)
 
    Sub Main()
        Dim p2p As Integer
        p2p = Create()
        Clear(p2p)
        AddSegment(p2p, 10.0, 10.0, 1)
        'AddSegment(p2p, 14.0, -3.0, 5)
        'AddSegment(p2p, 50.0, -3.0, 4)
        'SetSourceHeight(p2p, 0.3, 0.0)
        'SetReceiverHeight(p2p, 5.0, 0.0)
 
        ' Dim att(0 To 27) As Double
 
        'GetResults(p2p, att(0))
 
    End Sub

J obtiens un message d erreur du type :

Citation:

The runtime has encountered a fatal error. The address of the error was at 0x79e784b6, on thread 0xc78. The error code is 0xc0000005. This error may be a bug in the CLR or in the unsafe or non-verifiable portions of user code. Common sources of this bug include user marshaling errors for COM-interop or PInvoke, which may corrupt the stack.

La fonction AddSegment fait planter le tout. Je pense que cela provient du fait que toutes les fonctions attendent un void* et que moi je passe un Integer Byref. Je ne sais pas quoi faire. Si quelqu un peut m aider

Please....

21/11/2007, 17h16
Médinoc

Pour commencer, les fonctions doivent avoir la convention d'appel __stdcall (alors que par défaut, c'est __cdecl).

Ensuite, je pense que tes pointeurs sous forme d'"Integer" doivent être passés par valeur comme le reste...
21/11/2007, 17h18
ncyshaolin

Je ne comprends pas vraiment ta reponse
21/11/2007, 17h21
Médinoc
1. Montre la déclaration de tes fonctions C
2. En VB: ByRef p2p_struct As Integer --> Remplace ByRef par ByVal

Je n ai pas fais le dll mais je possede le source. Je pense qu il n y a pas de probleme de ce cote. En revanche, j ai un peu changer mon code VB et cela semble marcher sauf la fonction principale.
Mon nouveau code est:

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
28
29
30
31
32
Imports System.Runtime.InteropServices
Module Module1
    Private Declare Function Create Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_Create" () As Integer
    Private Declare Function Clear Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_Clear" (<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal p2p_struct As Object) As Integer
    Private Declare Function AddSegment Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_AddSegment" (<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal p2p_struct As Object, ByVal D As Double, ByVal Z As Double, ByVal impedanceModel As Integer) As Integer
    Private Declare Function SetSourceHeight Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_SetSourceHeight" (<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal p2p_struct As Object, ByVal hSource As Double, ByVal delta_hs As Double) As Integer
    Private Declare Function SetReceiverHeight Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_SetReceiverHeight" (<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal p2p_struct As Object, ByVal hRec As Double, ByVal delta_hRec As Double) As Integer
    Private Declare Function GetResults Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_GetResults" (<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal p2p_struct As Object, ByVal att_dB As Double) As Integer
    Private Declare Function Delete Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_Delete" (<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal p2p_struct As Object) As Integer
 
    Sub Main()
        Dim p2p As Integer
        Dim att(0 To 27) As Double
 
        p2p = Create()
        Clear(p2p)
        AddSegment(p2p, 10.0, 10.0, 1)
        AddSegment(p2p, 14.0, -3.0, 5)
        AddSegment(p2p, 50.0, -3.0, 4)
        SetSourceHeight(p2p, 0.3, 0.0)
        SetReceiverHeight(p2p, 5.0, 0.0)
        'GetResults(p2p, att(0))
        Delete(p2p)
 
        Dim i As Integer
        For i = 0 To att.GetUpperBound(0)
            Console.WriteLine("att(" & i & ") = " & att(i))
        Next i
        Dim ligne As String = Console.In.ReadLine()
    End Sub
 
End Module

Si je teste les fonctions addsegment par exemple, elle me retourne bien 1 donc cela semble fonctionner. En revanche la fonction GetResults qui fait tout le calcul me renvoit une erreur:

Citation:

Attempted to read or write protected memory. This is often an indication that other memory is corrupt.

Merci

21/11/2007, 17h41
Médinoc

Impossible de savoir si la DLL est utilisable en VB si tu ne me montres pas le fichier d'en-tête avec la déclaration des fonctions (de plus, tu sembles être en VB.Net, pas VB tout court).
Si les fonctions n'ont pas la bonne convention d'appel, en VB c'est mort. En VB.Net, il doit y avoir des arguments à rajouter.
Bon, ce qui précède n'est plus d'actualité, puisque les autres fonctions marchent.
Peut-on voir le prototype de GetResults() ?
21/11/2007, 17h49
ncyshaolin
Pour repondre a la convention d appel, le fichier source ressemble a ca :
Code:

1 2 #define __CALLTYPE __stdcall #define __EXPORTTYPE extern "C" __declspec(dllexport)
Sinon pour le prototype de GetResults:
Code:

1 2 int P2P_GetResults (void* p2p_struct, double *att)
21/11/2007, 22h41
Médinoc

Donc, la fonction demande un pointeur sur double et non un double, il faut donc le passer ByRef.
J'espère qu'il retourne bien UN SEUL double et non un tableau, car je ne suis pas sûr qu'on puisse passer un tableau en VB sans utiliser un SAFEARRAY...
22/11/2007, 10h41
ncyshaolin

J ai deja essaye par ref et ca ne marche pas vu qu il attend un tableau. J ai regarde le tutoriel suivant qui explique comment passer un tableau :
http://rp.developpez.com/vb/tutoriels/dll/#L10

Je ne sais pas si ca marche. Si tu as une idee..
22/11/2007, 12h36
Médinoc

Pour ça, il faut modifier la DLL et utiliser un SAFEARRAY.

Tu peux aussi te faire une DLL qui wrappe l'autre, si tu ne veux/peux pas modifier la DLL originale...
22/11/2007, 13h29
ncyshaolin

Je n ai pas envie de faire toucher a la dll. Peux tu m expliquer comment wrapper. Est ce qu il est possible de faire ca avec Visual C++ express ?
Merci
22/11/2007, 14h31
Médinoc

Oui, si tu as aussi téléchargé le Platform SDK (disponible gratos séparément).

En fait, il suffit de faire une DLL (qu'on va appeler DLL2) qui va appeler les fonctions de PointToPoint.dll, et dont la fonction prendra en paramètre un pointeur de SAFEARRAY comme expliqué dans le tutoriel...

Edit: En fait, si j'en crois le tutoriel, section 10, ce n'est même pas la peine. Tu gardes la DLL existante, et tu lui passes par référence le premier double d'un tableau VB...
22/11/2007, 15h28
ncyshaolin

J ai deja fait ca et ca ne marche pas (dans le tuto ils font passer par valeur et pas pas par adresse, j ai essaye les deux et ca ne marche pas). Si tu as une autre idee..
22/11/2007, 17h17
Médinoc

Si si, ils font passer par référence: Sous VB6, le passage est ByRef par défaut...

Peux-tu poster ton code pour l'appel ?

Mon code est:
Code:

1 2 3 4 5 6 7 8 9 10 11 (...) Private Declare Function GetResults Lib "C:\Documents and Settings\guerini-grossc\My Documents\PointToPoint.dll" Alias "P2P_GetResults" (<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal p2p_struct As Object, ByRef att_dB As Double) As Integer Dim p2p As Integer Dim att(0 To 27) As Double p2p = Create() (...) GetResults(p2p, att(0)) (...)
J ai toujours le meme message :

Citation:

Attempted to read or write protected memory. This is often an indication that other memory is corrupt.

Merci de ton aide..

23/11/2007, 10h49
Médinoc

Dans ce cas, je ne peux pas vraiment t'aider.
Le tuto est pour VB, et toi tu es en VB.Net...

Vérifie que tu ne dois pas allouer le tableau en premier, ou un truc du genre.
Pour tester, essaie de lire ou écrire dans le tableau AVANT d'appeler la fonction...