VB.net / 工业相机SDK / 获取Halcon图像
欧姆龙 MicroScan
相机启动:
Public myFactory As New CFactory, myCamera As CCamera() = New CCamera() {}
Public Function EnableCamera As Boolean
Dim myError = myFactory.Open("") : myFactory.UpdateCameraList(Jai_FactoryDotNET.CFactory.EDriverType.FilterDriver)
ReDim myCamera(0 To myFactory.CameraList.Count - 1)
For i As Integer = 0 To myFactory.CameraList.Count - 1
If myCamera(i) IsNot Nothing Then If myCamera(i).IsOpen Then myCamera(i).Close()
myCamera(i) = Nothing : myCamera(i) = myFactory.CameraList(i) : trvCameraList.Nodes.Add(myCamera(i).InterfaceID) : myCamera(i).Open() : myCamera(i).StartImageAcquisition(0, 1)
Next i
trvCameraList.SelectedNode = Nothing
ReDim tmpImage(0 To<