Posté le 24 novembre 2014 - 12:31 |
Procedure CAM_CompressaoJpeg(LOCAL Compressao)
okimg is boolean = False
IF Compressao <> ""
WIN_Camera_Desenvolvimento.CAM_Camera = Arquivo
IF Compressao = 100 THEN okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,100,imgProgressiveJPEG) ELSE IF Compressao = 90 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,90,imgProgressiveJPEG) ELSE IF Compressao = 80 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,80,imgProgressiveJPEG) ELSE IF Compressao = 70 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,70,imgProgressiveJPEG) ELSE IF Compressao = 60 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,60,imgProgressiveJPEG) ELSE IF Compressao = 50 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,50,imgProgressiveJPEG) ELSE IF Compressao = 40 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,40,imgProgressiveJPEG) ELSE IF Compressao = 30 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,30,imgProgressiveJPEG) ELSE IF Compressao = 20 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,20,imgProgressiveJPEG) ELSE IF Compressao = 10 okimg = dSaveImageJPEG(WIN_Camera_Desenvolvimento.CAM_Camera,Arquivo,10,imgProgressiveJPEG) END
WIN_Camera_Desenvolvimento.CAM_Camera = Arquivo
END
RESULT(okimg) |
| |
| |
|