Solved

C++ DLL callback with VB.Net

Posted on 2008-06-25
7
1,328 Views
Last Modified: 2013-11-07
Hi there,
         i have a unmanaged  DLL that I use to control a Biometric reader with my app. I'm coding with VB.net. I used a vb6 example to interface with the DLL. Here is the original code to link with the dll function :

Public Declare Function AET60_SetCallback Lib "Librairie externe\AET60.dll" ( _
    ByVal CallbackFunction As Long) As Long

Here is the new one in vb.net :

<DllImport("Librairie externe\AET60.dll", EntryPoint:="AET60_SetCallback", _
        SetLastError:=True, CallingConvention:=CallingConvention.Cdecl)> _
        Public Shared Function AET60_SetCallback(ByVal CallbackFunction As MyCallBack) As Integer
    End Function

Here is my delegate :

<UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Function MyCallBack(ByRef Param As Integer, _
                                  ByVal GuiState As Integer, _
                                  ByVal Response As Byte, _
                                  ByVal Msg As Integer, _
                                  ByVal Progress As Byte, _
                                  ByRef SampleBuffer As FBITMAP) As Integer

And my callback function :

Private Function CALLBACK_FUNCTION(ByRef Param As Integer, _
                                      ByVal GuiState As Integer, _
                                      ByVal Response As Byte, _
                                      ByVal Msg As Integer, _
                                      ByVal Progress As Byte, _
                                      ByRef SampleBuffer As FBITMAP) As Integer

        Dim StatusMsg As String
        StatusMsg = New String(vbNullChar, 255)

        If (GuiState And AET60_MESSAGE_PROVIDED) <> 0 Then
            Call AET60_GetMessage(Msg, StatusMsg)
        End If
        CALLBACK_FUNCTION = 0

    End Function



The data structure concerned by the declaration :

'======================================================================
    ' data structure definition
    '======================================================================
    Public Structure FDATA
        Dim Length As Integer
        Dim Data() As Byte
    End Structure

    Public Structure FBITMAP
        Dim Width As Integer
        Dim Height As Integer
        Dim Bitmap As FDATA
    End Structure


And the line where I plug everything :

        del = New MyCallBack(AddressOf CALLBACK_FUNCTION)
        retcode = AET60_SetCallback(del)


Everything runs smoothly until I call un dll function that should trigger the callback ... i then receive a "Unhandled exception of type 'System.ArgumentNullException' from a unknown module.

If i skip the callback regiostration, everything runs smoothly but i can't have sny status update on the status of my thuimbprint reader ...

Can anyone give me a hand ?

0
Comment
Question by:David MacDonald
  • 4
  • 3
7 Comments
 
LVL 10

Expert Comment

by:MrClyfar
Comment Utility
Hi Moonover.

This might be a long  shot, but maybe you should try this:

<DllImport("Librairie externe\AET60.dll", EntryPoint:="AET60_SetCallback", _
        SetLastError:=True, CallingConvention:=CallingConvention.Cdecl)> _
        Public Shared Function AET60_SetCallback(ByVal CallbackFunction As System.IntPtr) As Integer
    End Function

Use the IntPtr in the declaration. Then use the function like so:

        del = New MyCallBack(AddressOf CALLBACK_FUNCTION)
        retcode = AET60_SetCallback(del) or         retcode = AET60_SetCallback(AddressOf del)

If this doesn't work, try using ByRef instead of ByVal in the declaration of AET60_SetCallback.

Hope this helps.
Jas.
0
 
LVL 1

Author Comment

by:David MacDonald
Comment Utility
Hi, i just tried it ... it tells me that the type MyCalllBack cannot be converted ton SYstem.InPtr ....

Darn ... and to say i knew nothing of delegates last week :)

With "AddressOf del" as  param, it tells me that AddressOf needs a method name instead .
0
 
LVL 10

Expert Comment

by:MrClyfar
Comment Utility
Hi there.

Nope, I just checked and I was wrong. Change it back to this:

<DllImport("Librairie externe\AET60.dll", EntryPoint:="AET60_SetCallback", _
        SetLastError:=True, CallingConvention:=CallingConvention.Cdecl)> _
        Public Shared Function AET60_SetCallback(ByVal CallbackFunction As MyCallBack) As Integer
    End Function

Try this instead:

retcode = AET60_SetCallback(AddressOf CALLBACK_FUNCTION)

You don't need to do 'del = New....', simply pass the address of the CALLBACK_FUNCTION you already have.

Try that.
Cheers.
Jas.
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 1

Author Comment

by:David MacDonald
Comment Utility
Hi Jas,
         still with the null exception ... just for pointers, i tried changing byval for byref on the MyCallBack param ... i get this error :

An unhandled exception of type 'System.AccessViolationException' occurred in AbonnementBiometrie.exe

So i guess Byval is alright ... But i really don't understand why it's not working ...
0
 
LVL 10

Accepted Solution

by:
MrClyfar earned 125 total points
Comment Utility
Hi there.

Appologies for not being able to help more thoroughly on this, I'm a bit stuck now myself!

Here's a link that might help you:

http://www.experts-exchange.com/Programming/Languages/.NET/Q_23166550.html

Hope you get a result with this!

Cheers.
Jas.



0
 
LVL 1

Author Comment

by:David MacDonald
Comment Utility
Hi there,
      it seems the problem lies in the structure definition used in the callback, the FBITMAP structure uses the FDATA strucuture wich in turn contains a Byte array ... Is it because my byte array is not initialise by default ... it sure seems like it ...  
Public Structure FDATA

        Dim Length As Integer

        Dim Data() As Byte

    End Structure
 

    Public Structure FBITMAP

        Dim Width As Integer

        Dim Height As Integer

        Dim Bitmap As FDATA

    End Structure

Open in new window

0
 
LVL 1

Author Comment

by:David MacDonald
Comment Utility
Solved it !

it was the FDATA Byte array that was not initialized that popped the nullException ... Jas, i'm giving you the points anyway because you gave me hope ;-)
Public Structure FDATA

        Dim Length As Integer

        Shared Data(0 To 256) As Byte

    End Structure

Open in new window

0

Featured Post

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

Suggested Solutions

Recently while returning home from work my wife (another .NET developer) was murmuring something. On further poking she said that she has been assigned a task where she has to serialize and deserialize objects and she is afraid of serialization. Wha…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now