vb调用c++dll回调函数问题！！！

[sunghj]

大神们，再帮帮忙

  LONG NET_DVR_StartRemoteConfig(  
  LONG                     lUserID,
  DWORD                    dwCommand,  
  LPVOID                   lpInBuffer,
  DWORD                    dwInBufferLen,
  fRemoteConfigCallback    cbStateCallback,  
  LPVOID                   pUserData
);
 
Callback Function
typedef void(CALLBACK *fRemoteConfigCallback)(
  DWORD    dwType,
  void     *lpBuffer,
  DWORD    dwBufLen,
  void     *pUserData
);

这是vb的定义

Public Declare Function NET_DVR_StartRemoteConfig Lib "HCNETSDK.dll" ( _
                ByVal lUserID As Long, _
                ByVal dwCommand As Long, _
                ByVal lpInBuffer As Long, _
                ByVal dwInBufferLen As Long, _
                ByVal cbStateCallback As Long, _
                ByVal pUserData As Long) As Long
 
回调函数
'下发卡号回调函数
Public Function fSetRemoteConfigCallback(ByVal dwType As Long, ByVal lpBuffer As Long, ByVal dwBufLen As Long, ByVal pUserData As Long)
On Error GoTo ErrFlag
    MsgBox "fSetRemoteConfigCallback"
    List1.AddItem "fSetRemoteConfigCallback(dwType=" & dwType & ")!", 0
    If dwType <> NET_SDK_CALLBACK_TYPE_STATUS Then
        Exit Function
    End If
    Dim dwStatus As Long
    CopyMemory VarPtr(dwStatus), lpBuffer, 4   '复制lpBuffer的内存到dwStatus的指针处
    If dwStatus = NET_SDK_CALLBACK_STATUS_SUCCESS Then
        bSetCardCfgFinish = True
    End If
    List1.AddItem "fSetRemoteConfigCallback(dwStatus=" & dwStatus & ")!", 0
Exit Function
ErrFlag:
    MsgBox "fSetRemoteConfigCallback--" & Err.Description, vbOKOnly + vbExclamation, "提醒"
End Function

函数调用部分代码
    '下发卡号到网络盒子
    Dim NetDvrCfgCond As NET_DVR_CARD_CFG_COND
    NetDvrCfgCond.dwSize = LenB(NetDvrCfgCond)
    NetDvrCfgCond.dwCardNum = 1
    NetDvrCfgCond.byCheckCardNo = 1
    NetDvrCfgCond.byRes1(0) = 0
    NetDvrCfgCond.wLocalControllerID = 0
    NetDvrCfgCond.byRes2(0) = 0
    '锁号
    NetDvrCfgCond.dwLockID = Val(Text6.Text)
    NetDvrCfgCond.byRes3(0) = 0
    Dim pRemoteConfigCallback As Long
    pRemoteConfigCallback = PtrToLong(AddressOf fSetRemoteConfigCallback)
    Dim dwInBufferLen As Long
    dwInBufferLen = LenB(NetDvrCfgCond)
    Dim pUserData As Long
    pUserData = 0
    Dim hStartRemoteConfig As Long
    Dim lpInBuffer As Long
    lpInBuffer = VarPtr(NetDvrCfgCond)
    '启动远程配置。
    hStartRemoteConfig = NET_DVR_StartRemoteConfig(iUserId, NET_DVR_SET_CARD_CFG_V50, lpInBuffer, dwInBufferLen, pRemoteConfigCallback, pUserData)
    If hStartRemoteConfig = -1 Then
        ErrorCode = NET_DVR_GetLastError
        MsgBox "启动远程配置失败(" & ErrorCode & ")--下发到网络盒子!", vbOKOnly + vbExclamation, "提醒"
        Call NET_DVR_Logout(iUserId)
        Call NET_DVR_Cleanup
        Exit Sub
    End If
    

回调函数没有反应，过几秒后程序崩溃

[舉杯邀明月]

我觉得：
1.　你在“回调函数”内使用“On Error语句”，应该是个比较严重的问题……
　　我觉得，这种“身份”的东西，最好别用这个（尽量避免，能不用就别用）；
　　　　对于“异常”，最好是各种“条件校验”，有“问题”就拒绝操作、
　　　　并用“数值代码”反映“遇到什么‘不合要求’的问题”。
　（设法把值回传出去，象那些“指针”应该是可以写输出值的，只是要看“调用协议”咋样）
　　其次的话，在回调函数内也最好不要去操作“控件”（当然多数情况下可能也没问题）。

2.　这个“回调函数”是void的……你在VB中应该是用一个Sub而不是Function。
　　更何况你这个Function还搞成 Variant类型的……　

3.　它的“回调”是StdCall约定的吗？
　　如果是，在VB中的直接实现就没问题；如果不是，可能得用“汇编”包装一下。

[sunghj]

    #define __stdcall 
    #define CALLBACK  

