FileMgr

✏️ /opt/alt/libharu/usr/share/libharu/bindings/vb.net/hpdfvb.vb

✕ Tutup

'
' << Haru Free PDF Library >> -- hpdfvb.vb
'
' VB.Net wrapper for libhpdf.dll
'
' Copyright (c) 2008 Matthew Underwood <matt@bargolf.net>
'
' Permission to use, copy, modify, distribute and sell this software
' and its documentation for any purpose is hereby granted without fee,
' provided that the above copyright notice appear in all copies and
' that both that copyright notice and this permission notice appear
' in supporting documentation.
' It is provided "as is" without express or implied warranty.
'
'

Imports System
Imports System.Runtime.InteropServices

Namespace HPdf

Public Enum HPdfPageLayout As Integer
        HPDF_PAGE_LAYOUT_SINGLE = 0
        HPDF_PAGE_LAYOUT_ONE_COLUMN
        HPDF_PAGE_LAYOUT_TWO_CLUMN_LEFT
        HPDF_PAGE_LAYOUT_TWO_CLUMN_RIGHT
        HPDF_PAGE_LAYOUT_EOF
    End Enum
    Public Enum HPdfPageMode As Integer
        HPDF_PAGE_MODE_USE_NONE = 0
        HPDF_PAGE_MODE_USE_OUTLINE
        HPDF_PAGE_MODE_USE_THUMBS
        HPDF_PAGE_MODE_FULL_SCREEN
        HPDF_PAGE_MODE_EOF
    End Enum
    Public Enum HPdfPageSizes As Integer
        HPDF_PAGE_SIZE_LETTER = 0
        HPDF_PAGE_SIZE_LEGAL
        HPDF_PAGE_SIZE_A3
        HPDF_PAGE_SIZE_A4
        HPDF_PAGE_SIZE_A5
        HPDF_PAGE_SIZE_B4
        HPDF_PAGE_SIZE_B5
        HPDF_PAGE_SIZE_EXECUTIVE
        HPDF_PAGE_SIZE_US4x6
        HPDF_PAGE_SIZE_US4x8
        HPDF_PAGE_SIZE_US5x7
        HPDF_PAGE_SIZE_COMM10
        HPDF_PAGE_SIZE_EOF
    End Enum
    Public Enum HPdfPageDirection As Integer
        HPDF_PAGE_PORTRAIT = 0
        HPDF_PAGE_LANDSCAPE
    End Enum
    Public Enum HPdfPageNumStyle As UInt32
        HPDF_PAGE_NUM_STYLE_DECIMAL = 0
        HPDF_PAGE_NUM_STYLE_UPPER_ROMAN
        HPDF_PAGE_NUM_STYLE_LOWER_ROMAN
        HPDF_PAGE_NUM_STYLE_UPPER_LETTERS
        HPDF_PAGE_NUM_STYLE_LOWER_LETTERS
        HPDF_PAGE_NUM_STYLE_EOF
    End Enum
    Public Enum HPdfWritingMode As UInt32
        HPDF_WMODE_HORIZONTAL = 0
        HPDF_WMODE_VERTICAL
        HPDF_WMODE_EOF
    End Enum
    Public Enum HPdfEncoderType As UInt32
        HPDF_ENCODER_TYPE_SINGLE_BYTE = 0
        HPDF_ENCODER_TYPE_DOUBLE_BYTE
        HPDF_ENCODER_TYPE_UNINITIALIZED
        HPDF_ENCODER_UNKNOWN
    End Enum
    Public Enum HPdfByteType As UInt32
        HPDF_BYTE_TYPE_SINGLE = 0
        HPDF_BYTE_TYPE_LEAD
        HPDF_BYTE_TYPE_TRAIL
        HPDF_BYTE_TYPE_UNKNOWN
    End Enum
    Public Enum HPdfAnnotHighlightMode As UInt32
        HPDF_ANNOT_NO_HIGHTLIGHT = 0
        HPDF_ANNOT_INVERT_BOX
        HPDF_ANNOT_INVERT_BORDER
        HPDF_ANNOT_DOWN_APPEARANCE
        HPDF_ANNOT_HIGHTLIGHT_MODE_EOF
    End Enum
    Public Enum HPdfAnnotIcon As UInt32
        HPDF_ANNOT_ICON_COMMENT = 0
        HPDF_ANNOT_ICON_KEY
        HPDF_ANNOT_ICON_NOTE
        HPDF_ANNOT_ICON_HELP
        HPDF_ANNOT_ICON_NEW_PARAGRAPH
        HPDF_ANNOT_ICON_PARAGRAPH
        HPDF_ANNOT_ICON_INSERT
        HPDF_ANNOT_ICON_EOF
    End Enum
    Public Enum HPdfColorSpace As UInt32
        HPDF_CS_DEVICE_GRAY = 0
        HPDF_CS_DEVICE_RGB
        HPDF_CS_DEVICE_CMYK
        HPDF_CS_CAL_GRAY
        HPDF_CS_CAL_RGB
        HPDF_CS_LAB
        HPDF_CS_ICC_BASED
        HPDF_CS_SEPARATION
        HPDF_CS_DEVICE_N
        HPDF_CS_INDEXED
        HPDF_CS_PATTERN
        HPDF_CS_EOF
    End Enum
    Public Enum HPdfInfoType As UInt32
        ' date-time type parameters
        HPDF_INFO_CREATION_DATE = 0
        HPDF_INFO_MOD_DATE = 1

