This code works -
Code: Select all
e# = IMG_PageSetFormatLongParameter(L:hPage, FP_ID_FORMAT, FMT_BMP_ID)
e# = IMG_PageSetFormatLongParameter(L:hPage, FP_ID_COMP_TYPE, IComp_NONE)
e# = IMG_ImageCreateEmpty(Address(L:hImage))
L:OutFilename = '.\BPage'&format(L:Page,@n05)&'.BMP' & chr(0)
e# = IMG_ImageInsertPage(L:hImage, -1, L:hPage)
e# = IMG_ImageSaveToFile(L:hImage, L:OutFileName, 2)
Code: Select all
e# = IMG_PageSetFormatLongParameter(L:hPage, FP_ID_FORMAT, FMT_JPEG_ID)
e# = IMG_PageSetFormatLongParameter(L:hPage, FP_ID_COMP_TYPE, IComp_JPEG)
e# = IMG_PageSetFormatLongParameter(L:hPage, FP_ID_JPEG_QUALITY, 75)
e# = IMG_ImageCreateEmpty(Address(L:hImage))
L:OutFilename = '.\BPage'&format(L:Page,@n05)&'.JPG' & chr(0)
e# = IMG_ImageInsertPage(L:hImage, -1, L:hPage)
e# = IMG_ImageSaveToFile(L:hImage, L:OutFileName, 2)