public static int fnFIE_save_core_png_ex(
	string filename,
	FHANDLE hImg,
	int compression_level,
	f_png_strategy compression_strategy,
	f_png_filter filter_type,
	int true_bit_depth,
	F_IMG_CALLBACK handler,
	IntPtr vpData
)

Public Shared Function fnFIE_save_core_png_ex ( 
	filename As String,
	hImg As FHANDLE,
	compression_level As Integer,
	compression_strategy As f_png_strategy,
	filter_type As f_png_filter,
	true_bit_depth As Integer,
	handler As F_IMG_CALLBACK,
	vpData As IntPtr
) As Integer

//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// PNGファイルの保存.
        /// </summary>
        [FvPluginExecute]
        public void fnFIE_save_core_png_ex()
        {
            int status = (int)f_err.F_ERR_NONE;

            FHANDLE himg1 = FHANDLE.Zero;
            FHANDLE himg2 = FHANDLE.Zero;
            int type = (int)f_imgtype.F_IMG_UC8;
            int channels = 3;
            int width = 32;
            int height = 24;
            string filename = ResultDir + "/fnFIE_save_core_png_ex.png";

            try
            {
                // root 画像生成.
                himg1 = api.fnFIE_img_root_alloc(type, channels, width, height);
                Assert.IsTrue(himg1 != FHANDLE.Zero, "fnFIE_img_root_alloc: エラーが発生しました。");

                status = api.fnFIE_img_clear(himg1, 255);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_img_clear: エラーが発生しました。({0})", (f_err)status);

                // PNGファイル保存.
                {
                    int level = -1;
                    f_png_strategy strategy = f_png_strategy.F_PNG_STRATEGY_DEFAULT;
                    f_png_filter filter_type = f_png_filter.F_PNG_FILTER_NONE;
                    int depth = -1;
                    status = api.fnFIE_save_core_png_ex(filename, himg1, level, strategy, filter_type, depth, fnFIE_save_core_png_ex_callback, IntPtr.Zero);
                    Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_save_core_png_ex: エラーが発生しました。({0})", (f_err)status);
                }

                // PNGファイル内容確認.
                F_IMG_INFO img_info = new F_IMG_INFO();
                status = api.fnFIE_check_png_info(filename, f_color_img_type.F_COLOR_IMG_TYPE_UC8, ref img_info);

                // 読み込み用 root 画像生成.
                himg2 = api.fnFIE_img_root_alloc((int)img_info.type, (int)img_info.channel, (int)img_info.width, (int)img_info.height);
                Assert.IsTrue(himg2 != FHANDLE.Zero, "fnFIE_img_root_alloc: エラーが発生しました。");

                status = api.fnFIE_img_clear(himg2, 0);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_img_clear: エラーが発生しました。({0})", (f_err)status);

                // PNGファイル読み込み.
                {
                    int depth = 0;
                    status = api.fnFIE_load_core_png(filename, himg2, ref depth, fnFIE_save_core_png_ex_callback, IntPtr.Zero);
                    Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_load_png: エラーが発生しました。({0})", (f_err)status);
                }

                bool result = false;
                status = api.fnFIE_img_compare(himg1, himg2, ref result);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_img_compare: エラーが発生しました。({0})", (f_err)status);
                if (result == false)
                    Assert.IsTrue(false, "値が一致しません。");
            }
            finally
            {
                // オブジェクトの開放.
                himg1.Dispose();
                himg2.Dispose();
            }
        }

        bool fnFIE_save_core_png_ex_callback(IntPtr vpData, double percentage)
        {
            Console.WriteLine("fnFIE_save_core_png_ex_callback: percentage={0}", percentage);
            return true;
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports fvalgcli

Public Partial Class FIE
    ''' <summary>
    ''' PNGファイルの保存.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_save_core_png_ex()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim himg1 As FHANDLE = FHANDLE.Zero
        Dim himg2 As FHANDLE = FHANDLE.Zero
        Dim type As Integer = CInt(f_imgtype.F_IMG_UC8)
        Dim channels As Integer = 3
        Dim width As Integer = 32
        Dim height As Integer = 24
        Dim filename As String = ResultDir & "/fnFIE_save_core_png_ex.png"

        Try
            ' root 画像生成.
            himg1 = api.fnFIE_img_root_alloc(type, channels, width, height)
            Assert.IsTrue(himg1 <> FHANDLE.Zero, "fnFIE_img_root_alloc: エラーが発生しました。")

            status = api.fnFIE_img_clear(himg1, 255)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_img_clear: エラーが発生しました。({0})", CType(status, f_err))

            ' PNGファイル保存.
            If True Then
                Dim level As Integer = -1
                Dim strategy As f_png_strategy = f_png_strategy.F_PNG_STRATEGY_DEFAULT
                Dim filter_type As f_png_filter = f_png_filter.F_PNG_FILTER_NONE
                Dim depth As Integer = -1
                status = api.fnFIE_save_core_png_ex(filename, himg1, level, strategy, filter_type, depth, _
                    AddressOf fnFIE_save_core_png_ex_callback, IntPtr.Zero)
                Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_save_core_png_ex: エラーが発生しました。({0})", CType(status, f_err))
            End If

            ' PNGファイル内容確認.
            Dim img_info As New F_IMG_INFO()
            status = api.fnFIE_check_png_info(filename, f_color_img_type.F_COLOR_IMG_TYPE_UC8, img_info)

            ' 読み込み用 root 画像生成.
            himg2 = api.fnFIE_img_root_alloc(CInt(img_info.type), CInt(img_info.channel), CInt(img_info.width), CInt(img_info.height))
            Assert.IsTrue(himg2 <> FHANDLE.Zero, "fnFIE_img_root_alloc: エラーが発生しました。")

            status = api.fnFIE_img_clear(himg2, 0)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_img_clear: エラーが発生しました。({0})", CType(status, f_err))

            ' PNGファイル読み込み.
            If True Then
                Dim depth As Integer = 0
                status = api.fnFIE_load_core_png(filename, himg2, depth, AddressOf fnFIE_save_core_png_ex_callback, IntPtr.Zero)
                Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_load_png: エラーが発生しました。({0})", CType(status, f_err))
            End If

            Dim result As Boolean = False
            status = api.fnFIE_img_compare(himg1, himg2, result)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_img_compare: エラーが発生しました。({0})", CType(status, f_err))
            If result = False Then
                Assert.IsTrue(False, "値が一致しません。")
            End If
        Finally
            ' オブジェクトの開放.
            himg1.Dispose()
            himg2.Dispose()
        End Try
    End Sub

    Private Function fnFIE_save_core_png_ex_callback(vpData As IntPtr, percentage As Double) As Boolean
        Console.WriteLine("fnFIE_save_core_png_ex_callback: percentage={0}", percentage)
        Return True
    End Function
End Class