' string type parameters
        HPDF_INFO_AUTHOR = 2
        HPDF_INFO_CREATOR = 3
        HPDF_INFO_PRODUCER = 4
        HPDF_INFO_TITLE = 5
        HPDF_INFO_SUBJECT = 6
        HPDF_INFO_KEYWORDS = 7
        HPDF_INFO_EOF = 8
    End Enum
    Public Enum HPdfEncryptMode As UInt32
        HPDF_ENCRYPT_R2 = 2
        HPDF_ENCRYPT_R3 = 3
    End Enum
    Public Enum HPdfTextRenderingMode As UInt32
        HPDF_FILL = 0
        HPDF_STROKE = 1
        HPDF_FILL_THEN_STROKE = 2
        HPDF_INVISIBLE = 3
        HPDF_FILL_CLIPPING = 4
        HPDF_STROKE_CLIPPING = 5
        HPDF_FILL_STROKE_CLIPPING = 6
        HPDF_CLIPPING = 7
        HPDF_RENDERING_MODE_EOF = 8
    End Enum
    Public Enum HPdfLineCap As Integer
        HPDF_BUTT_END = 0
        HPDF_ROUND_END = 1
        HPDF_PROJECTING_SQUARE_END = 2
        HPDF_LINECAP_EOF = 3
    End Enum
    Public Enum HPdfLineJoin As Integer
        HPDF_MITER_JOIN = 0
        HPDF_ROUND_JOIN = 1
        HPDF_BEVEL_JOIN = 2
        HPDF_LINEJOIN_EOF = 3
    End Enum
    Public Enum HPdfTextAlignment As Integer
        HPDF_TALIGN_LEFT = 0
        HPDF_TALIGN_RIGHT = 1
        HPDF_TALIGN_CENTER = 2
        HPDF_TALIGN_JUSTIFY = 3
    End Enum
    Public Enum HPdfTransitionStyle As Integer
        HPDF_TS_WIPE_RIGHT = 0
        HPDF_TS_WIPE_UP
        HPDF_TS_WIPE_LEFT
        HPDF_TS_WIPE_DOWN
        HPDF_TS_BARN_DOORS_HORIZONTAL_OUT
        HPDF_TS_BARN_DOORS_HORIZONTAL_IN
        HPDF_TS_BARN_DOORS_VERTICAL_OUT
        HPDF_TS_BARN_DOORS_VERTICAL_IN
        HPDF_TS_BOX_OUT
        HPDF_TS_BOX_IN
        HPDF_TS_BLINDS_HORIZONTAL
        HPDF_TS_BLINDS_VERTICAL
        HPDF_TS_DISSOLVE
        HPDF_TS_GLITTER_RIGHT
        HPDF_TS_GLITTER_DOWN
        HPDF_TS_GLITTER_TOP_LEFT_TO_BOTTOM_RIGHT
        HPDF_TS_REPLACE
        HPDF_TS_EOF
    End Enum
    Public Enum HPdfBlendMode As Integer
        HPDF_BM_NORMAL = 0
        HPDF_BM_MULTIPLY
        HPDF_BM_SCREEN
        HPDF_BM_OVERLAY
        HPDF_BM_DARKEN
        HPDF_BM_LIGHTEN
        HPDF_BM_COLOR_DODGE
        HPDF_BM_COLOR_BUM
        HPDF_BM_HARD_LIGHT
        HPDF_BM_SOFT_LIGHT
        HPDF_BM_DIFFERENCE
        HPDF_BM_EXCLUSHON
        HPDF_BM_EOF
    End Enum
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfRect
        Public left As Single
        Public bottom As Single
        Public right As Single
        Public top As Single
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfBox
        Public left As Single
        Public bottom As Single
        Public right As Single
        Public top As Single
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfPoint
        Public x As Single
        Public y As Single
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfDate
        Public year As Int32
        Public month As Int32
        Public day As Int32
        Public hour As Int32
        Public minutes As Int32
        Public seconds As Int32
        Public ind As Char
        Public off_hour As Int32
        Public off_minutes As Int32
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfTextWidth
        Public numchars As UInt32
        ' don't use this value (it may be change in the feature). use numspace as alternated. */
        Public numwords As UInt32

