1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
BOUCLE
// 1 enregistre l'image avec la fonction TwainVersbmp
TwainVersBMP(VL_FichierNom + NumériqueVersChaîne(NumPage) + ".png", Faux,C_ImageType,VG_BitParPixel[C_ImageBitparPixel],VG_Resolution[C_ImageRésolution],C_ImageContraste,C_ImageBrillance,Faux)
INIEcrit(TXT_Image,"Image"+NumériqueVersChaîne(NumPage),VL_FichierNom + NumériqueVersChaîne(NumPage) + ".png",VG_FichierIni)
// 2 ouvre l'image dans l'image caché puis la réenregistre avec la fonction dSauveImagePNG
// cela permet de divisé par 4 la taille de l'image
PG_ImageInfo(VL_FichierNom + NumériqueVersChaîne(NumPage) + ".png",VL_Largeur, VL_Hauteur)
C_ImageChampComplet..Largeur=VL_Largeur
C_ImageChampComplet..Hauteur=VL_Hauteur
C_ImageChampComplet..Zoom=zoomAdapteTaille
dSauveImagePNG(C_ImageChampComplet,VL_FichierNom + NumériqueVersChaîne(NumPage) + ".png")
// C_ImageChampComplet=""
// C_ImageChampComplet=VL_FichierNom + NumériqueVersChaîne(NumPage) + ".png"
// C_ImageChampComplet..Zoom=zoomAdapteTaille
// dSauveImagePNG(C_ImageChampComplet,VL_FichierNom + NumériqueVersChaîne(NumPage) + ".png")
SI TwainEtat() = teNonChargé ALORS SORTIR
NumPage++
FIN |
Partager