VB.net / 工业相机SDK / 获取Halcon图像

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<