Public width As UInt32
        Public numspace As UInt32
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfTransMatrix
        Public a As Single
        Public b As Single
        Public c As Single
        Public d As Single
        Public x As Single
        Public y As Single
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfDashMode_Internal
        Public ptn0 As UInt16
        Public ptn1 As UInt16
        Public ptn2 As UInt16
        Public ptn3 As UInt16
        Public ptn4 As UInt16
        Public ptn5 As UInt16
        Public ptn6 As UInt16
        Public ptn7 As UInt16
        Public num_ptn As UInt32
        Public phase As UInt32
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfDashMode
        Public ptn As UInt16()
        Public phase As UInt32
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfRGBColor
        Public r As Single
        Public g As Single
        Public b As Single
    End Structure
    <StructLayout(LayoutKind.Sequential)> Public Structure HPdfCMYKColor
        Public c As Single
        Public y As Single
        Public m As Single
        Public k As Single
    End Structure

' error handler (call back function)
    Public Delegate Sub HPDF_ErrorHandler(ByVal error_no As uint32, ByVal detail_no As uint32, ByVal user_data As IntPtr)

Public Class HPdfDoc
        Implements IDisposable

Public Const HPDF_TRUE As Integer = 1
        Public Const HPDF_FALSE As Integer = 0
        Public Const HPDF_COMP_NONE As UInt32 = 0
        Public Const HPDF_COMP_TEXT As UInt32 = 1
        Public Const HPDF_COMP_IMAGE As UInt32 = 2
        Public Const HPDF_COMP_METADATA As UInt32 = 4
        Public Const HPDF_COMP_ALL As UInt32 = 15

Public Const HPDF_HIDE_TOOLBAR As UInt32 = 1
        Public Const HPDF_HIDE_MENUBAR As UInt32 = 2
        Public Const HPDF_HIDE_WINDOW_UI As UInt32 = 4
        Public Const HPDF_FIT_WINDOW As UInt32 = 8
        Public Const HPDF_CENTER_WINDOW As UInt32 = 16

Public Const HPDF_ENABLE_READ As UInt32 = 0
        Public Const HPDF_ENABLE_PRINT As UInt32 = 4
        Public Const HPDF_ENABLE_EDIT_ALL As UInt32 = 8
        Public Const HPDF_ENABLE_COPY As UInt32 = 16
        Public Const HPDF_ENABLE_EDIT As UInt32 = 32

