Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Count the pages of TIF file with vic32.dll file
Author:
krishna
E-mail:
Click to e-mail author
Submitted:
8/23/2006
Version:
VB6
Compatibility:
VB6
Category:
Miscellaneous
Views:
9172
You can count # pages perfectly but you need to HAVE "VIC32.DLL" must & should.
Declarations:
Type imgdes ibuff As Long stx As Long sty As Long endx As Long endy As Long buffwidth As Long palette As Long colors As Long imgtype As Long bmh As Long hBitmap As Long End Type Type RECT left As Long top As Long right As Long bottom As Long End Type Type TiffData ByteOrder As Long width As Long length As Long BitsPSample As Long comp As Long SamplesPPixel As Long PhotoInt As Long PlanarCfg As Long vbitcount As Long End Type Declare Sub copyimgdes Lib "VIC32.DLL" (srcimg As imgdes, desimg As imgdes) Declare Function savejpg Lib "VIC32.DLL" (ByVal Fname As String, srcimg As imgdes, ByVal quality As Long) As Long Declare Function convertgray16to8 Lib "VIC32.DLL" (srcimg As imgdes, resimg As imgdes) As Long Public Declare Function allocimage Lib "VIC32.DLL" (image As imgdes, ByVal wid As Long, ByVal leng As Long, ByVal bppixel As Long) As Long Public Declare Sub freeimage Lib "VIC32.DLL" (image As imgdes) Public Declare Function tiffgetpageinfo Lib "VIC32.DLL" (ByVal Fname As String, ByRef TotalPages As Long, ByRef pagearray As Long, ByVal arrayelems As Long) As Long Public Declare Function tiffinfopagebyindex Lib "VIC32.DLL" (ByVal Fname As String, tdat As TiffData, ByVal pageIndex As Long) As Long Public Declare Function loadtifpagebyindex Lib "VIC32.DLL" (ByVal Fname As String, desimg As imgdes, ByVal pageIndex As Long) As Long Public Declare Function printimage Lib "VIC32.DLL" (ByVal hWnd As Long, ByVal hdcprn As Long, ByVal mode As Long, image As imgdes, pRect As RECT, ByVal boxsiz As Long, ByVal dspfct As Long) As Long Public Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function convert1bitto8bit Lib "VIC32.DLL" (srcimg As imgdes, desimg As imgdes) As Long
Code:
'U need to have VIC32.dll FILE Download it from NET rcode = tiffgetpageinfo(filepath, maxpages, 0, 0) 'Maxpages variable contains the #of pages
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement