Machine Vision Camera SDK (DotNet) Developer Guide
Console.WriteLine("Destroy device failed:{0:x8}", nRet);
}
}
}
}
Example
VB
Module Module1
Sub Main()
Dim dev As MyCamera = New MyCamera
Dim Info As String
Dim nRet As Int32 = MyCamera.MV_OK
Dim stDeviceInfoList As MyCamera.MV_CC_DEVICE_INFO_LIST = New MyCamera.MV_CC_DEVICE_INFO_LIST
'Enumerate device
nRet = dev.MV_CC_EnumDevices_NET((MyCamera.MV_GIGE_DEVICE Or MyCamera.MV_USB_DEVICE),
stDeviceInfoList)
If MyCamera.MV_OK <> nRet Then
Console.Writeline（"Enumerating device failed!"+ Convert.ToString(nRet))
Return
End If
If (0 = stDeviceInfoList.nDeviceNum) Then
MsgBox("No Find Gige | Usb Device !")
Return
End If
Dim stdevInfo As MyCamera.MV_CC_DEVICE_INFO
stdevInfo = CType(Marshal.PtrToStructure(stDeviceInfoList.pDeviceInfo(0),
GetType(MyCamera.MV_CC_DEVICE_INFO)), MyCamera.MV_CC_DEVICE_INFO)
'Create handle
nRet = dev.MV_CC_CreateDevice_NET(stdevInfo)
If 0 <> nRet Then
Console.WriteLine("Create device failed!")
End If
Console.WriteLine("Create device succeed")
'Check whether the specified device is accessible
Dim nAccessMode As UInt32 = MyCamera.MV_ACCESS_Exclusive
Dim bRet As Boolean = MyCamera.MV_CC_IsDeviceAccessible_NET(stdevInfo, nAccessMode)
If bRet = True Then
Console.WriteLine("Access!")
Else
Console.WriteLine("Not Access!")
End If
//Other process...
'Stop streaming
nRet = dev.MV_CC_StopGrabbing_NET()
26
