// $Revision: 1.3 $

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Drawing;
using System.Reflection;

namespace SampleCode.Ipl
{
    partial class Converter
    {
        public static void CopyFrom1()
        {
            Console.WriteLine(MethodBase.GetCurrentMethod().Name);

            // 1) 画像準備.
            FVIL.Data.CFviImage src = new FVIL.Data.CFviImage("floppy_RGB.jpg");

            // 2) IplImage のサイズ情報の取得.
            FVIL.Ipl.IplImageSize size = FVIL.Ipl.IplImageConverter.ToIplImageSize(src);

            // 3) 確保.(取得したサイズ情報に従って確保する)
            IntPtr dst = cvCreateImage(cvSize(size.width, size.height), size.depth, size.channels);
            if (dst == IntPtr.Zero)
                throw new FVIL.CFviException(FVIL.ErrorCode.FAILED_TO_ALLOCATE, "cvCreateImage");

            // 4) IplImage 構造体へのポインタを IplImageConverter に設定する.
            FVIL.Ipl.IplImageConverter converter = new FVIL.Ipl.IplImageConverter(dst);

            // 5) 複製.(CFviImage から画像データを複製する)
            converter.CopyFrom( src );

            // -) 確認.(任意)
            int[] save_param =
            {
                (int)CV_IMWRITE.CV_IMWRITE_PNG_COMPRESSION,
                3
            };
            cvSaveImage("IplImageConverter_CopyFrom1.png", dst, save_param);

            // 6) 解放.(IplImage を 解放する)
            cvReleaseImage( ref dst );
        }
    }
}

// $Revision: 1.3 $

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Drawing;
using System.Reflection;

namespace SampleCode.Ipl
{
    partial class Converter
    {
        public static void CopyFrom2()
        {
            Console.WriteLine(MethodBase.GetCurrentMethod().Name);

            // 1) 画像準備.
            FVIL.GDI.CFviGdiImage src = new FVIL.GDI.CFviGdiImage("floppy_RGB.jpg");

            // 2) IplImage のサイズ情報の取得.
            FVIL.Ipl.IplImageSize size = FVIL.Ipl.IplImageConverter.ToIplImageSize(src);

            // 3) 確保.(取得したサイズ情報に従って確保する)
            IntPtr dst = cvCreateImage(cvSize(size.width, size.height), size.depth, size.channels);
            if (dst == IntPtr.Zero)
                throw new FVIL.CFviException(FVIL.ErrorCode.FAILED_TO_ALLOCATE, "cvCreateImage");

            // 4) IplImage 構造体へのポインタを IplImageConverter に設定する.
            FVIL.Ipl.IplImageConverter converter = new FVIL.Ipl.IplImageConverter(dst);

            // 5) 複製.(CFviGdiImage から画像データを複製する)
            converter.CopyFrom( src );

            // -) 確認.(任意)
            int[] save_param =
            {
                (int)CV_IMWRITE.CV_IMWRITE_PNG_COMPRESSION,
                3
            };
            cvSaveImage("IplImageConverter_CopyFrom2.png", dst, save_param);

            // 6) 解放.(IplImage を 解放する)
            cvReleaseImage( ref dst );
        }
    }
}

// $Revision: 1.3 $

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

namespace SampleCode.Ipl
{
    partial class Converter
    {
        public static void CopyFrom3()
        {
            Console.WriteLine(MethodBase.GetCurrentMethod().Name);

            FHANDLE hsrc = IntPtr.Zero;
            IntPtr dst = IntPtr.Zero;

            try
            {
                // 1) 画像準備.
                api.fnFIE_load_img_file("floppy_RGB.jpg", ref hsrc, f_color_img_type.F_COLOR_IMG_TYPE_RGBQ);
                if (hsrc == IntPtr.Zero)
                    throw new FVIL.CFviException(FVIL.ErrorCode.FAILED_TO_ALLOCATE, "fnFIE_load_img_file");

                // 2) IplImage のサイズ情報の取得.
                FVIL.Ipl.IplImageSize size = FVIL.Ipl.IplImageConverter.ToIplImageSize(hsrc);

                // 3) 確保.(取得したサイズ情報に従って確保する)
                dst = cvCreateImage(cvSize(size.width, size.height), size.depth, size.channels);
                if (dst == IntPtr.Zero)
                    throw new FVIL.CFviException(FVIL.ErrorCode.FAILED_TO_ALLOCATE, "cvCreateImage");

                // 4) IplImage 構造体へのポインタを IplImageConverter に設定する.
                FVIL.Ipl.IplImageConverter converter = new FVIL.Ipl.IplImageConverter(dst);

                // 5) 複製.(FIE 画像オブジェクトから画像データを複製する)
                converter.CopyFrom( hsrc );

                // -) 確認.(任意)
                int[] save_param =
                {
                    (int)CV_IMWRITE.CV_IMWRITE_PNG_COMPRESSION,
                    3
                };
                cvSaveImage("IplImageConverter_CopyFrom3.png", dst, save_param);
            }
            finally
            {
                // 6) 解放.
                cvReleaseImage( ref dst );
                api.fnFIE_free_object(hsrc);
            }
        }
    }
}