Private Declare Function HPDF_GetVersion Lib "libhpdf.dll" Alias "HPDF_GetVersion" () As String
        Private Declare Function HPDF_New Lib "libhpdf.dll" Alias "HPDF_New" (ByVal user_error_fn As HPDF_ErrorHandler, ByVal user_data As IntPtr) As IntPtr
        Private Declare Sub HPDF_Free Lib "libhpdf.dll" Alias "HPDF_Free" (ByVal pdf As IntPtr)
        Private Declare Function HPDF_NewDoc Lib "libhpdf.dll" Alias "HPDF_NewDoc" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_FreeDoc Lib "libhpdf.dll" Alias "HPDF_FreeDoc" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_FreeDocAll Lib "libhpdf.dll" Alias "HPDF_FreeDocAll" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_HasDoc Lib "libhpdf.dll" Alias "HPDF_HasDoc" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_SaveToFile Lib "libhpdf.dll" Alias "HPDF_SaveToFile" (ByVal pdf As IntPtr, ByVal file_name As String) As UInt32
        Private Declare Function HPDF_GetError Lib "libhpdf.dll" Alias "HPDF_GetError" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_GetErrorDetail Lib "libhpdf.dll" Alias "HPDF_GetErrorDetail" (ByVal pdf As IntPtr) As UInt32
        Private Declare Sub HPDF_ResetError Lib "libhpdf.dll" Alias "HPDF_ResetError" (ByVal pdf As IntPtr)
        Private Declare Function HPDF_SetPagesConfiguration Lib "libhpdf.dll" Alias "HPDF_SetPagesConfiguration" (ByVal pdf As IntPtr, ByVal page_per_pages As UInt32) As UInt32
        Private Declare Function HPDF_GetPageByIndex Lib "libhpdf.dll" Alias "HPDF_GetPageByIndex" (ByVal pdf As IntPtr, ByVal index As UInt32) As IntPtr
        Private Declare Function HPDF_GetPageLayout Lib "libhpdf.dll" Alias "HPDF_GetPageLayout" (ByVal pdf As IntPtr) As HPdfPageLayout
        Private Declare Function HPDF_SetPageLayout Lib "libhpdf.dll" Alias "HPDF_SetPageLayout" (ByVal pdf As IntPtr, ByVal layout As HPdfPageLayout) As UInt32
        Private Declare Function HPDF_GetPageMode Lib "libhpdf.dll" Alias "HPDF_GetPageMode" (ByVal pdf As IntPtr) As HPdfPageMode
        Private Declare Function HPDF_SetPageMode Lib "libhpdf.dll" Alias "HPDF_SetPageMode" (ByVal pdf As IntPtr, ByVal layout As HPdfPageMode) As UInt32
        Private Declare Function HPDF_SetOpenAction Lib "libhpdf.dll" Alias "HPDF_SetOpenAction" (ByVal pdf As IntPtr, ByVal open_action As IntPtr) As UInt32
        Private Declare Function HPDF_GetViewerPreference Lib "libhpdf.dll" Alias "HPDF_GetViewerPreference" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_SetViewerPreference Lib "libhpdf.dll" Alias "HPDF_SetViewerPreference" (ByVal pdf As IntPtr, ByVal value As UInt32) As UInt32
        Private Declare Function HPDF_GetCurrentPage Lib "libhpdf.dll" Alias "HPDF_GetCurrentPage" (ByVal pdf As IntPtr) As IntPtr
        Private Declare Function HPDF_AddPage Lib "libhpdf.dll" Alias "HPDF_AddPage" (ByVal pdf As IntPtr) As IntPtr
        Private Declare Function HPDF_InsertPage Lib "libhpdf.dll" Alias "HPDF_InsertPage" (ByVal pdf As IntPtr, ByVal page As IntPtr) As IntPtr
        Private Declare Function HPDF_GetFont Lib "libhpdf.dll" Alias "HPDF_GetFont" (ByVal pdf As IntPtr, ByVal font_name As String, ByVal encoding_name As String) As IntPtr
        Private Declare Function HPDF_LoadType1FontFromFile Lib "libhpdf.dll" Alias "HPDF_LoadType1FontFromFile" (ByVal pdf As IntPtr, ByVal afmfilename As String, ByVal pfmfilename As String) As String
        Private Declare Function HPDF_LoadTTFontFromFile Lib "libhpdf.dll" Alias "HPDF_LoadTTFontFromFile" (ByVal pdf As IntPtr, ByVal file_name As String, ByVal embedding As Int32) As String
        Private Declare Function HPDF_LoadTTFontFromFile2 Lib "libhpdf.dll" Alias "HPDF_LoadTTFontFromFile2" (ByVal pdf As IntPtr, ByVal file_name As String, ByVal index As UInt32, ByVal embedding As Int32) As String
        Private Declare Function HPDF_AddPageLabel Lib "libhpdf.dll" Alias "HPDF_AddPageLabel" (ByVal pdf As IntPtr, ByVal page_num As UInt32, ByVal style As HPdfPageNumStyle, ByVal first_page As UInt32, ByVal prefix As UInt32) As IntPtr
        Private Declare Function HPDF_UseJPFonts Lib "libhpdf.dll" Alias "HPDF_UseJPFonts" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_UseKRFonts Lib "libhpdf.dll" Alias "HPDF_UseKRFonts" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_UseCNSFonts Lib "libhpdf.dll" Alias "HPDF_UseCNSFonts" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_UseCNTFonts Lib "libhpdf.dll" Alias "HPDF_UseCNTFonts" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_CreateOutline Lib "libhpdf.dll" Alias "HPDF_CreateOutline" (ByVal pdf As IntPtr, ByVal parent As IntPtr, ByVal title As String, ByVal encoded As IntPtr) As UInt32
        Private Declare Function HPDF_GetEncoder Lib "libhpdf.dll" Alias "HPDF_GetEncoder" (ByVal pdf As IntPtr, ByVal encoding_name As String) As IntPtr
        Private Declare Function HPDF_GetCurrentEncoder Lib "libhpdf.dll" Alias "HPDF_GetCurrentEncoder" (ByVal pdf As IntPtr) As IntPtr
        Private Declare Function HPDF_SetCurrentEncoder Lib "libhpdf.dll" Alias "HPDF_SetCurrentEncoder" (ByVal pdf As IntPtr, ByVal encoding_name As String) As UInt32
        Private Declare Function HPDF_UseJPEncodings Lib "libhpdf.dll" Alias "HPDF_UseJPEncodings" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_UseKREncodings Lib "libhpdf.dll" Alias "HPDF_UseKREncodings" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_UseCNSEncodings Lib "libhpdf.dll" Alias "HPDF_UseCNSEncodings" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_UseCNTEncodings Lib "libhpdf.dll" Alias "HPDF_UseCNTEncodings" (ByVal pdf As IntPtr) As UInt32
        Private Declare Function HPDF_LoadPngImageFromFile Lib "libhpdf.dll" Alias "HPDF_LoadPngImageFromFile" (ByVal pdf As IntPtr, ByVal filename As String) As IntPtr
        Private Declare Function HPDF_LoadPngImageFromFile2 Lib "libhpdf.dll" Alias "HPDF_LoadPngImageFromFile2" (ByVal pdf As IntPtr, ByVal filename As String) As IntPtr
        Private Declare Function HPDF_LoadJpegImageFromFile Lib "libhpdf.dll" Alias "HPDF_LoadJpegImageFromFile" (ByVal pdf As IntPtr, ByVal filename As String) As IntPtr
        Private Declare Function HPDF_LoadRawImageFromFile Lib "libhpdf.dll" Alias "HPDF_LoadRawImageFromFile" (ByVal pdf As IntPtr, ByVal filename As String, ByVal width As UInt32, ByVal height As UInt32, ByVal color_space As HPdfColorSpace) As IntPtr
        Private Declare Function HPDF_LoadRawImageFromMem Lib "libhpdf.dll" Alias "HPDF_LoadRawImageFromMem" (ByVal pdf As IntPtr, ByVal data As Byte(), ByVal width As UInt32, ByVal height As UInt32, ByVal color_space As HPdfColorSpace, ByVal bits_per_component As UInt32) As IntPtr
        Private Declare Function HPDF_SetInfoAttr Lib "libhpdf.dll" Alias "HPDF_SetInfoAttr" (ByVal pdf As IntPtr, ByVal type As HPdfInfoType, ByVal value As String) As UInt32
        Private Declare Function HPDF_SetInfoDateAttr Lib "libhpdf.dll" Alias "HPDF_SetInfoDateAttr" (ByVal pdf As IntPtr, ByVal type As HPdfInfoType, ByVal value As HPdfDate) As UInt32
        Private Declare Function HPDF_GetInfoAttr Lib "libhpdf.dll" Alias "HPDF_GetInfoAttr" (ByVal pdf As IntPtr, ByVal type As HPdfInfoType) As String
        Private Declare Function HPDF_SetPassword Lib "libhpdf.dll" Alias "HPDF_SetPassword" (ByVal pdf As IntPtr, ByVal owner_passwd As String, ByVal user_passwd As String) As UInt32
        Private Declare Function HPDF_SetPermission Lib "libhpdf.dll" Alias "HPDF_SetPermission" (ByVal pdf As IntPtr, ByVal permission As UInt32) As UInt32
        Private Declare Function HPDF_SetEncryptionMode Lib "libhpdf.dll" Alias "HPDF_SetEncryptionMode" (ByVal pdf As IntPtr, ByVal mode As HPdfEncryptMode, ByVal key_len As UInt32) As UInt32
        Private Declare Function HPDF_SetCompressionMode Lib "libhpdf.dll" Alias "HPDF_SetCompressionMode" (ByVal pdf As IntPtr, ByVal mode As UInt32) As UInt32
        Private Declare Function HPDF_CreateExtGState Lib "libhpdf.dll" Alias "HPDF_CreateExtGState" (ByVal pdf As IntPtr) As IntPtr

