ファイル入出力を使用した例

この例では、画像ファイルを読み込み、ソーベルフィルタを実行し、結果をファイルに保存しています。

コード例:

Partial Public Class TestClass
   ''' <summary>
   ''' ファイル入出力を使用した例.
   ''' </summary>
   Public Sub Test1()
       '' 入力.
       Dim src As FVIL.Data.CFviImage = Nothing
       Dim dst As FVIL.Data.CFviImage = Nothing

       Try
           '' 入力.
           src = New FVIL.Data.CFviImage("Data/floppy_RGB.jpg")
           dst = New FVIL.Data.CFviImage(src.ImageSize)

           '' 処理.
           Dim parser = New FVIL.Filter.CFviSobelFilter(src, dst)
           parser.CalcMode = FVIL.Filter.SobelCalcMode.XYMode
           parser.Execute()

           '' 出力.
           dst.Save("Result/Result1.png")
       Finally
           '' 解放.
           If src IsNot Nothing Then src.Dispose()
           If dst IsNot Nothing Then dst.Dispose()
       End Try
   End Sub
End Class