'
' << Haru Free PDF Library >> -- hpdfvb.vb
'
' VB.Net wrapper for libhpdf.dll
'
' Copyright (c) 2008 Matthew Underwood <[email protected]>
'
' 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)
Return New HPdfImage(hobj)
End Function
Public Function LoadPngImageFromFile2(ByVal filename As String) As HPdfImage
Dim hobj As IntPtr = HPDF_LoadPngImageFromFile2(hpdf, filename)
Return New HPdfImage(hobj)
End Function
Public Function LoadJpegImageFromFile(ByVal filename As String) As HPdfImage
Dim hobj As IntPtr = HPDF_LoadJpegImageFromFile(hpdf, filename)
Return New HPdfImage(hobj)
End Function
Public Function LoadRawImageFromFile(ByVal filename As String, ByVal width As UInt32, ByVal height As UInt32, ByRef color_space As HPdfColorSpace) As HPdfImage
Dim hobj As IntPtr = HPDF_LoadRawImageFromFile(hpdf, filename, width, height, color_space)
Return New HPdfImage(hobj)
End Function
Public Function LoadRawImageFromMem(ByVal data As Byte(), ByVal width As Int32, ByVal height As Int32, ByRef color_space As HPdfColorSpace, ByVal bits_per_component As UInt32) As HPdfImage
If (width * height < data.Length) Then
Dim s As String = "error-code=0x1030 detail-code=0"
Throw New Exception(s)
End If
Dim hobj As IntPtr = HPDF_LoadRawImageFromMem(hpdf, data, width, height, color_space, bits_per_component)
Return New HPdfImage(hobj)
End Function
Public Sub SetInfoAttr(ByVal type As HPdfInfoType, ByVal value As String)
HPDF_SetInfoAttr(hpdf, type, value)
End Sub
Public Sub SetInfoDateAttr(ByVal type As HPdfInfoType, ByRef value As HPdfDate)
HPDF_SetInfoDateAttr(hpdf, type, value)
End Sub
Public Function GetInfoAttr(ByVal type As HPdfInfoType) As String
Return HPDF_GetInfoAttr(hpdf, type)
End Function
Public Sub SetPassword(ByVal owner_passwd As String, ByVal user_passwd As String)
HPDF_SetPassword(hpdf, owner_passwd, user_passwd)
End Sub
Public Sub SetPermission(ByVal permission As UInt32)
HPDF_SetPermission(hpdf, permission)
End Sub
Public Sub SetEncryptionMode(ByVal mode As HPdfEncryptMode, ByVal key_len As UInt32)
HPDF_SetEncryptionMode(hpdf, mode, key_len)
End Sub
Public Sub SetCompressionMode(ByVal mode As UInt32)
HPDF_SetCompressionMode(hpdf, mode)
End Sub
Public Function CreateExtGState() As HPdfExtGState
Dim hgstate As IntPtr = HPDF_CreateExtGState(hpdf)
Return New HPdfExtGState(hgstate)
End Function
End Class
Public Class HPdfPage
Public Const HPDF_TRUE As Integer = 1
Public Const HPDF_FALSE As Integer = 0
Private Declare Function HPDF_Page_SetWidth Lib "libhpdf.dll" Alias "HPDF_Page_SetWidth" (ByVal page As IntPtr, ByVal value As Single) As UInt32
Private Declare Function HPDF_Page_SetHeight Lib "libhpdf.dll" Alias "HPDF_Page_SetHeight" (ByVal page As IntPtr, ByVal value As Single) As UInt32
Private Declare Function HPDF_Page_SetSize Lib "libhpdf.dll" Alias "HPDF_Page_SetSize" (ByVal page As IntPtr, ByVal size As HPdfPageSizes, ByVal direction As HPdfPageDirection) As UInt32
Private Declare Function HPDF_Page_SetRotate Lib "libhpdf.dll" Alias "HPDF_Page_SetRotate" (ByVal page As IntPtr, ByVal angle As UInt16) As UInt16
Private Declare Function HPDF_Page_CreateDestination Lib "libhpdf.dll" Alias "HPDF_Page_CreateDestination" (ByVal page As IntPtr) As IntPtr
Private Declare Function HPDF_Page_CreateTextAnnot Lib "libhpdf.dll" Alias "HPDF_Page_CreateTextAnnot" (ByVal page As IntPtr, ByVal rect As HPdfRect, ByVal text As String, ByVal encoder As IntPtr) As IntPtr
Private Declare Function HPDF_Page_CreateLinkAnnot Lib "libhpdf.dll" Alias "HPDF_Page_CreateLinkAnnot" (ByVal page As IntPtr, ByVal rect As HPdfRect, ByVal dst As IntPtr) As IntPtr
Private Declare Function HPDF_Page_CreateURILinkAnnot Lib "libhpdf.dll" Alias "HPDF_Page_CreateURILinkAnnot" (ByVal page As IntPtr, ByVal rect As HPdfRect, ByVal url As String) As IntPtr
Private Declare Function HPDF_Page_TextWidth Lib "libhpdf.dll" Alias "HPDF_Page_TextWidth" (ByVal page As IntPtr, ByVal text As String) As Single
Private Declare Function HPDF_Page_MeasureText Lib "libhpdf.dll" Alias "HPDF_Page_MeasureText" (ByVal page As IntPtr, ByVal text As String, ByVal width As Single, ByVal wordwrap As Int32, ByRef real_width As Single) As UInt32
Private Declare Function HPDF_Page_GetWidth Lib "libhpdf.dll" Alias "HPDF_Page_GetWidth" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetHeight Lib "libhpdf.dll" Alias "HPDF_Page_GetHeight" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetGMode Lib "libhpdf.dll" Alias "HPDF_Page_GetGMode" (ByVal page As IntPtr) As UInt16
Private Declare Function HPDF_Page_GetCurrentPos Lib "libhpdf.dll" Alias "HPDF_Page_GetCurrentPos" (ByVal page As IntPtr) As HPdfPoint
Private Declare Function HPDF_Page_GetCurrentTextPos Lib "libhpdf.dll" Alias "HPDF_Page_GetCurrentTextPos" (ByVal page As IntPtr) As HPdfPoint
Private Declare Function HPDF_Page_GetCurrentFont Lib "libhpdf.dll" Alias "HPDF_Page_GetCurrentFont" (ByVal page As IntPtr) As IntPtr
Private Declare Function HPDF_Page_GetCurrentFontSize Lib "libhpdf.dll" Alias "HPDF_Page_GetCurrentFontSize" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetTransMatrix Lib "libhpdf.dll" Alias "HPDF_Page_GetTransMatrix" (ByVal page As IntPtr) As HPdfTransMatrix
Private Declare Function HPDF_Page_GetLineWidth Lib "libhpdf.dll" Alias "HPDF_Page_GetLineWidth" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetLineCap Lib "libhpdf.dll" Alias "HPDF_Page_GetLineCap" (ByVal page As IntPtr) As HPdfLineCap
Private Declare Function HPDF_Page_GetLineJoin Lib "libhpdf.dll" Alias "HPDF_Page_GetLineJoin" (ByVal page As IntPtr) As HPdfLineJoin
Private Declare Function HPDF_Page_GetMiterLimit Lib "libhpdf.dll" Alias "HPDF_Page_GetMiterLimit" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetDash Lib "libhpdf.dll" Alias "HPDF_Page_GetDash" (ByVal page As IntPtr) As HPdfDashMode_Internal
Private Declare Function HPDF_Page_GetFlat Lib "libhpdf.dll" Alias "HPDF_Page_GetFlat" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetCharSpace Lib "libhpdf.dll" Alias "HPDF_Page_GetCharSpace" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetWordSpace Lib "libhpdf.dll" Alias "HPDF_Page_GetWordSpace" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetHorizontalScalling Lib "libhpdf.dll" Alias "HPDF_Page_GetHorizontalScalling" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetTextLeading Lib "libhpdf.dll" Alias "HPDF_Page_GetTextLeading" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetTextRenderingMode Lib "libhpdf.dll" Alias "HPDF_Page_GetTextRenderingMode" (ByVal page As IntPtr) As HPdfTextRenderingMode
Private Declare Function HPDF_Page_GetTextRaise Lib "libhpdf.dll" Alias "HPDF_Page_GetTextRaise" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetRGBFill Lib "libhpdf.dll" Alias "HPDF_Page_GetRGBFill" (ByVal page As IntPtr) As HPdfRGBColor
Private Declare Function HPDF_Page_GetRGBStroke Lib "libhpdf.dll" Alias "HPDF_Page_GetRGBStroke" (ByVal page As IntPtr) As HPdfRGBColor
Private Declare Function HPDF_Page_GetCMYKFill Lib "libhpdf.dll" Alias "HPDF_Page_GetCMYKFill" (ByVal page As IntPtr) As HPdfCMYKColor
Private Declare Function HPDF_Page_GetCMYKStroke Lib "libhpdf.dll" Alias "HPDF_Page_GetCMYKStroke" (ByVal page As IntPtr) As HPdfCMYKColor
Private Declare Function HPDF_Page_GetGrayFill Lib "libhpdf.dll" Alias "HPDF_Page_GetGrayFill" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetGrayStroke Lib "libhpdf.dll" Alias "HPDF_Page_GetGrayStroke" (ByVal page As IntPtr) As Single
Private Declare Function HPDF_Page_GetStrokingColorSpace Lib "libhpdf.dll" Alias "HPDF_Page_GetStrokingColorSpace" (ByVal page As IntPtr) As HPdfColorSpace
Private Declare Function HPDF_Page_GetFillingColorSpace Lib "libhpdf.dll" Alias "HPDF_Page_GetFillingColorSpace" (ByVal page As IntPtr) As HPdfColorSpace
Private Declare Function HPDF_Page_GetTextMatrix Lib "libhpdf.dll" Alias "HPDF_Page_GetTextMatrix" (ByVal page As IntPtr) As HPdfTransMatrix
Private Declare Function HPDF_Page_GetGStateDepth Lib "libhpdf.dll" Alias "HPDF_Page_GetGStateDepth" (ByVal page As IntPtr) As UInt32
' --- General graphics state -----------------------------------------------
Private Declare Function HPDF_Page_SetLineWidth Lib "libhpdf.dll" Alias "HPDF_Page_SetLineWidth" (ByVal page As IntPtr, ByVal line_width As Single) As UInt32
Private Declare Function HPDF_Page_SetLineCap Lib "libhpdf.dll" Alias "HPDF_Page_SetLineCap" (ByVal page As IntPtr, ByVal line_cap As HPdfLineCap) As UInt32
Private Declare Function HPDF_Page_SetLineJoin Lib "libhpdf.dll" Alias "HPDF_Page_SetLineJoin" (ByVal page As IntPtr, ByVal line_join As HPdfLineJoin) As UInt32
Private Declare Function HPDF_Page_SetMiterLimit Lib "libhpdf.dll" Alias "HPDF_Page_SetMiterLimit" (ByVal page As IntPtr, ByVal miter_limit As Single) As UInt32
Private Declare Function HPDF_Page_SetDash Lib "libhpdf.dll" Alias "HPDF_Page_SetDash" (ByVal page As IntPtr, ByVal array As UInt16(), ByVal num_param As UInt32, ByVal phase As UInt32) As UInt32
Private Declare Function HPDF_Page_SetFlat Lib "libhpdf.dll" Alias "HPDF_Page_SetFlat" (ByVal page As IntPtr, ByVal flatness As Single) As UInt32
Private Declare Function HPDF_Page_SetExtGState Lib "libhpdf.dll" Alias "HPDF_Page_SetExtGState" (ByVal page As IntPtr, ByVal ext_gstate As IntPtr) As UInt32
Private Declare Function HPDF_Page_GSave Lib "libhpdf.dll" Alias "HPDF_Page_GSave" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_GRestore Lib "libhpdf.dll" Alias "HPDF_Page_GRestore" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_Concat Lib "libhpdf.dll" Alias "HPDF_Page_Concat" (ByVal page As IntPtr, ByVal a As Single, ByVal b As Single, ByVal c As Single, ByVal d As Single, ByVal x As Single, ByVal y As Single) As UInt32
Private Declare Function HPDF_Page_MoveTo Lib "libhpdf.dll" Alias "HPDF_Page_MoveTo" (ByVal page As IntPtr, ByVal x As Single, ByVal y As Single) As UInt32
Private Declare Function HPDF_Page_LineTo Lib "libhpdf.dll" Alias "HPDF_Page_LineTo" (ByVal page As IntPtr, ByVal x As Single, ByVal y As Single) As UInt32
Private Declare Function HPDF_Page_CurveTo Lib "libhpdf.dll" Alias "HPDF_Page_CurveTo" (ByVal page As IntPtr, ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single, ByVal x3 As Single, ByVal y3 As Single) As UInt32
Private Declare Function HPDF_Page_CurveTo2 Lib "libhpdf.dll" Alias "HPDF_Page_CurveTo2" (ByVal page As IntPtr, ByVal x2 As Single, ByVal y2 As Single, ByVal x3 As Single, ByVal y3 As Single) As UInt32
Private Declare Function HPDF_Page_CurveTo3 Lib "libhpdf.dll" Alias "HPDF_Page_CurveTo3" (ByVal page As IntPtr, ByVal x1 As Single, ByVal y1 As Single, ByVal x3 As Single, ByVal y3 As Single) As UInt32
Private Declare Function HPDF_Page_ClosePath Lib "libhpdf.dll" Alias "HPDF_Page_ClosePath" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_Rectangle Lib "libhpdf.dll" Alias "HPDF_Page_Rectangle" (ByVal page As IntPtr, ByVal x As Single, ByVal y As Single, ByVal width As Single, ByVal height As Single) As UInt32
Private Declare Function HPDF_Page_Stroke Lib "libhpdf.dll" Alias "HPDF_Page_Stroke" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_ClosePathStroke Lib "libhpdf.dll" Alias "HPDF_Page_ClosePathStroke" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_Fill Lib "libhpdf.dll" Alias "HPDF_Page_Fill" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_Eofill Lib "libhpdf.dll" Alias "HPDF_Page_Eofill" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_FillStroke Lib "libhpdf.dll" Alias "HPDF_Page_FillStroke" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_EofillStroke Lib "libhpdf.dll" Alias "HPDF_Page_EofillStroke" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_ClosePathFillStroke Lib "libhpdf.dll" Alias "HPDF_Page_ClosePathFillStroke" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_ClosePathEofillStroke Lib "libhpdf.dll" Alias "HPDF_Page_ClosePathEofillStroke" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_EndPath Lib "libhpdf.dll" Alias "HPDF_Page_EndPath" (ByVal page As IntPtr) As UInt32
' --- Clipping paths operator --------------------------------------------
Private Declare Function HPDF_Page_Clip Lib "libhpdf.dll" Alias "HPDF_Page_Clip" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_Eoclip Lib "libhpdf.dll" Alias "HPDF_Page_Eoclip" (ByVal page As IntPtr) As UInt32
' --- Text object operator -----------------------------------------------
Private Declare Function HPDF_Page_BeginText Lib "libhpdf.dll" Alias "HPDF_Page_BeginText" (ByVal page As IntPtr) As UInt32
Private Declare Function HPDF_Page_EndText Lib "libhpdf.dll" Alias "HPDF_Page_EndText" (ByVal page As IntPtr) As UInt32
' --- Text state ---------------------------------------------------------
Private Declare Function HPDF_Page_SetCharSpace Lib "libhpdf.dll" Alias "HPDF_Page_SetCharSpace" (ByVal page As IntPtr, ByVal value As Single) As UInt32
Private Declare Function HPDF_Page_SetWordSpace Lib "libhpdf.dll" Alias "HPDF_Page_SetWordSpace" (ByVal page As IntPtr, ByVal value As Single) As UInt32
Private Declare Function HPDF_Page_SetHorizontalScalling Lib "libhpdf.dll" Alias "HPDF_Page_SetHorizontalScalling" (ByVal page As IntPtr, ByVal value As Single) As UInt32
Private Declare Function HPDF_Page_SetTextLeading Lib "libhpdf.dll" Alias "HPDF_Page_SetTextLeading" (ByVal page As IntPtr, ByVal value As Single) As UInt32
Private Declare Function HPDF_Page_SetFontAndSize Lib "libhpdf.dll" Alias "HPDF_Page_SetFontAndSize" (ByVal page As IntPtr, ByVal hfont As IntPtr, ByVal size As Single) As UInt32
Private Declare Function HPDF_Page_SetTextRenderingMode Lib "libhpdf.dll" Alias "HPDF_Page_SetTextRenderingMode" (ByVal page As IntPtr, ByVal mode As HPdfTextRenderingMode) As UInt32
Private Declare Function HPDF_Page_SetTextRaise Lib "libhpdf.dll" Alias "HPDF_Page_SetTextRaise" (ByVal page As IntPtr, ByVal value As Single) As UInt32
' --- Text positioning ---------------------------------------------------
Private Declare Function HPDF_Page_MoveTextPos Lib "libhpdf.dll" Alias "HPDF_Page_MoveTextPos" (ByVal page As IntPtr, ByVal x As Single, ByVal y As Single) As UInt32
Private Declare Function HPDF_Page_MoveTextPos2 Lib "libhpdf.dll" Alias "HPDF_Page_MoveTextPos2" (ByVal page As IntPtr, ByVal x As Single, ByVal y As Single) As UInt32
Private Declare Function HPDF_Page_SetTextMatrix Lib "libhpdf.dll" Alias "HPDF_Page_SetTextMatrix" (ByVal page As IntPtr, ByVal a As Single, ByVal b As Single, ByVal c As Single, ByVal d As Single, ByVal x As Single, ByVal y As Single) As UInt32
Private Declare Function HPDF_Page_MoveToNextLine Lib "libhpdf.dll" Alias "HPDF_Page_MoveToNextLine" (ByVal page As IntPtr) As UInt32
' --- Text showing -------------------------------------------------------
Private Declare Function HPDF_Page_ShowText Lib "libhpdf.dll" Alias "HPDF_Page_ShowText" (ByVal page As IntPtr, ByVal text As String) As UInt32
Private Declare Function HPDF_Page_ShowTextNextLine Lib "libhpdf.dll" Alias "HPDF_Page_ShowTextNextLine" (ByVal page As IntPtr, ByVal text As String) As UInt32
Private Declare Function HPDF_Page_ShowTextNextLineEx Lib "libhpdf.dll" Alias "HPDF_Page_ShowTextNextLineEx" (ByVal page As IntPtr, ByVal word_space As Single, ByVal char_space As Single, ByVal text As String) As UInt32
' --- Color showing ------------------------------------------------------
Private Declare Function HPDF_Page_SetGrayFill Lib "libhpdf.dll" Alias "HPDF_Page_SetGrayFill" (ByVal page As IntPtr, ByVal gray As Single) As UInt32
Private Declare Function HPDF_Page_SetGrayStroke Lib "libhpdf.dll" Alias "HPDF_Page_SetGrayStroke" (ByVal page As IntPtr, ByVal gray As Single) As UInt32
Private Declare Function HPDF_Page_SetRGBFill Lib "libhpdf.dll" Alias "HPDF_Page_SetRGBFill" (ByVal page As IntPtr, ByVal r As Single, ByVal g As Single, ByVal b As Single) As UInt32
Private Declare Function HPDF_Page_SetRGBStroke Lib "libhpdf.dll" Alias "HPDF_Page_SetRGBStroke" (ByVal page As IntPtr, ByVal r As Single, ByVal g As Single, ByVal b As Single) As UInt32
Private Declare Function HPDF_Page_SetCMYKFill Lib "libhpdf.dll" Alias "HPDF_Page_SetCMYKFill" (ByVal page As IntPtr, ByVal c As Single, ByVal m As Single, ByVal y As Single, ByVal k As Single) As UInt32
Private Declare Function HPDF_Page_SetCMYKStroke Lib "libhpdf.dll" Alias "HPDF_Page_SetCMYKStroke" (ByVal page As IntPtr, ByVal c As Single, ByVal m As Single, ByVal y As Single, ByVal k As Single) As UInt32
Private Declare Function HPDF_Page_ExecuteXObject Lib "libhpdf.dll" Alias "HPDF_Page_ExecuteXObject" (ByVal page As IntPtr, ByVal obj As IntPtr) As UInt32
' ---------------------------------------------------------------------
Private Declare Function HPDF_Page_DrawImage Lib "libhpdf.dll" Alias "HPDF_Page_DrawImage" (ByVal page As IntPtr, ByVal image As IntPtr, ByVal x As Single, ByVal y As Single, ByVal width As Single, ByVal height As Single) As UInt32
Private Declare Function HPDF_Page_Circle Lib "libhpdf.dll" Alias "HPDF_Page_Circle" (ByVal page As IntPtr, ByVal x As Single, ByVal y As Single, ByVal ray As Single) As UInt32
Private Declare Function HPDF_Page_Arc Lib "libhpdf.dll" Alias "HPDF_Page_Arc" (ByVal page As IntPtr, ByVal x As Single, ByVal y As Single, ByVal ray As Single, ByVal ang1 As Single, ByVal ang2 As Single) As UInt32
Private Declare Function HPDF_Page_Ellipse Lib "libhpdf.dll" Alias "HPDF_Page_Ellipse" (ByVal page As IntPtr, ByVal x As Single, ByVal y As Single, ByVal xray As Single, ByVal yray As Single) As UInt32
Private Declare Function HPDF_Page_TextOut Lib "libhpdf.dll" Alias "HPDF_Page_TextOut" (ByVal page As IntPtr, ByVal xpos As Single, ByVal ypos As Single, ByVal text As String) As UInt32
Private Declare Function HPDF_Page_TextRect Lib "libhpdf.dll" Alias "HPDF_Page_TextRect" (ByVal page As IntPtr, ByVal left As Single, ByVal top As Single, ByVal right As Single, ByVal bottom As Single, ByVal text As String, ByVal align As HPdfTextAlignment, ByRef len As UInt32) As UInt32
Private Declare Function HPDF_Page_SetSlideShow Lib "libhpdf.dll" Alias "HPDF_Page_SetSlideShow" (ByVal page As IntPtr, ByVal type As HPdfTransitionStyle, ByVal disp_time As Single, ByVal trans_time As Single) As UInt32
' handle to an instance of a HPDF_Doc object.
Private hpage As IntPtr
Public Sub New(ByVal hpage As IntPtr)
If (hpage = IntPtr.Zero) Then
Throw New Exception("cannot create HPdfPage object.")
End If
Me.hpage = hpage
End Sub
Public Sub SetWidth(ByVal value As Single)
HPDF_Page_SetWidth(hpage, value)
End Sub
Public Sub SetHeight(ByVal value As Single)
HPDF_Page_SetHeight(hpage, value)
End Sub
Public Sub SetSize(ByVal size As HPdfPageSizes, ByVal direction As HPdfPageDirection)
HPDF_Page_SetSize(hpage, size, direction)
End Sub
Public Sub SetRotate(ByVal angle As UInt16)
HPDF_Page_SetRotate(hpage, angle)
End Sub
Public Function CreateDestination() As HPdfDestination
Dim hdest As IntPtr = HPDF_Page_CreateDestination(hpage)
Return New HPdfDestination(hdest)
End Function
Public Function CreateTextAnnot(ByVal rect As HPdfRect, ByVal text As String, ByRef encoder As HPdfEncoder) As HPdfAnnotation
Dim hannot As IntPtr = HPDF_Page_CreateTextAnnot(hpage, rect, text, encoder.GetHandle())
Return New HPdfAnnotation(hannot)
End Function
Public Function CreateLinkAnnot(ByVal rect As HPdfRect, ByRef dst As HPdfDestination) As HPdfAnnotation
Dim hannot As IntPtr = HPDF_Page_CreateLinkAnnot(hpage, rect, dst.GetHandle())
Return New HPdfAnnotation(hannot)
End Function
Public Function CreateURILinkAnnot(ByVal rect As HPdfRect, ByVal uri As String) As HPdfAnnotation
Dim hannot As IntPtr = HPDF_Page_CreateURILinkAnnot(hpage, rect, uri)
Return New HPdfAnnotation(hannot)
End Function
Public Function TextWidth(ByVal text As String) As Single
Return HPDF_Page_TextWidth(hpage, text)
End Function
Public Function MeasureText(ByVal text As String, ByVal width As Single, ByVal wordwrap As Boolean, ByRef real_width As Single) As UInt32
Dim ww As Int32
If (wordwrap) Then
ww = HPDF_TRUE
Else
ww = HPDF_FALSE
End If
Return HPDF_Page_MeasureText(hpage, text, width, ww, real_width)
End Function
Public Function MeasureText(ByVal text As String, ByVal width As Single, ByVal wordwrap As Boolean) As UInt32
Dim dummy As Single
Dim ww As Int32
If (wordwrap) Then
ww = HPDF_TRUE
Else
ww = HPDF_FALSE
End If
Return HPDF_Page_MeasureText(hpage, text, width, ww, dummy)
End Function
Public Function GetWidth() As Single
Return HPDF_Page_GetWidth(hpage)
End Function
Public Function GetHeight() As Single
Return HPDF_Page_GetHeight(hpage)
End Function
Public Function GetGMode() As UInt16
Return HPDF_Page_GetGMode(hpage)
End Function
Public Function GetCurrentPos() As HPdfPoint
Return HPDF_Page_GetCurrentPos(hpage)
End Function
Public Function GetCurrentTextPos() As HPdfPoint
Return HPDF_Page_GetCurrentTextPos(hpage)
End Function
Public Function GetCurrentFont() As HPdfFont
Return New HPdfFont(HPDF_Page_GetCurrentFont(hpage))
End Function
Public Function GetCurrentFontSize() As Single
Return HPDF_Page_GetCurrentFontSize(hpage)
End Function
Public Function GetTransMatrix() As HPdfTransMatrix
Return HPDF_Page_GetTransMatrix(hpage)
End Function
Public Function GetLineWidth() As Single
Return HPDF_Page_GetLineWidth(hpage)
End Function
Public Function GetLineCap() As HPdfLineCap
Return HPDF_Page_GetLineCap(hpage)
End Function
Public Function GetLineJoin() As HPdfLineJoin
Return HPDF_Page_GetLineJoin(hpage)
End Function
Public Function GetMiterLimit() As Single
Return HPDF_Page_GetMiterLimit(hpage)
End Function
Public Function GetDash() As HPdfDashMode
Dim mode1 As HPdfDashMode_Internal = HPDF_Page_GetDash(hpage)
Dim mode2 As HPdfDashMode
mode2.phase = mode1.phase
ReDim mode2.ptn(mode1.num_ptn)
If (mode1.num_ptn >= 1) Then
mode2.ptn(0) = mode1.ptn0
End If
If (mode1.num_ptn >= 2) Then
mode2.ptn(1) = mode1.ptn1
End If
If (mode1.num_ptn >= 3) Then
mode2.ptn(2) = mode1.ptn2
End If
If (mode1.num_ptn >= 4) Then
mode2.ptn(3) = mode1.ptn3
End If
If (mode1.num_ptn >= 5) Then
mode2.ptn(4) = mode1.ptn4
End If
If (mode1.num_ptn >= 6) Then
mode2.ptn(5) = mode1.ptn5
End If
If (mode1.num_ptn >= 7) Then
mode2.ptn(6) = mode1.ptn6
End If
If (mode1.num_ptn >= 8) Then
mode2.ptn(7) = mode1.ptn7
End If
Return mode2
End Function
Public Function GetFlat() As Single
Return HPDF_Page_GetFlat(hpage)
End Function
Public Function GetCharSpace() As Single
Return HPDF_Page_GetCharSpace(hpage)
End Function
Public Function GetWordSpace() As Single
Return HPDF_Page_GetWordSpace(hpage)
End Function
Public Function GetHorizontalScalling() As Single
Return HPDF_Page_GetHorizontalScalling(hpage)
End Function
Public Function GetTextLeading() As Single
Return HPDF_Page_GetTextLeading(hpage)
End Function
Public Function GetTextRenderingMode() As HPdfTextRenderingMode
Return HPDF_Page_GetTextRenderingMode(hpage)
End Function
Public Function GetTextRaise() As Single
Return HPDF_Page_GetTextRaise(hpage)
End Function
Public Function GetRGBFill() As HPdfRGBColor
Return HPDF_Page_GetRGBFill(hpage)
End Function
Public Function GetRGBStroke() As HPdfRGBColor
Return HPDF_Page_GetRGBStroke(hpage)
End Function
Public Function GetCMYKFill() As HPdfCMYKColor
Return HPDF_Page_GetCMYKFill(hpage)
End Function
Public Function GetCMYKStroke() As HPdfCMYKColor
Return HPDF_Page_GetCMYKStroke(hpage)
End Function
Public Function GetGrayFill() As Single
Return HPDF_Page_GetGrayFill(hpage)
End Function
Public Function GetGrayStroke() As Single
Return HPDF_Page_GetGrayStroke(hpage)
End Function
Public Function GetStrokingColorSpace() As HPdfColorSpace
Return HPDF_Page_GetStrokingColorSpace(hpage)
End Function
Public Function GetFillingColorSpace() As HPdfColorSpace
Return HPDF_Page_GetFillingColorSpace(hpage)
End Function
Public Function GetTextMatrix() As HPdfTransMatrix
Return HPDF_Page_GetTextMatrix(hpage)
End Function
Public Function GetGStateDepth() As UInt32
Return HPDF_Page_GetGStateDepth(hpage)
End Function
Public Sub SetLineWidth(ByVal line_width As Single)
HPDF_Page_SetLineWidth(hpage, line_width)
End Sub
Public Sub SetLineCap(ByVal line_cap As HPdfLineCap)
HPDF_Page_SetLineCap(hpage, line_cap)
End Sub
Public Sub SetLineJoin(ByVal line_join As HPdfLineJoin)
HPDF_Page_SetLineJoin(hpage, line_join)
End Sub
Public Sub SetMiterLimit(ByVal miter_limit As Single)
HPDF_Page_SetMiterLimit(hpage, miter_limit)
End Sub
Public Sub SetDash(ByRef dash_ptn As UInt16(), ByVal phase As UInt32)
If (dash_ptn Is Nothing) Then
HPDF_Page_SetDash(hpage, dash_ptn, 0, 0)
Return
End If
Dim len As UInt32 = dash_ptn.Length
HPDF_Page_SetDash(hpage, dash_ptn, len, phase)
End Sub
Public Sub SetFlat(ByVal flatness As Single)
HPDF_Page_SetFlat(hpage, flatness)
End Sub
Public Sub SetExtGState(ByVal gstate As HPdfExtGState)
HPDF_Page_SetExtGState(hpage, gstate.GetHandle())
End Sub
Public Sub GSave()
HPDF_Page_GSave(hpage)
End Sub
Public Sub GRestore()
HPDF_Page_GRestore(hpage)
End Sub
Public Sub Concat(ByVal a As Single, ByVal b As Single, ByVal c As Single, ByVal d As Single, ByVal x As Single, ByVal y As Single)
HPDF_Page_Concat(hpage, a, b, c, d, x, y)
End Sub
Public Sub MoveTo(ByVal x As Single, ByVal y As Single)
HPDF_Page_MoveTo(hpage, x, y)
End Sub
Public Sub LineTo(ByVal x As Single, ByVal y As Single)
HPDF_Page_LineTo(hpage, x, y)
End Sub
Public Sub CurveTo(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single, ByVal x3 As Single, ByVal y3 As Single)
HPDF_Page_CurveTo(hpage, x1, y1, x2, y2, x3, y3)
End Sub
Public Sub CurveTo2(ByVal x2 As Single, ByVal y2 As Single, ByVal x3 As Single, ByVal y3 As Single)
HPDF_Page_CurveTo2(hpage, x2, y2, x3, y3)
End Sub
Public Sub CurveTo3(ByVal x1 As Single, ByVal y1 As Single, ByVal x3 As Single, ByVal y3 As Single)
HPDF_Page_CurveTo2(hpage, x1, y1, x3, y3)
End Sub
Public Sub ClosePath()
HPDF_Page_ClosePath(hpage)
End Sub
Public Sub Rectangle(ByVal x As Single, ByVal y As Single, ByVal width As Single, ByVal height As Single)
HPDF_Page_Rectangle(hpage, x, y, width, height)
End Sub
Public Sub Stroke()
HPDF_Page_Stroke(hpage)
End Sub
Public Sub ClosePathStroke()
HPDF_Page_ClosePathStroke(hpage)
End Sub
Public Sub Fill()
HPDF_Page_Fill(hpage)
End Sub
Public Sub Eofill()
HPDF_Page_Eofill(hpage)
End Sub
Public Sub FillStroke()
HPDF_Page_FillStroke(hpage)
End Sub
Public Sub EofillStroke()
HPDF_Page_EofillStroke(hpage)
End Sub
Public Sub ClosePathFillStroke()
HPDF_Page_ClosePathFillStroke(hpage)
End Sub
Public Sub ClosePathEofillStroke()
HPDF_Page_ClosePathEofillStroke(hpage)
End Sub
Public Sub EndPath()
HPDF_Page_EndPath(hpage)
End Sub
Public Sub Clip()
HPDF_Page_Clip(hpage)
End Sub
Public Sub Eoclip()
HPDF_Page_Eoclip(hpage)
End Sub
Public Sub BeginText()
HPDF_Page_BeginText(hpage)
End Sub
Public Sub EndText()
HPDF_Page_EndText(hpage)
End Sub
Public Sub SetCharSpace(ByVal value As Single)
HPDF_Page_SetCharSpace(hpage, value)
End Sub
Public Sub SetWordSpace(ByVal value As Single)
HPDF_Page_SetWordSpace(hpage, value)
End Sub
Public Sub SetHorizontalScalling(ByVal value As Single)
HPDF_Page_SetHorizontalScalling(hpage, value)
End Sub
Public Sub SetTextLeading(ByVal value As Single)
HPDF_Page_SetTextLeading(hpage, value)
End Sub
Public Sub SetFontAndSize(ByRef font As HPdfFont, ByVal size As Single)
HPDF_Page_SetFontAndSize(hpage, font.GetHandle(), size)
End Sub
Public Sub SetTextRenderingMode(ByVal mode As HPdfTextRenderingMode)
HPDF_Page_SetTextRenderingMode(hpage, mode)
End Sub
Public Sub SetTextRaise(ByVal value As Single)
HPDF_Page_SetTextRaise(hpage, value)
End Sub
Public Sub MoveTextPos(ByVal x As Single, ByVal y As Single)
HPDF_Page_MoveTextPos(hpage, x, y)
End Sub
Public Sub MoveTextPos2(ByVal x As Single, ByVal y As Single)
HPDF_Page_MoveTextPos2(hpage, x, y)
End Sub
Public Sub SetTextMatrix(ByVal a As Single, ByVal b As Single, ByVal c As Single, ByVal d As Single, ByVal x As Single, ByVal y As Single)
HPDF_Page_SetTextMatrix(hpage, a, b, c, d, x, y)
End Sub
Public Sub MoveToNextLine()
HPDF_Page_MoveToNextLine(hpage)
End Sub
Public Sub ShowText(ByVal text As String)
HPDF_Page_ShowText(hpage, text)
End Sub
Public Sub ShowTextNextLine(ByVal text As String)
HPDF_Page_ShowTextNextLine(hpage, text)
End Sub
Public Sub ShowTextNextLineEx(ByVal word_space As Single, ByVal char_space As Single, ByVal text As String)
HPDF_Page_ShowTextNextLineEx(hpage, word_space, char_space, text)
End Sub
Public Sub SetGrayFill(ByVal gray As Single)
HPDF_Page_SetGrayFill(hpage, gray)
End Sub
Public Sub SetGrayStroke(ByVal gray As Single)
HPDF_Page_SetGrayStroke(hpage, gray)
End Sub
Public Sub SetRGBFill(ByVal r As Single, ByVal g As Single, ByVal b As Single)
HPDF_Page_SetRGBFill(hpage, r, g, b)
End Sub
Public Sub SetRGBStroke(ByVal r As Single, ByVal g As Single, ByVal b As Single)
HPDF_Page_SetRGBStroke(hpage, r, g, b)
End Sub
Public Sub SetCMYKFill(ByVal c As Single, ByVal m As Single, ByVal y As Single, ByVal k As Single)
HPDF_Page_SetCMYKFill(hpage, c, m, y, k)
End Sub
Public Sub SetCMYKStroke(ByVal c As Single, ByVal m As Single, ByVal y As Single, ByVal k As Single)
HPDF_Page_SetCMYKStroke(hpage, c, m, y, k)
End Sub
Public Sub ExecuteXObject(ByRef xobj As HPdfImage)
HPDF_Page_ExecuteXObject(hpage, xobj.GetHandle())
End Sub
Public Sub DrawImage(ByRef image As HPdfImage, ByVal x As Single, ByVal y As Single, ByVal width As Single, ByVal height As Single)
HPDF_Page_DrawImage(hpage, image.GetHandle(), x, y, width, height)
End Sub
Public Sub Circle(ByVal x As Single, ByVal y As Single, ByVal ray As Single)
HPDF_Page_Circle(hpage, x, y, ray)
End Sub
Public Sub Arc(ByVal x As Single, ByVal y As Single, ByVal ray As Single, ByVal ang1 As Single, ByVal ang2 As Single)
HPDF_Page_Arc(hpage, x, y, ray, ang1, ang2)
End Sub
Public Sub TextOut(ByVal xpos As Single, ByVal ypos As Single, ByVal text As String)
HPDF_Page_TextOut(hpage, xpos, ypos, text)
End Sub
Public Sub TextRect(ByVal left As Single, ByVal top As Single, ByVal right As Single, ByVal bottom As Single, ByVal text As String, ByVal align As HPdfTextAlignment, ByRef len As UInt32)
HPDF_Page_TextRect(hpage, left, top, right, bottom, text, align, len)
End Sub
Public Sub SetSlideShow(ByVal type As HPdfTransitionStyle, ByVal disp_time As Single, ByVal trans_time As Single)
HPDF_Page_SetSlideShow(hpage, type, disp_time, trans_time)
End Sub
Public Function GetHandle() As IntPtr
Return hpage
End Function
End Class
Public Class HPdfFont
Private Declare Function HPDF_Outline_SetOpened Lib "libhpdf.dll" Alias "HPDF_Outline_SetOpened" (ByVal houtline As IntPtr, ByVal opened As Int32) As UInt32
Private Declare Function HPDF_Font_GetFontName Lib "libhpdf.dll" Alias "HPDF_Font_GetFontName" (ByVal hfont As IntPtr) As String
Private Declare Function HPDF_Font_GetEncodingName Lib "libhpdf.dll" Alias "HPDF_Font_GetEncodingName" (ByVal hfont As IntPtr) As String
Private Declare Function HPDF_Font_GetUnicodeWidth Lib "libhpdf.dll" Alias "HPDF_Font_GetUnicodeWidth" (ByVal hfont As IntPtr, ByVal code As UInt16) As Int32
Private Declare Function HPDF_Font_GetBBox Lib "libhpdf.dll" Alias "HPDF_Font_GetBBox" (ByVal hfont As IntPtr) As HPdfBox
Private Declare Function HPDF_Font_GetAscent Lib "libhpdf.dll" Alias "HPDF_Font_GetAscent" (ByVal hfont As IntPtr) As Int32
Private Declare Function HPDF_Font_GetDescent Lib "libhpdf.dll" Alias "HPDF_Font_GetDescent" (ByVal hfont As IntPtr) As Int32
Private Declare Function HPDF_Font_GetXHeight Lib "libhpdf.dll" Alias "HPDF_Font_GetXHeight" (ByVal hfont As IntPtr) As UInt32
Private Declare Function HPDF_Font_GetCapHeight Lib "libhpdf.dll" Alias "HPDF_Font_GetCapHeight" (ByVal hfont As IntPtr) As UInt32
Private Declare Function HPDF_Font_TextWidth Lib "libhpdf.dll" Alias "HPDF_Font_TextWidth" (ByVal hfont As IntPtr, ByVal text As String, ByVal len As UInt16) As HPdfTextWidth
Private Declare Function HPDF_Font_MeasureText Lib "libhpdf.dll" Alias "HPDF_Font_MeasureText" (ByVal hfont As IntPtr, ByVal text As String, ByVal len As UInt16, _
ByVal width As Single, ByVal font_size As Single, ByVal char_space As Single, ByVal word_space As Single, ByVal wordwrap As Int32, ByRef real_width As Single) As UInt32
Private hfont As IntPtr
Public Sub New(ByVal hfont As IntPtr)
If (hfont = IntPtr.Zero) Then
Throw New Exception("cannot create HPdfFont object.")
End If
Me.hfont = hfont
End Sub
Public Function GetHandle() As IntPtr
Return hfont
End Function
Public Function GetFontName() As String
Return HPDF_Font_GetFontName(hfont)
End Function
Public Function GetEncodingName() As String
Return HPDF_Font_GetEncodingName(hfont)
End Function
Public Function GetUnicodeWidth(ByVal code As UInt16) As Int32
Return HPDF_Font_GetUnicodeWidth(hfont, code)
End Function
Public Function GetBBox() As HPdfBox
Return HPDF_Font_GetBBox(hfont)
End Function
Public Function GetAscent() As Int32
Return HPDF_Font_GetAscent(hfont)
End Function
Public Function GetDescent() As Int32
Return HPDF_Font_GetDescent(hfont)
End Function
Public Function GetXHeight() As UInt32
Return HPDF_Font_GetXHeight(hfont)
End Function
Public Function GetCapHeight() As UInt32
Return HPDF_Font_GetCapHeight(hfont)
End Function
Public Function TextWidth(ByVal text As String, ByVal len As UInt32) As HPdfTextWidth
Return HPDF_Font_TextWidth(hfont, text, len)
End Function
Public Function MeasureText(ByVal text As String, ByVal len As UInt32, ByVal width As Single, _
ByVal font_size As Single, ByVal char_space As Single, ByVal word_space As Single, _
ByVal wordwrap As Int32, ByRef real_width As Single) As UInt32
Return HPDF_Font_MeasureText(hfont, text, len, width, font_size, char_space, word_space, wordwrap, real_width)
End Function
End Class
Public Class HPdfOutline
Private Declare Function HPDF_Outline_SetOpened Lib "libhpdf.dll" Alias "HPDF_Outline_SetOpened" (ByVal houtline As IntPtr, ByVal opened As Int32) As UInt32
Private Declare Function HPDF_Outline_SetDestination Lib "libhpdf.dll" Alias "HPDF_Outline_SetDestination" (ByVal houtline As IntPtr, ByVal hdest As IntPtr) As UInt32
Private houtline As IntPtr
Public Sub New(ByVal houtline As IntPtr)
If (houtline = IntPtr.Zero) Then
Throw New Exception("cannot create HPdfOutline object.")
End If
Me.houtline = houtline
End Sub
Public Function GetHandle() As IntPtr
Return houtline
End Function
Public Sub SetOpened(ByVal opened As Boolean)
Dim iopened As Int32
If (opened) Then
iopened = HPdfDoc.HPDF_TRUE
Else
iopened = HPdfDoc.HPDF_FALSE
End If
HPDF_Outline_SetOpened(houtline, iopened)
End Sub
Public Sub SetDestination(ByRef dest As HPdfDestination)
HPDF_Outline_SetDestination(houtline, dest.GetHandle())
End Sub
End Class
Public Class HPdfEncoder
Private Declare Function HPDF_Encoder_GetType Lib "libhpdf.dll" Alias "HPDF_Encoder_GetType" (ByVal hencoder As IntPtr) As HPdfEncoderType
Private Declare Function HPDF_Encoder_GetByteType Lib "libhpdf.dll" Alias "HPDF_Encoder_GetByteType" (ByVal hencoder As IntPtr, ByVal text As String, ByVal index As UInt32) As HPdfByteType
Private Declare Function HPDF_Encoder_GetUnicode Lib "libhpdf.dll" Alias "HPDF_Encoder_GetUnicode" (ByVal hencoder As IntPtr, ByVal code As UInt16) As UInt16
Private Declare Function HPDF_Encoder_GetWritingMode Lib "libhpdf.dll" Alias "HPDF_Encoder_GetWritingMode" (ByVal hencoder As IntPtr) As HPdfWritingMode
Private hencoder As IntPtr
Public Sub New(ByVal hencoder As IntPtr)
If (hencoder = IntPtr.Zero) Then
Throw New Exception("cannot create HPdfEncoder object.")
End If
Me.hencoder = hencoder
End Sub
Public Function GetHandle() As IntPtr
Return hencoder
End Function
Public Function GetEncoderType() As HPdfEncoderType
Return HPDF_Encoder_GetType(hencoder)
End Function
Public Function GetByteType(ByVal text As String, ByVal index As UInt32) As HPdfByteType
Return HPDF_Encoder_GetByteType(hencoder, text, index)
End Function
Public Function GetUnicode(ByVal code As UInt16) As UInt16
Return HPDF_Encoder_GetUnicode(hencoder, code)
End Function
Public Function GetWritingMode() As HPdfWritingMode
Return HPDF_Encoder_GetWritingMode(hencoder)
End Function
End Class
Public Class HPdfDestination
Private Declare Function HPDF_Destination_SetXYZ Lib "libhpdf.dll" Alias "HPDF_Destination_SetXYZ" (ByVal hdest As IntPtr, ByVal left As Single, ByVal top As Single, ByVal zoom As Single) As UInt32
Private Declare Function HPDF_Destination_SetFit Lib "libhpdf.dll" Alias "HPDF_Destination_SetFit" (ByVal hdest As IntPtr) As UInt32
Private Declare Function HPDF_Destination_SetFitH Lib "libhpdf.dll" Alias "HPDF_Destination_SetFitH" (ByVal hdest As IntPtr, ByVal top As Single) As UInt32
Private Declare Function HPDF_Destination_SetFitV Lib "libhpdf.dll" Alias "HPDF_Destination_SetFitV" (ByVal hdest As IntPtr, ByVal left As Single) As UInt32
Private Declare Function HPDF_Destination_SetFitR Lib "libhpdf.dll" Alias "HPDF_Destination_SetFitR" (ByVal hdest As IntPtr, ByVal left As Single, ByVal bottom As Single, ByVal right As Single, ByVal top As Single) As UInt32
Private Declare Function HPDF_Destination_SetFitB Lib "libhpdf.dll" Alias "HPDF_Destination_SetFitB" (ByVal hdest As IntPtr) As UInt32
Private Declare Function HPDF_Destination_SetFitBH Lib "libhpdf.dll" Alias "HPDF_Destination_SetFitBH" (ByVal hdest As IntPtr, ByVal top As Single) As UInt32
Private Declare Function HPDF_Destination_SetFitBV Lib "libhpdf.dll" Alias "HPDF_Destination_SetFitBV" (ByVal hdest As IntPtr, ByVal left As Single) As UInt32
Private hdest As IntPtr
Public Sub New(ByVal hdest As IntPtr)
If (hdest = IntPtr.Zero) Then
Throw New Exception("cannot create HPdfDestination object.")
End If
Me.hdest = hdest
End Sub
Public Sub SetXYZ(ByVal left As Single, ByVal top As Single, ByVal zoom As Single)
HPDF_Destination_SetXYZ(hdest, left, top, zoom)
End Sub
Public Sub SetFit()
HPDF_Destination_SetFit(hdest)
End Sub
Public Sub SetFitH(ByVal top As Single)
HPDF_Destination_SetFitH(hdest, top)
End Sub
Public Sub SetFitV(ByVal left As Single)
HPDF_Destination_SetFitV(hdest, left)
End Sub
Public Sub SetFitR(ByVal left As Single, ByVal bottom As Single, ByVal right As Single, ByVal top As Single)
HPDF_Destination_SetFitR(hdest, left, bottom, right, top)
End Sub
Public Sub SetFitB()
HPDF_Destination_SetFitB(hdest)
End Sub
Public Sub SetFitBH(ByVal top As Single)
HPDF_Destination_SetFitBH(hdest, top)
End Sub
Public Sub SetFitBV(ByVal left As Single)
HPDF_Destination_SetFitBV(hdest, left)
End Sub
Public Function GetHandle() As IntPtr
Return hdest
End Function
End Class
Public Class HPdfAnnotation
Private Declare Function HPDF_LinkAnnot_SetHighlightMode Lib "libhpdf.dll" Alias "HPDF_LinkAnnot_SetHighlightMode" (ByVal hannot As IntPtr, ByVal mode As HPdfAnnotHighlightMode) As UInt32
Private Declare Function HPDF_LinkAnnot_SetBorderStyle Lib "libhpdf.dll" Alias "HPDF_LinkAnnot_SetBorderStyle" (ByVal hannot As IntPtr, ByVal width As Single, ByVal dash_on As UInt16, ByVal dash_off As UInt16) As UInt32
Private Declare Function HPDF_TextAnnot_SetIcon Lib "libhpdf.dll" Alias "HPDF_TextAnnot_SetIcon" (ByVal hannot As IntPtr, ByVal icon As HPdfAnnotIcon) As UInt32
Private Declare Function HPDF_TextAnnot_SetOpened Lib "libhpdf.dll" Alias "HPDF_TextAnnot_SetOpened" (ByVal hannot As IntPtr, ByVal opened As Int32) As UInt32
Private hannot As IntPtr
Public Sub New(ByVal hannot As IntPtr)
If (hannot = IntPtr.Zero) Then
Throw New Exception("cannot create HPdfAnnotation object.")
End If
Me.hannot = hannot
End Sub
Public Function GetHandle() As IntPtr
Return hannot
End Function
Public Sub SetHighlightMode(ByVal mode As HPdfAnnotHighlightMode)
HPDF_LinkAnnot_SetHighlightMode(hannot, mode)
End Sub
Public Sub SetBorderStyle(ByVal width As Single, ByVal dash_on As UInt16, ByVal dash_off As UInt16)
HPDF_LinkAnnot_SetBorderStyle(hannot, width, dash_on, dash_off)
End Sub
Public Sub SetIcon(ByVal icon As HPdfAnnotIcon)
HPDF_TextAnnot_SetIcon(hannot, icon)
End Sub
Public Sub SetOpened(ByVal opened As Boolean)
Dim flg As Int32
If (opened) Then
flg = HPdfDoc.HPDF_TRUE
Else
flg = HPdfDoc.HPDF_FALSE
End If
HPDF_TextAnnot_SetOpened(hannot, flg)
End Sub
End Class
Public Class HPdfXObject
Protected hobj As IntPtr
Public Sub New(ByVal hobj As IntPtr)
If (hobj = IntPtr.Zero) Then
Throw New Exception("cannot create HPdfImage object.")
End If
Me.hobj = hobj
End Sub
Public Function GetHandle() As IntPtr
Return hobj
End Function
End Class
Public Class HPdfImage
Inherits HPdfXObject
Private Declare Function HPDF_Image_GetSize Lib "libhpdf.dll" Alias "HPDF_Image_GetSize" (ByVal image As IntPtr) As HPdfPoint
Private Declare Function HPDF_Image_GetWidth Lib "libhpdf.dll" Alias "HPDF_Image_GetWidth" (ByVal image As IntPtr) As UInt32
Private Declare Function HPDF_Image_GetHeight Lib "libhpdf.dll" Alias "HPDF_Image_GetHeight" (ByVal image As IntPtr) As UInt32
Private Declare Function HPDF_Image_GetBitsPerComponent Lib "libhpdf.dll" Alias "HPDF_Image_GetBitsPerComponent" (ByVal image As IntPtr) As UInt32
Private Declare Function HPDF_Image_GetColorSpace Lib "libhpdf.dll" Alias "HPDF_Image_GetColorSpace" (ByVal image As IntPtr) As String
Private Declare Function HPDF_Image_SetColorMask Lib "libhpdf.dll" Alias "HPDF_Image_SetColorMask" (ByVal image As IntPtr, ByVal rmin As UInt32, ByVal rmax As UInt32, ByVal gmin As UInt32, ByVal gmax As UInt32, ByVal bmin As UInt32, ByVal bmax As UInt32) As UInt32
Private Declare Function HPDF_Image_SetMaskImage Lib "libhpdf.dll" Alias "HPDF_Image_SetMaskImage" (ByVal image As IntPtr, ByVal image_mask As IntPtr) As String
Public Sub New(ByVal hobj As IntPtr)
MyBase.New(hobj)
End Sub
Public Function GetWidth() As UInt32
Return HPDF_Image_GetWidth(hobj)
End Function
Public Function GetHeight() As UInt32
Return HPDF_Image_GetHeight(hobj)
End Function
Public Function GetBitsPerComponent() As UInt32
Return HPDF_Image_GetBitsPerComponent(hobj)
End Function
Public Function GetColorSpace() As String
Return HPDF_Image_GetColorSpace(hobj)
End Function
Public Sub SetColorMask(ByVal rmin As UInt32, ByVal rmax As UInt32, ByVal gmin As UInt32, ByVal gmax As UInt32, ByVal bmin As UInt32, ByVal bmax As UInt32)
HPDF_Image_SetColorMask(hobj, rmin, rmax, gmin, gmax, bmin, bmax)
End Sub
Public Sub SetMaskImage(ByRef mask_image As HPdfImage)
HPDF_Image_SetMaskImage(hobj, mask_image.GetHandle())
End Sub
End Class
Public Class HPdfExtGState
Private Declare Function HPDF_ExtGState_SetAlphaStroke Lib "libhpdf.dll" Alias "HPDF_ExtGState_SetAlphaStroke" (ByVal gstate As IntPtr, ByVal value As Single) As UInt32
Private Declare Function HPDF_ExtGState_SetAlphaFill Lib "libhpdf.dll" Alias "HPDF_ExtGState_SetAlphaFill" (ByVal gstate As IntPtr, ByVal value As Single) As UInt32
Private Declare Function HPDF_ExtGState_SetBlendMode Lib "libhpdf.dll" Alias "HPDF_ExtGState_SetBlendMode" (ByVal gstate As IntPtr, ByVal mode As HPdfBlendMode) As UInt32
Protected hgstate As IntPtr
Public Sub New(ByVal hgstate As IntPtr)
If (hgstate = IntPtr.Zero) Then
Throw New Exception("cannot create HPdfImage object.")
End If
Me.hgstate = hgstate
End Sub
Public Function GetHandle() As IntPtr
Return hgstate
End Function
Public Sub SetAlphaStroke(ByVal value As Single)
HPDF_ExtGState_SetAlphaStroke(hgstate, value)
End Sub
Public Sub SetAlphaFill(ByVal value As Single)
HPDF_ExtGState_SetAlphaFill(hgstate, value)
End Sub
Public Sub SetBlendMode(ByVal mode As HPdfBlendMode)
HPDF_ExtGState_SetBlendMode(hgstate, mode)
End Sub
End Class
End Namespace