Private hpdf As IntPtr

Public Sub New()
            Dim error_handler As HPDF_ErrorHandler = New HPDF_ErrorHandler(AddressOf ErrorProc)
            hpdf = HPDF_New(error_handler, IntPtr.Zero)
            If (hpdf = IntPtr.Zero) Then
                Throw New Exception("cannot create HPdfDoc object.")
            End If
        End Sub

Public Sub Dispose() Implements IDisposable.Dispose
            If (hpdf <> IntPtr.Zero) Then
                HPDF_Free(hpdf)
            End If

hpdf = IntPtr.Zero
        End Sub

Public Shared Function HPdfGetVersion() As String
            Return HPDF_GetVersion()
        End Function

Public Shared Sub ErrorProc(ByVal error_no As UInt32, ByVal detail_no As UInt32, ByVal user_data As IntPtr)
            Dim s As String = "error-code=0x" & error_no.ToString("X") & " detail-code=" & detail_no
            Throw New Exception(s)
        End Sub

Public Sub NewDoc()
            HPDF_NewDoc(hpdf)
        End Sub

Public Sub FreeDoc()
            HPDF_FreeDoc(hpdf)
        End Sub

Public Sub FreeDocAll()
            HPDF_FreeDocAll(hpdf)
        End Sub

Public Function HasDoc() As Boolean
            Return (HPDF_HasDoc(hpdf) <> 0)
        End Function

