7,763
社区成员
发帖
与我相关
我的任务
分享
'结构声明:
Public Structure CapInfoStruct
Dim Buffer As Integer
Dim Height As Integer
Dim Width As Integer
Dim OffsetX As Integer
Dim OffsetY As Integer
Dim Exposure As Integer
Dim Gain() As Byte
Dim Control As Byte
Dim InternalUse As Byte
Dim ColorOff() As Byte
Dim Reserved() As Byte
End Structure
'函数声明:
Public Declare Function HqDLSetCapInfo Lib "HQDLAPI.dll" (ByRef hCamera As Integer, ByRef pCapInfo As CapInfoStruct) As Integer
Public m_hDevice As Long '这里的long不能改为integer,改之后在启动窗体中调用都会报上面错误
Public m_CapInfo As CapInfoStruct
'调用:
HqDLSetCapInfo(m_hDevice, m_CapInfo)