デバイスコントローラを使用した例 (その２)

画像処理アプリケーションフレームワークを使用して前述 その１ と同等の処理を記述した例です。
CFviVideoRICE001 の代わりに GrabberThread を使用し、CFviDioFIO01 の代わりに DioThread を使用しています。 前述の その１ との違いは、GUI との連携が容易なこと、機能依存のコードを減らせることです。 それにより、ユーザーアプリケーションの開発コストを低減することができます。

関連:
画像処理アプリケーションフレームワークについては、FVIL リファレンスの以下のネームスペースの説明をご参照ください。

• FVIL.Parser
• FVIL.Imaging
• FVIL.IO
• FVIL.Ports
• FVIL.Net
• FVIL.Log

---

コード例:

Partial Public Class TestClass
   ''' <summary>
   ''' 画像処理アプリケーションフレームワークを使用した例.
   ''' </summary>
   Public Sub Test5()
       Dim grabber As FVIL.Imaging.GrabberThread = Nothing
       Dim dio As FVIL.IO.DioThread = Nothing
       Dim src As FVIL.Data.CFviImage = Nothing

       Try
           '' 準備.
           Dim grabber_info As FVIL.Imaging.GrabberInfo = New FVIL.Imaging.GrabberInfo( _
            "C:\FAST\WIL\3.0.0\CameraFiles\RICE-001\rice_640.ini", _
            2 _
            )
           grabber = FVIL.Imaging.GrabberThread.Create(grabber_info)

           Dim dio_info As FVIL.IO.DioInfo = New FVIL.IO.DioInfo( _
               FVIL.IO.DioKind.FIO01, -1, FVIL.IO.SimulatorOption.Auto)
           dio = FVIL.IO.DioThread.Create(dio_info)
           dio.Start()

           Const DO_SUCCESS As UInt32 = &H1
           Const DO_FAILURE As UInt32 = &H2

           '' 入力.
           src = New FVIL.Data.CFviImage()
           grabber.Validate(src)

           Dim grab_sync As FVIL.Imaging.IGrabImageSync = _
               CType(grabber, FVIL.Imaging.IGrabImageSync)
           grab_sync.Grab(src)

           '' 処理.
           Dim parser = New FVIL.Measure.CFviStatistics(src)
           parser.Execute()

           '' 出力.
           If 32 <= parser.Average AndAlso parser.Average <= 200 Then
               dio.DO = DO_SUCCESS
           Else
               dio.DO = DO_FAILURE
           End If
       Finally
           '' 解放.
           If grabber IsNot Nothing Then grabber.Dispose()
           If dio IsNot Nothing Then dio.Dispose()
           If src IsNot Nothing Then src.Dispose()
       End Try
   End Sub
End Class