Kinect v2のIRセンサーから赤外線画像を読み込む

リスト3　ウインドウが読み込まれた際の処理（MainWindow.xaml.vbの一部、リスト2の続き）

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        myKinectSensor = KinectSensor.GetDefault　　　（1）
        myInfraredDescription = myKinectSensor.InfraredFrameSource.FrameDescription　　　（2）

        myInfraredFrameReader = myKinectSensor.InfraredFrameSource.OpenReader　　　（3）
        myInfraredBitmap = New WriteableBitmap(myInfraredDescription.Width, myInfraredDescription.Height, 96.0, 96.0, PixelFormats.Gray16, Nothing)　　　（4）
        AddHandler myInfraredFrameReader.FrameArrived, AddressOf myInfraredFrameReader_FrameArrived　　　（5）
        myKinectSensor.Open()
    End Sub

リスト4　赤外線フレーム到着時の処理（MainWindow.xaml.vbの一部、リスト3の続き）

    Private Sub myInfraredFrameReader_FrameArrived(sender As Object, e As InfraredFrameArrivedEventArgs)
        Using myInfraredFrame As InfraredFrame = e.FrameReference.AcquireFrame　　　（1）
            If myInfraredFrame Is Nothing = True Then
                Return
            End If

            Dim myInfraredBuffer As UShort() = New UShort(myInfraredDescription.Width * myInfraredDescription.Height - 1) {}　　　（2）
            myInfraredFrame.CopyFrameDataToArray(myInfraredBuffer)　　　（3）
            myInfraredBitmap.WritePixels(New Int32Rect(0, 0, myInfraredBitmap.PixelWidth, myInfraredBitmap.PixelHeight), myInfraredBuffer, myInfraredBitmap.PixelWidth * myBytesPerPixel, 0)　　　（4）
            Image1.Source = myInfraredBitmap　　　（5）
        End Using
    End Sub

リスト5　ウインドウを閉じる際の処理（MainWindow.xaml.vbの一部、リスト4の続き）

    Private Sub MainWindow_Closing(sender As Object, e As ComponentModel.CancelEventArgs) Handles Me.Closing
        If myInfraredFrameReader Is Nothing = False Then
            myInfraredFrameReader.Dispose()　　　（1）
            myInfraredFrameReader = Nothing
        End If
        If myKinectSensor Is Nothing = False Then
            myKinectSensor.Close()　　　（2）
            myKinectSensor = Nothing
        End If
    End Sub
End Class