' $Revision: 1.2 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Reflection

Namespace Ipl
    Partial Class Converter
        Public Shared Sub CopyFrom1()
            Console.WriteLine(MethodBase.GetCurrentMethod().Name)

            ' 1) 画像準備.
            Dim src As New FVIL.Data.CFviImage("floppy_RGB.jpg")

            ' 2) IplImage のサイズ情報の取得.
            Dim size As FVIL.Ipl.IplImageSize = FVIL.Ipl.IplImageConverter.ToIplImageSize(src)

            ' 3) 確保.(取得したサイズ情報に従って確保する)
            Dim dst As IntPtr = cvCreateImage(cvSize(size.width, size.height), size.depth, size.channels)
            If dst = IntPtr.Zero Then
                Throw New FVIL.CFviException(FVIL.ErrorCode.FAILED_TO_ALLOCATE, "cvCreateImage")
            End If

            ' 4) IplImage 構造体へのポインタを IplImageConverter に設定する.
            Dim converter As New FVIL.Ipl.IplImageConverter(dst)

            ' 5) 複製.(CFviImage から画像データを複製する)
            converter.CopyFrom(src)

            ' -) 確認.(任意)
            Dim save_param As Integer() = {CInt(CV_IMWRITE.CV_IMWRITE_PNG_COMPRESSION), 3}
            cvSaveImage("IplImageConverter_CopyFrom1.png", dst, save_param)

            ' 6) 解放.(IplImage を 解放する)
            cvReleaseImage(dst)
        End Sub
    End Class
End Namespace

' $Revision: 1.2 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Reflection

Namespace Ipl
    Partial Class Converter
        Public Shared Sub CopyFrom2()
            Console.WriteLine(MethodBase.GetCurrentMethod().Name)

            ' 1) 画像準備.
            Dim src As New FVIL.GDI.CFviGdiImage("floppy_RGB.jpg")

            ' 2) IplImage のサイズ情報の取得.
            Dim size As FVIL.Ipl.IplImageSize = FVIL.Ipl.IplImageConverter.ToIplImageSize(src)

            ' 3) 確保.(取得したサイズ情報に従って確保する)
            Dim dst As IntPtr = cvCreateImage(cvSize(size.width, size.height), size.depth, size.channels)
            If dst = IntPtr.Zero Then
                Throw New FVIL.CFviException(FVIL.ErrorCode.FAILED_TO_ALLOCATE, "cvCreateImage")
            End If

            ' 4) IplImage 構造体へのポインタを IplImageConverter に設定する.
            Dim converter As New FVIL.Ipl.IplImageConverter(dst)

            ' 5) 複製.(CFviGdiImage から画像データを複製する)
            converter.CopyFrom(src)

            ' -) 確認.(任意)
            Dim save_param As Integer() = {CInt(CV_IMWRITE.CV_IMWRITE_PNG_COMPRESSION), 3}
            cvSaveImage("IplImageConverter_CopyFrom2.png", dst, save_param)

            ' 6) 解放.(IplImage を 解放する)
            cvReleaseImage(dst)
        End Sub
    End Class
End Namespace

' $Revision: 1.2 $

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

Namespace Ipl
    Partial Class Converter
        Public Shared Sub CopyFrom3()
            Console.WriteLine(MethodBase.GetCurrentMethod().Name)

            Dim hsrc As FHANDLE = IntPtr.Zero
            Dim dst As IntPtr = IntPtr.Zero

            Try
                ' 1) 画像準備.
                api.fnFIE_load_img_file("floppy_RGB.jpg", hsrc, f_color_img_type.F_COLOR_IMG_TYPE_RGBQ)
                If hsrc = IntPtr.Zero Then
                    Throw New FVIL.CFviException(FVIL.ErrorCode.FAILED_TO_ALLOCATE, "fnFIE_load_img_file")
                End If

                ' 2) IplImage のサイズ情報の取得.
                Dim size As FVIL.Ipl.IplImageSize = FVIL.Ipl.IplImageConverter.ToIplImageSize(hsrc)

                ' 3) 確保.(取得したサイズ情報に従って確保する)
                dst = cvCreateImage(cvSize(size.width, size.height), size.depth, size.channels)
                If dst = IntPtr.Zero Then
                    Throw New FVIL.CFviException(FVIL.ErrorCode.FAILED_TO_ALLOCATE, "cvCreateImage")
                End If

                ' 4) IplImage 構造体へのポインタを IplImageConverter に設定する.
                Dim converter As New FVIL.Ipl.IplImageConverter(dst)

                ' 5) 複製.(FIE 画像オブジェクトから画像データを複製する)
                converter.CopyFrom(hsrc)

                ' -) 確認.(任意)
                Dim save_param As Integer() = {CInt(CV_IMWRITE.CV_IMWRITE_PNG_COMPRESSION), 3}
                cvSaveImage("IplImageConverter_CopyFrom3.png", dst, save_param)
            Finally
                ' 6) 解放.
                cvReleaseImage(dst)
                api.fnFIE_free_object(hsrc)
            End Try
        End Sub
    End Class
End Namespace