FreeImage_Rescale Error

[scrollcrafters]

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.

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

Mike

[vb5prgrmr]

Use the Depends tool to see if the function exists within the dll. More than likely, it is your API declaration that is incorrect.

Good Luck

[scrollcrafters]

Thanks. I'll look into that tonight.