public static int fnFIE_edge_canny(
	FHANDLE hImgSrc,
	FHANDLE hImgOut,
	int iTSwitch,
	double dTHigh,
	double dTLow,
	double dSigma,
	uint uiMinLen
)

Public Shared Function fnFIE_edge_canny ( 
	hImgSrc As FHANDLE,
	hImgOut As FHANDLE,
	iTSwitch As Integer,
	dTHigh As Double,
	dTLow As Double,
	dSigma As Double,
	uiMinLen As UInteger
) As Integer

//    $Revision: 1.1 $

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using fvalgcli;

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_edge_canny()
        {
            string filepath = TestImageDir + "/testdata/image_file_8bpp.bmp";

            int status = (int)f_err.F_ERR_NONE;
            FHANDLE hImageSrc = FHANDLE.Zero;
            FHANDLE hImageDst = FHANDLE.Zero;

            try
            {
                int iTSwitch = 0;
                double dTLow = 0.2;
                double dTHigh = 0.7;
                double dSigma = 0.6;
                uint uiMinLen = 0;

                api.fnFIE_load_bmp(filepath, ref hImageSrc, f_color_img_type.F_COLOR_IMG_TYPE_UC8);
                hImageDst = api.fnFIE_img_root_alloc((int)f_imgtype.F_IMG_UC8, api.fnFIE_img_get_channels(hImageSrc), api.fnFIE_img_get_width(hImageSrc), api.fnFIE_img_get_height(hImageSrc));

                // エッジ検出実行.
                status = api.fnFIE_edge_canny(hImageSrc, hImageDst, iTSwitch, dTHigh, dTLow, dSigma, uiMinLen);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_edge_canny: エラーが発生しました。({0}n vvv )", (f_err)status);
                Console.WriteLine("fnFIE_edge_canny");
            }
            finally
            {
                hImageSrc.Dispose();
                hImageDst.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports fvalgcli

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_edge_canny()
        Dim filepath As String = TestImageDir & "/testdata/image_file_8bpp.bmp"

        Dim status As Integer = CInt(f_err.F_ERR_NONE)
        Dim hImageSrc As FHANDLE = FHANDLE.Zero
        Dim hImageDst As FHANDLE = FHANDLE.Zero

        Try
            Dim iTSwitch As Integer = 0
            Dim dTLow As Double = 0.2
            Dim dTHigh As Double = 0.7
            Dim dSigma As Double = 0.6
            Dim uiMinLen As UInteger = 0

            api.fnFIE_load_bmp(filepath, hImageSrc, f_color_img_type.F_COLOR_IMG_TYPE_UC8)
            hImageDst = api.fnFIE_img_root_alloc(CInt(f_imgtype.F_IMG_UC8), api.fnFIE_img_get_channels(hImageSrc), api.fnFIE_img_get_width(hImageSrc), api.fnFIE_img_get_height(hImageSrc))

            ' エッジ検出実行.
            status = api.fnFIE_edge_canny(hImageSrc, hImageDst, iTSwitch, dTHigh, dTLow, dSigma, _
                uiMinLen)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_edge_canny: エラーが発生しました。({0}n vvv )", CType(status, f_err))
            Console.WriteLine("fnFIE_edge_canny")
        Finally
            hImageSrc.Dispose()
            hImageDst.Dispose()
        End Try
    End Sub
End Class