头文件是这样定义的，是不是CALLBACK 就等于__stdcall ?我百度也看到有说CALLBACK 就等于__stdcall . 另外回调函数里可以用msgbox吧，由于条件限制没法跟踪调试，所以msgbox也好list也好都是为跟踪回调函数到底有没有执行，以后肯定会去掉。

[sunghj]

这个是c++头文件的定义

typedef void(CALLBACK *fRemoteConfigCallback)(DWORD dwType, void* lpBuffer, DWORD dwBufLen, void* pUserData);

[舉杯邀明月]

引用 2 楼 sunghj 的回复:

    #define __stdcall 
    #define CALLBACK  

头文件是这样定义的，是不是CALLBACK 就等于__stdcall ?我百度也看到有说CALLBACK 就等于__stdcall .
另外回调函数里可以用msgbox吧，由于条件限制没法跟踪调试，所以msgbox也好list也好都是为跟踪回调函数到底有没有执行，以后肯定会去掉。

我说的回调函数应该是“Sub”，不应该是Function，你就无视了？
我说的“On Error”最好去掉，你也无视了？

函数的调用约定，可能是StdCall的没错。

[sunghj]

引用 4 楼 舉杯邀明月 的回复:

[quote=引用 2 楼 sunghj 的回复:]

    #define __stdcall 
    #define CALLBACK  

头文件是这样定义的，是不是CALLBACK 就等于__stdcall ?我百度也看到有说CALLBACK 就等于__stdcall . 另外回调函数里可以用msgbox吧，由于条件限制没法跟踪调试，所以msgbox也好list也好都是为跟踪回调函数到底有没有执行，以后肯定会去掉。

我说的回调函数应该是“Sub”，不应该是Function，你就无视了？ 我说的“On Error”最好去掉，你也无视了？ 函数的调用约定，可能是StdCall的没错。 [/quote] 我没无视啊，你说的这两个我都懂了，已经按照你说的改了，只是关于StdCall的不确定，所以只回了这个。

[sunghj]

引用 6 楼 milaoshu1020 的回复:

可以用ATL写一个类,编写dll的回调函数并触发ATL类的事件. 然后在VB6中调用ATL写的这个类的对象. 我在编译chm的时候(也是需要写C的回调函数),就是这么做的.

用vb实现有问题吗，如果没有问题，你说的这个方法好像有点麻烦。

[舉杯邀明月]

引用 7 楼 sunghj 的回复:

[quote=引用 6 楼 milaoshu1020 的回复:]
可以用ATL写一个类,编写dll的回调函数并触发ATL类的事件.
然后在VB6中调用ATL写的这个类的对象.
我在编译chm的时候(也是需要写C的回调函数),就是这么做的.

用vb实现有问题吗，如果没有问题，你说的这个方法好像有点麻烦。[/quote]
目前还没有搞定，还是要“崩溃”？

[舉杯邀明月]

你的“回调函数”中的消息框，弹出来了吗？

如果有弹出，把你的那几行消息框、List1.AddItem 都改成Debug.Print 再试试。

[舉杯邀明月]

其实在“回调函数”中要“监视、观察调试状态”的话，
用API：OutputDebugString( )才是正确选择，
　　比你用 MsgBxo、List.AddItem写Log信息等方法靠谱多了……

[milaoshu1020]

可以用ATL写一个类,编写dll的回调函数并触发ATL类的事件.
然后在VB6中调用ATL写的这个类的对象.
我在编译chm的时候(也是需要写C的回调函数),就是这么做的.

[sunghj]

引用 10 楼 舉杯邀明月 的回复:

其实在“回调函数”中要“监视、观察调试状态”的话， 用API：OutputDebugString( )才是正确选择， 　　比你用 MsgBxo、List.AddItem写Log信息等方法靠谱多了……

还没去现场调试，只是自己瞎琢磨，海康没有模拟环境，必须去现场调试，距离还比较远，条件又不允许长时间调试。

[sunghj]

现在在现场调试，程序不在崩溃，但是回调函数没有反应，已经把function改为sub

[舉杯邀明月]

引用 12 楼 sunghj 的回复:

现在在现场调试，程序不在崩溃，但是回调函数没有反应，已经把function改为sub

首先你要确认你的“回调函数”是否被调用了啊！！！！

回调函数中，你不是有“Log信息”吗……
有输出没信息？

[舉杯邀明月]

刚才注意到，你的代码中有这一句：
pRemoteConfigCallback = PtrToLong(AddressOf fSetRemoteConfigCallback)

不知道你的“PtrToLong( )”是如何定义的？　能否正确获取到函数地址……


你在调用 NET_DVR_StartRemoteConfig( )时，
　第5个参数直接写 AddressOf fSetRemoteConfigCallback 不就行了……

[sunghj]

回调函数工作了，正在调试中。。。。

[舉杯邀明月]

引用 15 楼 sunghj 的回复:

回调函数工作了，正在调试中。。。。

呵呵，那剩下的都是你自己的事情了。

反正现在回调函数“已经被回调”了、也不会“程序崩溃”了…………
　这个问题，就算是已经给你解决了。