ラン配列によってリージョンを作成

Namespace: fvalgcli
Assembly: fvalgcli (in fvalgcli.dll) Version: 3.1.0.0 (3.1.0.11)

Syntax

C#
public static FHANDLE fnFIE_create_region_runlength(
	F_RUNLENGTH_PTR pRuns,
	uint uiRunNum
)
Visual Basic
Public Shared Function fnFIE_create_region_runlength ( 
	pRuns As F_RUNLENGTH_PTR,
	uiRunNum As UInteger
) As FHANDLE

Parameters

pRuns
Type: fvalgcli..::..F_RUNLENGTH_PTR
ラン配列のポインタ
uiRunNum
Type: System..::..UInt32
配列中のランの数

Return Value

Type: FHANDLE
正常終了した場合は作成されたリージョンのハンドルを返します。 異常終了した場合は IntPtr.Zero を返します。

Examples

C# Copy imageCopy
//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_create_region_runlength()
        {
            int status = (int)f_err.F_ERR_NONE;
            FHANDLE himg = FHANDLE.Zero;
            FHANDLE hreg = FHANDLE.Zero;
            F_RUNLENGTH_PTR pRuns = IntPtr.Zero;

            try
            {
                // 入力画像の読み込み.
                status = api.fnFIE_load_img_file(TestImageDir + "/TC/SampleCode/blob_BIN.png", ref himg, f_color_img_type.F_COLOR_IMG_TYPE_UC8);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "入力画像読込でエラーが発生しました。({0})", (f_err)status);

                // 書き込み用リージョン作成(runlength)
                uint uiRunNun = 10;
                pRuns = F_RUNLENGTH_PTR.alloc((int)uiRunNun);
                for (int i = 0; i < (int)uiRunNun; i++)
                    pRuns[i] = F_RUNLENGTH.init(10, 50, 80 + i);
                hreg = api.fnFIE_create_region_runlength(pRuns, uiRunNun);
                // 戻り値がNULLだったらエラー.
                Assert.IsTrue(hreg != FHANDLE.Zero, "エラーが発生しました。({0})", hreg);

                // リージョンを画像に描画.
                PNT_T offset = new PNT_T();
                offset.x = 0;
                offset.y = 0;
                double dens = 0.0;
                int status1 = api.fnFIE_region_decode(hreg, himg, offset, dens);
                // 戻り値がNULLだったらエラー.
                Assert.IsTrue(status1 == (int)f_err.F_ERR_NONE, "画像描画でエラーが発生しました。({0})", status1);

                // 画像保存.
                int status_save = api.fnFIE_save_png(ResultDir + "/fnFIE_create_region_runlength.png", himg, -1);
                Assert.IsTrue(status_save == (int)f_err.F_ERR_NONE, "画像保存でエラーが発生しました。({0})", (f_err)status_save);
            }
            finally
            {
                // ハンドルを解放.
                himg.Dispose();
                hreg.Dispose();
                pRuns.Dispose();
            }
        }
    }
}

Visual Basic Copy imageCopy
'    $Revision: 1.1 $

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

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_create_region_runlength()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)
        Dim himg As FHANDLE = FHANDLE.Zero
        Dim hreg As FHANDLE = FHANDLE.Zero
        Dim pRuns As F_RUNLENGTH_PTR = IntPtr.Zero

        Try
            ' 入力画像の読み込み.
            status = api.fnFIE_load_img_file(TestImageDir & "/TC/SampleCode/blob_BIN.png", himg, f_color_img_type.F_COLOR_IMG_TYPE_UC8)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "入力画像読込でエラーが発生しました。({0})", CType(status, f_err))

            ' 書き込み用リージョン作成(runlength)
            Dim uiRunNun As UInteger = 10
            pRuns = F_RUNLENGTH_PTR.alloc(CInt(uiRunNun))
            For i As Integer = 0 To CInt(uiRunNun) - 1
                pRuns(i) = F_RUNLENGTH.init(10, 50, 80 + i)
            Next
            hreg = api.fnFIE_create_region_runlength(pRuns, uiRunNun)
            ' 戻り値がNULLだったらエラー.
            Assert.IsTrue(hreg <> FHANDLE.Zero, "エラーが発生しました。({0})", hreg)

            ' リージョンを画像に描画.
            Dim offset As New PNT_T()
            offset.x = 0
            offset.y = 0
            Dim dens As Double = 0.0
            Dim status1 As Integer = api.fnFIE_region_decode(hreg, himg, offset, dens)
            ' 戻り値がNULLだったらエラー.
            Assert.IsTrue(status1 = CInt(f_err.F_ERR_NONE), "画像描画でエラーが発生しました。({0})", status1)

            ' 画像保存.
            Dim status_save As Integer = api.fnFIE_save_png(ResultDir & "/fnFIE_create_region_runlength.png", himg, -1)
            Assert.IsTrue(status_save = CInt(f_err.F_ERR_NONE), "画像保存でエラーが発生しました。({0})", CType(status_save, f_err))
        Finally
            ' ハンドルを解放.
            himg.Dispose()
            hreg.Dispose()
            pRuns.Dispose()
        End Try
    End Sub
End Class

See Also