PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → Compressao Jpeg
Compressao Jpeg
Débuté par adrianoboller, 24 nov. 2014 12:31 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 24 novembre 2014 - 12:31
Procedure CAM_CompressaoJpeg(LOCAL Compressao)

okimg is boolean = False

//Modifica a resolucao da imagem criada

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)