Search the web
Sign In
New User? Sign Up
AIL_Development · AIL Developer's Forum
? Already a member? Sign in to Yahoo!

Yahoo! Groups Tips

Did you know...
Show off your group to the world. Share a photo of your group with us.

Best of Y! Groups

   Check them out and nominate your group.
Having problems with message search? Fill out this form to ensure your group is one of the first to be migrated to the new message search system.

Messages

  Messages Help
Advanced
TIF to BMP conversion   Message List  
Reply | Forward Message #121 of 125 |
Can someone point me in the right direction? I am developmenting a batch
process that needs to convert TIF images to BMP format for import into Navision,
which only accepts the BMP format.

I just purchased the AIL_Development product and have no doubt that this will
solve my issue, but getting the code to work is taking a little while.

This is what I was playing with...hard coded in places just while I am learning
how to work with these components. Thanks for any help.

Dim objAIL As New AdvImgLib
Dim hIMG1 As Long
Dim hIMG2 As Long
Set objAIL = New AdvImgLib.cAdvancedImagery
If objAIL.IO_LoadImage("C:\KOFAX\LEADS\data\" & Format(Now, "YYYY-MM-DD") &
"\tif\" & strOrderNo & "-" & strRecordNo & "-0001.tif", hIMG1) = True Then
If objAIL.Convert_ImageToBitmap(hIMG1, hIMG2) = True Then
If objAIL.IO_SaveImage(hIMG1, "C:\32_bit.BMP", _
IF_BMP, BMP_DEFAULT, True) = True Then
MsgBox "Successfull converted image to BMP"
Else
MsgBox "Error - " & objAIL.Error_GetLast
End If
Call objAIL.IO_DestroyImage(hIMG2)
Else
MsgBox "Error - " & objAIL.Error_GetLast
End If
Call objAIL.IO_DestroyImage(hIMG1)
Else
MsgBox "Error - " & objAIL.Error_GetLast
End If
Set objAIL = Nothing




Thu Apr 16, 2009 8:29 pm

jennifercumpian
Offline Offline
Send Email Send Email

Forward
Message #121 of 125 |
Expand Messages Author Sort by Date

Can someone point me in the right direction? I am developmenting a batch process that needs to convert TIF images to BMP format for import into Navision,...
jennifercumpian
Offline Send Email
Apr 17, 2009
2:47 am

I wrote the following code to go to the specified INPUT folder, search for all .TIF files, load them 1 by 1, save them to the specified OUTPUT folder as BITMAP...
Kevin Wilson
kwilson1997
Online Now Send Email
Apr 17, 2009
2:51 am
Advanced

Copyright © 2009 Yahoo! Inc. All rights reserved.
Privacy Policy - Terms of Service - Guidelines - Help