Public Sub SaveToFile(ByVal file_name As String)
            HPDF_SaveToFile(hpdf, file_name)
        End Sub

Public Function GetError() As UInt32
            Return HPDF_GetError(hpdf)
        End Function

Public Function GetErrorDetail() As UInt32
            Return HPDF_GetErrorDetail(hpdf)
        End Function

Public Sub ResetError()
            HPDF_ResetError(hpdf)
        End Sub

Public Sub SetPagesConfiguration(ByVal page_per_pages As UInt32)
            HPDF_SetPagesConfiguration(hpdf, page_per_pages)
        End Sub

Public Function GetPageByIndex(ByVal index As UInt32) As HPdfPage
            Dim hpage As IntPtr = HPDF_GetPageByIndex(hpdf, index)
            Return New HPdfPage(hpage)
        End Function

Public Function GetPageLayout() As HPdfPageLayout
            Return HPDF_GetPageLayout(hpdf)
        End Function

Public Sub SetPageLayout(ByRef layout As HPdfPageLayout)
            HPDF_SetPageLayout(hpdf, layout)
        End Sub

Public Function GetPageMode() As HPdfPageMode
            Return HPDF_GetPageMode(hpdf)
        End Function

Public Sub SetPageMode(ByRef mode As HPdfPageMode)
            HPDF_SetPageMode(hpdf, mode)
        End Sub

Public Sub SetOpenAction(ByRef open_action As HPdfDestination)
            HPDF_SetOpenAction(hpdf, open_action.GetHandle())
        End Sub

Public Function GetViewerPreference() As UInt32
            Return HPDF_GetViewerPreference(hpdf)
        End Function

Public Sub SetViewerPreference(ByVal value As UInt32)
            HPDF_SetViewerPreference(hpdf, value)
        End Sub

Public Function GetCurrentPage() As HPdfPage
            Dim hpage As IntPtr = HPDF_GetCurrentPage(hpdf)
            Return New HPdfPage(hpage)
        End Function

Public Function AddPage() As HPdfPage
            Dim hpage As IntPtr = HPDF_AddPage(hpdf)
            Return New HPdfPage(hpage)
        End Function

