Machine Vision Camera SDK (DotNet) Developer Guide
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")
'Open camera
nRet = dev.MV_CC_OpenDevice_NET()
If 0 <> nRet Then
Console.WriteLine("Open device failed!")
End If
Console.WriteLine("Open device succeed!")
Dim stDeviceInfo As MyCamera.MV_CC_DEVICE_INFO = New MyCamera.MV_CC_DEVICE_INFO
nRet = dev.MV_CC_GetDeviceInfo_NET(stDeviceInfo)
If 0 <> nRet Then
Console.WriteLine("Get DeviceInfo failed")
End If
//Other process...
'Close camera
nRet = dev.MV_CC_CloseDevice_NET()
If 0 <> nRet Then
Console.WriteLine("Close device failed!")
End If
Console.WriteLine("Close device succeed!")
'Destroy handle
nRet = dev.MV_CC_DestroyDevice_NET()
If 0 <> nRet Then
Console.WriteLine("Destroy device failed!")
End If
Console.WriteLine("Destroy device succeed!")
End Sub
End Module
44
