Sherrod Computers - Web and Application development
PDF Page Counter DLL



PDF Page Counter DLL

General Info

Sample Source Code

Download Trial

Purchase

Customers include:
IBM
Ikon
Microsoft
Kodak
Xerox
Olympus
Minolta
NASA
More >>

Custom Application Development
Click here for information

Products



DLL / COM Products

This is a fully functional DLL that can be incorporated in to virtually any Windows Program. We have provided some sample source code to show how you could use this DLL in your program
Visual Basic

Add a reference to the DLL in the Project

  1. In Visual Basic, click on the 'Project' menu, then click on 'References'
  2. Click the 'Browse' button and find the PDFPageCountDll.dll
  3. Double Click it so that it appears in your 'Available References' Page
Include this code in the beginning part of your program (or you could put this in your module)

Dim PageCountObj As New SC.PDFPageCountDllv1

Now, create a sub or function to get the page count, (the following is a sample you could use):

Public Function GetPages(UseFileName as String) As Long
     GetPages = PageCountObj.PDF_PageCount(UseFileName)
End Function

The 'UseFileName' is the variable that contains the FULL path to the PDF file.

To call the function and get the number of pages in the PDF file, you could use the following:

msgbox("Number of Pages: " & GetPages("c:\temp\testpdf.pdf"))


Cold Fusion

<cfobject type="com"
action="create"
class="sc.pdfpagecountdllv1"
name="pdfcount">

return status 0 means filename not found
return status -1 general error
return status -2 means not a tiff file

<cfset filename = "<FULL PATH AND FILENAME of a valid PDF FILE>">
<cfset pagecount = pdfcount.pdf_pagecount(filename)>

<cfoutput>
#filename# - #pagecount# Pages
</cfoutput>


ASP

Copy and Paste the following source code in to a test.asp page on your web server:

return status 0 means filename not found
return status -1 general error
return status -2 means not a PDF file

<%
Set Obj = Server.CreateObject("sc.pdfpagecountdllv1")
dim filename
dim pages

filename = "<FULL PATH AND FILENAME of a valid PDF FILE>"

pages = Obj.PDF_PageCount(cstr(filename))
Response.Write("<BR>" & filename & " :- <li>" & CStr(pages) & " Pages</li>")

Set Obj = Nothing
%>