Sherrod Computers - Web and Application development
TIFF Page Counter DLL



TIFF Page Counter DLL

General Info

Screen Shots

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


PHP

$Obj = new COM("SCTiffPageCount.TiffPageCountv1");
$file = getcwd()."/hold/multipage_tiff_example.tif";
$pages = $Obj->Tiff_PageCount($file);

echo $pages;


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


Visual Basic

Add a refernce 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 TiffPageCountDll.dll
  3. Double Click it so that it appears in your 'Available References' Page (it will show up in the references as 'SC')
Include this code in the beginning part of your program (or you could put this in your module)

Dim PageCountObj As New SCTiffPageCount.TiffPageCountv1

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.Tiff_PageCount(UseFileName)
End Function

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

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

msgbox("Number of Pages: " & GetPages("c:\temp\testtiff.tif"))


Cold Fusion

<cfobject type="com"
action="create"
class="SCTiffPageCount.TiffPageCountv1"
name="tiffcount">

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 TIFF FILE>">
<cfset pagecount = tiffcount.tiff_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 TIFF file

<%
Set Obj = Server.CreateObject("SCTiffPageCount.TiffPageCountv1")
dim filename
dim pages

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

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

Set Obj = Nothing
%>