Getting the file size of each image of a multipage tiff

Hi,

I want to read the file size of each image from a multipage tiff. The example code that I've found on the forum seems not to be for the Image Suite v15.

++++ ++++
LEAD1.GetFileInfo "FileName.TIF", 0, FILEINFO_TOTALPAGES
For i = 1 To LEAD1.InfoTotalPages
LEAD1.GetFileInfo fname, i, FILEINFO_TOTALPAGES
MsgBox "size of file" + Str(LEAD1.InfoSizeMem)
Next i
++++ ++++

How can I do this with the Image Suite v15?
:^)

Can you tell me what LEADTOOLS programming interface (DLL API, C++ Class Library, .NET classes or COM Interop) you want to use and what programming language you are using?

Hello again...

I am programming with Visual Basic .Net

Leadtools.Codecs.RasterCodecs.Startup()
Dim codecs As Leadtools.Codecs.RasterCodecs = New Leadtools.Codecs.RasterCodecs()
Dim img As Leadtools.RasterImage = codecs.Load("c:\test.tif")
Dim codecsinfo As Leadtools.Codecs.CodecsImageInfo
Dim i As Integer
For i = 0 To img.PageCount - 1
  codecsinfo = codecs.GetInformation("c:\test.tif", True, i)
  MsgBox(codecsinfo.SizeMemory)
Next

Thank you for your reply.

The codecs.SizeMemory property returns the uncompressed size of the image. But I need the compressed size from each page of a CCITT4-compressed Tiff to filter pages with a size of less than 2K (compressed). How can I do this with Leadtools?

Riggson

Riggson,
You are
right. The memory size info is for uncompressed image size. The disk size info is for the entire TIFF file, not a specific page.
However,
there is a way to extract a page from a TIFF file without de-compressing and
re-compressing it. This means the currently-compressed image data is kept as
is, and you can test for disk size of the new TIFF file that holds this separate page. To do that, use the CompactFile Method.

Hi Adnan,

I think the CompactFile method is not what I am searching for. But I found another interesting example in this forum which helps me to find a solution. Here is the code I create:

        Leadtools.Codecs.RasterCodecs.Startup()

        Dim codecs As Leadtools.Codecs.RasterCodecs = New Leadtools.Codecs.RasterCodecs()
        Dim ms As System.IO.MemoryStream
        Dim p As Integer
        Dim pageMax As Integer = MyMultiTiff.PageCount

        For p = 1 To pageMax
            ms = New System.IO.MemoryStream
            codecs.Save(MyMultiTiff, ms, 0, RasterImageFormat.CcittGroup4, 1,  p,  p,  p, Leadtools.Codecs.CodecsSavePageMode.Overwrite)
            Debug.writeln(ms.length) ' The compressed size of the image
        Next

Riggson