Public Function InsertPage(ByRef page As HPdfPage) As HPdfPage
            Dim hpage As IntPtr = HPDF_InsertPage(hpdf, page.GetHandle())
            Return New HPdfPage(hpage)
        End Function

Public Function GetFont(ByVal font_name As String, ByVal encoding_name As String) As HPdfFont
            Dim hfont As IntPtr = HPDF_GetFont(hpdf, font_name, encoding_name)
            Return New HPdfFont(hfont)
        End Function

Public Function LoadType1FontFromFile(ByVal afmfilename As String, ByVal pfmfilename As String) As String
            Dim font_name As String = HPDF_LoadType1FontFromFile(hpdf, afmfilename, pfmfilename)
            Return font_name
        End Function

Public Function LoadTTFontFromFile(ByVal file_name As String, ByVal embedding As Boolean) As String
            Dim font_name As String
            Dim emb As Integer

If (embedding) Then
                emb = HPDF_TRUE
            Else
                emb = HPDF_FALSE
            End If

font_name = HPDF_LoadTTFontFromFile(hpdf, file_name, emb)
            Return font_name
        End Function

Public Function LoadTTFontFromFile2(ByVal file_name As String, ByVal index As UInt32, ByVal embedding As Boolean) As String
            Dim font_name As String
            Dim emb As Integer

If (embedding) Then
                emb = HPDF_TRUE
            Else
                emb = HPDF_FALSE
            End If

font_name = HPDF_LoadTTFontFromFile2(hpdf, file_name, index, emb)
            Return font_name
        End Function

Public Sub AddPageLabel(ByVal page_num As UInt32, ByVal style As HPdfPageNumStyle, ByVal first_page As UInt32, ByVal prefix As String)
            HPDF_AddPageLabel(hpdf, page_num, style, first_page, prefix)
        End Sub

Public Function UseJPFonts() As UInt32
            Return HPDF_UseJPFonts(hpdf)
        End Function

Public Function UseKRFonts() As UInt32
            Return HPDF_UseKRFonts(hpdf)
        End Function

Public Function UseCNSFonts() As UInt32
            Return HPDF_UseCNSFonts(hpdf)
        End Function

Public Function UseCNTFonts() As UInt32
            Return HPDF_UseCNTFonts(hpdf)
        End Function

Public Function CreateOutline(ByRef parent As HPdfOutline, ByVal title As String, ByRef encoder As HPdfEncoder) As HPdfOutline
            Dim hparent As IntPtr
            Dim hencoder As IntPtr
            Dim houtline As IntPtr

If (encoder Is Nothing) Then
                hencoder = Nothing
            Else
                hencoder = encoder.GetHandle()
            End If

If (parent Is Nothing) Then
                hparent = Nothing
            Else
                hparent = parent.GetHandle()
            End If

houtline = HPDF_CreateOutline(hpdf, hparent, title, hencoder)
            Return New HPdfOutline(houtline)
        End Function
        Public Function GetEncoder(ByVal encoding_name As String) As HPdfEncoder
            Dim hencoder As IntPtr = HPDF_GetEncoder(hpdf, encoding_name)

Return New HPdfEncoder(hencoder)
        End Function

Public Function GetCurrentEncoder() As HPdfEncoder
            Dim hencoder As IntPtr = HPDF_GetCurrentEncoder(hpdf)

Return New HPdfEncoder(hencoder)
        End Function

Public Sub SetCurrentEncoder(ByVal encoding_name As String)
            HPDF_SetCurrentEncoder(hpdf, encoding_name)
        End Sub

Public Function UseJPEncodings() As UInt32
            Return HPDF_UseJPEncodings(hpdf)
        End Function

Public Function UseKREncodings() As UInt32
            Return HPDF_UseKREncodings(hpdf)
        End Function

Public Function UseCNSEncodings() As UInt32
            Return HPDF_UseCNSEncodings(hpdf)
        End Function

Public Function UseCNTEncodings() As UInt32
            Return HPDF_UseCNTEncodings(hpdf)
        End Function

Public Function LoadPngImageFromFile(ByVal filename As String) As HPdfImage
            Dim hobj As IntPtr = HPDF_LoadPngImageFromFile(hpdf, filename)