Hi,

I have had success with converting thousands of fax pages from tif to
png with this code, but I have a client with computer generated faxes
that are now causing issues with this conversion and I cannot figure
out why or how they are different. When I look at the property of
the TIF files, they have the same compression as others, and the main
diff is the size, they are 2292L X 1728 pixels wide, with Resolution
X of 204dpi and Resolution Y of 196dpi.

The TIF files open fine in windows, and all incoming tif files are
generated by our fax2email company.

The fax fails at this line (code section follows
below):
If objAIL.Convert_ImageToBitmap(hIMG(lngCounter),
hBITMAP) = True Then...

"objAIL.Error_GetLast" does not return any information.

I cannot freely distribute the fax tif file because of patient
confidentiality, so please give me an email to send directly to, or
let me know if there is more debugging I can do.

Thanks,
Chay

Section Code:
'0 error

If objAIL.MultiPage_Load(file, hIMG, lngTotal) = True Then

Response.Write "Loaded " & CStr(lngTotal) & " images from the multi-
page TIFF<BR>"

For lngCounter = 0 To lngTotal - 1

response.write fax_pending_folder & "\" &
replace(mainfile.name,".tif","") & "_" & lngCounter & ".png" & "<BR>"

'1 error

If objAIL.Convert_ImageToBitmap(hIMG(lngCounter),
hBITMAP) = True Then

'2 error

If objAIL.IO_SaveImage(hIMG(lngCounter),
fax_pending_folder & "\" &
replace(mainfile.name,".tif","") & "_" & lngCounter & ".png", IF_png,
png_default, True) = True Then

'3 error

If objAIL.IO_SaveImage(hIMG(lngCounter),
fax_pending_copy_folder & "\" &
replace(mainfile.name,".tif","") & "_" & lngCounter & ".png", IF_png,
png_default, True) = True Then

else

Response.Write "Error - " & objAIL.Error_GetLast & "3<BR>"

end if

Else

Response.Write "Error - " & objAIL.Error_GetLast & "2<BR>"

End If

Call objAIL.IO_DestroyBitmap(hBITMAP)

Else

Response.Write "Error - " & objAIL.Error_GetLast & "1<BR>"

End If

Call objAIL.IO_DestroyImage(hIMG(lngCounter))

Next

Else

Response.Write "Error - " & objAIL.Error_GetLast & "0<BR>"

End If