Hello VB gurus!

I have a question for you. Did anyone work with Imaging for Windows Professional? I mean using VB.
If you did - just reply "yes" and I'll post the problem that I hope somebody would be able to help me with.

Thank you.

Just post the question.

Sal

OK. Here goes.

I'm writing a utility which will go through all pages in a multi-page TIFF image in order to find landscaped pages, rotate them to make them portrait and save the image. There could be multiple TIFF images, so I need to perform batch operation within specified directory; and number of pages in TIFF images could be anywhere from 1 to several thousands.

So I'm trying to use Image Admin and Image Edit controls available with VB. In order to be able to edit image I have to use Display method of Image Edit control, so every page which got displayed gets rotated. The problem is that as soon as I display next page all changes made to the previous one are discarded. So when I save the file, apparently only the last page gets to keep changes.
Could you advise me as to what approach is better to use to make it work.
?

Thank you.

When we did this, I think we saved behind the scenes every time the user clicked to go to the next page.

HI guys!

Sorry, my reply is a little bit out of sync.

Yehuda, I'd done what you suggested before I posted my question. The problem is that files, that I'm to process are quite big - we're talking hundreds of MB, and saving such files after every page was rotated takes a lot of time. I have third-party application, which can rotate images - one image at a time, though, and it takes about 5 minutes for it to rotate 1000 pages. With my current approach it takes 1 hr, at least. I tried to save/append each page after rotation in/to temporary file using SavePage method, but with the same results as far as time was concerned. And it is crucial for the application.

Here's a piece of code. Maybe by looking at it you could find something, that I could do to speed it up:

Private Sub Rotate_Click()

Dim h, w, pc, i

 ImgEdit1.Image = "C:\Temp\1.tif"
 pc = ImgEdit1.PageCount

  For i = 1 To pc
   ImgEdit1.Page = i
   ImgEdit1.Display
   h = ImgEdit1.ImageHeight
   w = ImgEdit1.ImageWidth
   If w > h Then
    ImgEdit1.RotateLeft
   End If
   ImgEdit1.Save
   h = 0
   w = 0
  Next

  MsgBox "Done!!!"

End Sub

Thank you all for your time. I really appreciate your help

I wish I could offer you a better solution, but I suspect there isn't one. Remember this is a free tool meant for use on one machine (note: you are not supposed to be distributing this tool). It is a subsection of a much bigger tool that Kodak sold (before the company split; I am not sure who sells the full tool at the moment). Hence, the tool probably is not built to handle large size images efficiently. For this I would suggest investing in tools such as Those put out by LeadTools and Pegasus.

Yehuda

Imaging for Windows is now known as Global360 Imaging for Windows

It is available from

http://www.alliancegroup.co.uk/Wang-...r-Windows.html

The current release of Imaging for Windows has a RotateAll method which rotates all the pages of a TIF image.

Imaging for Windows is suitable for use with Windows XP


Imaging for Windows is also used in other applications such as PaperChase records management http://www.alliancegroup.co.uk/Recor...aperChase.html and Imager document management and imaging http://www.alliancegroup.co.uk/Docum...ent-Imager.htm