I'm using FreeImage (version 2.4, dated 2008/07/01 according to the file header) to load, determine image size and rescale an image. The loading and size work fine. But when I use the FreeImage_Rescale function I get a run-time error that says "Can't find DLL entry point _FreeImage_Rescale@16 in Freeimag.dll". The rescale function is called thusly: rescalepercent = FreeImage_RescaleEx(dib, 1.5, 1.5)
Tracing the error in debug shows the offending line "hDIBNew = FreeImage_Rescale(hDIB, lNewWidth, lNewHeight, eFilter)" occurs in function FreeImage_RescaleEx.
Is this a bug in FreeImage or am I missing something? Any help/advise is greatly appreciated.
MikeHTML Code:Public Sub FImageLoad(sFileName As String, sWidthPix As Single, sHeightPix As Single, _
sResolution As Single)
Dim dib As Long, rescalepercent As Long
Dim bOK As Long ', sWidth As Single, sHeight As Single, sResolution As Single
Dim mymsg As String, fif As FREE_IMAGE_FORMAT
fif = FreeImage_GetFileType(sFileName)
dib = FreeImage_Load(fif, sFileName, 0) '"\screenshot.bmp", 0)
FreeImage_GetResolutionY (dib)
sWidthPix = FreeImage_GetWidth(dib)
sResolution = FreeImage_GetResolutionX(dib)
sHeightPix = FreeImage_GetHeight(dib)
mymsg = "Width: " & sWidthPix / sResolution & " Resolution: " & sResolution
MsgBox (mymsg)
rescalepercent = FreeImage_RescaleEx(dib, 1.5, 1.5)
FreeImage_Unload (dib)
End Sub
