Convert to gif
Convert to GrayscaleCode:dib = FreeImage_LoadEx(AppDataPath & "\" & "test.bmp") If (dib) Then Call FreeImage_SaveEx(dib, AppDataPath & "\" & "test.gif") Call FreeImage_Unload(dib) End If
Code:dib = FreeImage_LoadEx(AppDataPath & "\" & "test.bmp") dibGray = FreeImage_ConvertToGreyscale(dib) bOK = FreeImage_Save(FIF_GIF, dibGray, AppDataPath & "\" & "test.gif", 0)




Reply With Quote