Multi Page TIFF file size growing (v13) (OCX)

After changing a multi page TIFF, deleting a page, the file size grows. I would think the file size would shrink.

Any ideas would be greatly appreciated.

Thanks,
Kreg Gillispie

What is the file version of ltkrn13n.dll?

Please send a before and after of this TIF image.

Please post a code snippet of how you are removing the page from the TIF image.

NOTE: If you are attaching a project or file to the forums...

The image file also grows when doing other updates like deskew, despeckle, add annotations.

Below is the information you requested:

ltkrn13n.dll Version: 13.0.0.12

----------------------------- delete snippet start -----------------------------

FOR I = 1 TO NoPagesToDel
PageNoToDelete = StartingPageNo
oiretcode = w_hiddenimagewindow.ole_lead.object.DeletePage(MultiPageFileName , PageNoToDelete)
IF oiretcode <> 0 THEN
setpointer(Arrow!)
MessageBox("Delete Page:Error" , "Error Code " + string(oiretcode))
return -1
END IF
NEXT

----------------------------- delete snippet end -----------------------------

----------------------------- deskew snippet start -----------------------------

retvalue = long(ole_lead.object.deskew())
IF retvalue <> 0 THEN
setpointer(Arrow!)
MessageBox("Deskew Image :Error", "Error Code " + string(retvalue))
return
END IF
ole_lead.object.ForceRepaint()

// force a save
ImageFileName = isMultiPageFileName
IF ImageFileName = "" THEN
setpointer(Arrow!)
MessageBox("Save Image :Error", "Error retrieving image file name " )
return
END IF

imagefileformat = 29
ole_lead.object.savepage = gwscanframe.iicurpagenoindoc
// Save all annotation in wang format
ole_lead.object.AnnSaveTag(TRUE , FALSE )

retvalue = ole_lead.object.save( ImageFileName , imagefileformat , 0 , 0 , 2 )
IF retvalue <> 0 THEN
setpointer(Arrow!)
MessageBox("Save Image :Error", "Error Code " + string(retvalue) + " " + ImageFileName )
return
END IF

----------------------------- deskew snippet end -----------------------------

----------------------------- despeckle snippet start -----------------------------

retvalue = long(ole_lead.object.despeckle())
IF retvalue <> 0 THEN
setpointer(Arrow!)
MessageBox("Despeckle Image :Error", "Error Code " + string(retvalue))
return
END IF
ole_lead.object.ForceRepaint()

// force a save
ImageFileName = isMultiPageFileName
IF ImageFileName = "" THEN
setpointer(Arrow!)
MessageBox("Save Image :Error", "Error retrieving image file name " )
return
END IF

imagefileformat = 29
ole_lead.object.savepage = gwscanframe.iicurpagenoindoc
// Save all annotation in wang format
ole_lead.object.AnnSaveTag(TRUE , FALSE )

retvalue = ole_lead.object.save( ImageFileName , imagefileformat , 0 , 0 , 2 )
IF retvalue <> 0 THEN
setpointer(Arrow!)
MessageBox("Save Image :Error", "Error Code " + string(retvalue) + " " + ImageFileName )
return
END IF

----------------------------- despeckle snippet end -----------------------------

I spoke with the developers and they said that the DeletePage method only modifies header information.  Therefore, if all you do is call DeleteFile, the image size shouldn't change at all, which I confirmed on my end.

In version 14.5, we added a new API function called L_CompactFile which you could use to get rid of the data in the file after you've done some delete operations.  This is not in the v14.5 OCX control but you can still use L_CompactFile by declaring the API function just like you would any other Windows API function.

If you want to delete pages and the data, you need will need to save the file in overwrite mode for the first page you're keeping, then save the rest of the pages with the append mode.

As for the other functions, I'd have to look into it further if it is still a problem after fixing your page removal code.  With the deletepage method leaving data in your file, it's hard to say what's to be expected anymore.

If interested in upgrading to 14.5, please send an email to sales@leadtools.com for pricing information.

Thanks for the information about the delete and L_CompactFile API call. We have 15, but haven't upgraded our clients yet.

Can you look into the deskew and despeckle issue? The files get bigger even if you don't delete pages.

I have attached the images.

Thanks for your help!
Kreg Gillispie

I looked in the help file for DeleteFile - it's not there. Am I correct in assuming that it is in post-version 13?

Sorry, I meant DeletePage.  There is no function named DeleteFile.

As for the deskew and despeckle, please send a small sample project (NOT your entire application) that isolates this problem so I can try to reproduce it here.  I'd like to be comparing apples to apples.

Thanks for clearing up the DeleteFile/DeletePage issue.

Unfortunately, I would have to give you our entire application(very large) to get the functionality. I sent the code snippets in an earlier post. If you can't do any more analysis, that's OK.

I am going to try the L_CompactFile when we upgrade.

I appreciate your help.

Kreg Gillispie

I recheked your snippets and the problem isn't with deskewing or despeckling but with saving the image.  When you use the replace save mode, it does a similar thing as DeletePage.  The replace mode will delete the header informatoin that links to the specific page, but will not remove the actual data.  Therefore it's like using the append mode, then calling DeletePage.  L_CompactFile will resolve this issue.