易语言调用海康工业相机SDK

szxiao

最近想用易语言调用海康工业相机。cha询设备正常，打开相机返回0正常，打开相机后程序不是无响应，就是自动退出。
原VB代码用到的MV_CC_DEVICE_INFO、MV_CC_DEVICE_INFO_LIST结构体：

Public Type MV_CC_DEVICE_INFO              '设备信息结构体
    nMajorVer As Integer                   '主要版本
    nMinorVer As Integer                   '次要版本
    nMacAddrHigh(3) As Byte                '高MAC地址
    nMacAddrLow(3) As Byte                 '低MAC地址
    nTLayerType As Long                    '设备传输层协yi类型
    nReserved(3) As Long                   '预留
    SpecialInfo(539) As Byte               '所有设备信息联合体
End Type

Public Type MV_CC_DEVICE_INFO_LIST         '设备信息结构体
    nDeviceNum As Long                     '设备数量
    pDeviceInfo(255) As Long               '设备信息

End Type

打开相机原VB代码如下：    Dim stDeviceInfo As MV_CC_DEVICE_INFO    Dim pStDeviceInfo As Long
    Dim nRet As Long
    Dim m_pHandle As Long
    Dim m-handle As long
    Dim m_stDevList As MV_CC_DEVICE_INFO_LIST

    pStDeviceInfo = VarPtr(stDeviceInfo)
    CopyMemory ByVal pStDeviceInfo, ByVal m_stDevList.pDeviceInfo(DEVICE_COMBO.ListIndex), LenB(stDeviceInfo)

    m_pHandle = VarPtr(m_handle)
    nRet = MV_CC_CreateHandle(m_pHandle, pStDeviceInfo)
    If nRet <> 0 Then
        MsgBox ("MV_CC_CreateHandle error")
        Exit Sub
    End If
    nRet = MV_CC_OpenDevice(m_pHandle, 1, 0)   

翻译到易语言的部分代码：
.版本 2

.数据类型 MV_CC_DEVICE_INFO
    .成员 nMajorVer, 整数型
    .成员 nMinorVer, 整数型
    .成员 nMacAddrHigh, 字节型, , "4"
    .成员 nMacAddrLow, 字节型, , "4"
    .成员 nTLayerType, 整数型
    .成员 nReserved, 整数型, , "4"
    .成员 SpecialInfo, 字节型, , "540"

.数据类型 MV_CC_DEVICE_INFO_LIST
    .成员 nDeviceNum, 整数型
    .成员 pDeviceInfo, 整数型, , "256"



.版本 2
.支持库 spec

.局部变量 mphandle, 整数型
.局部变量 stdevicelist, MV_CC_DEVICE_INFO_LIST
.局部变量 stDeviceInfo, MV_CC_DEVICE_INFO
.局部变量 pStDeviceInfo, 整数型
.局部变量 error, 整数型
.局部变量 mhandle, 整数型

pStDeviceInfo ＝ 取变量地址 (stDeviceInfo)
内存_写到内存 (pStDeviceInfo, stdevicelist.pDeviceInfo [1], 576)‘之前其它代码取过stdevicelist
mphandle ＝ 取变量地址 (mhandle)
Error ＝ MV_CC_CreateHandle (mphandle, pStDeviceInfo)' 这一步返回0正常。
Error ＝ MV_CC_OpenDevice (mphandle, 1, 0)  ' 这一步返回0正常。但之后程序无响应，或自动退出。
调试输出 (error)


哪位大佬成功用易语言调用过海康工业相机吗？请指教一下。

josn

直接问厂商不就好了