Largeur et hauteur d'une image JPG ou BMP

sub largeurHauteurImage(fichier$)
    dim_local buffer%(25), marqueur%, index%, tailleFichier%, longueurSegment%

    ' remise à "0" des variables hauteur et largeur de l'image
    hauteurImage% = 0
    largeurImage% = 0
    
    ' ouvrir en lecture le fichier de la photo sélectionné dans la boite de dialogue
    filebin_open_read 1,fichier$

    ' lire la taille du fichier en octets
    tailleFichier% = filebin_size(1)
    
    ' lecture entête fichier sur une longueur de 25 octets
    filebin_block_read 1,25,buffer%(0)

    ' Identifier le type de fichier image : BMP ou JPG ?
    if buffer%(0) = hex("FF") and buffer%(1) = hex("D8") :' cas d'un fichier JPG

        index% = 2

        ' Recherche du marqueur 0xFFCx et lecture des dimensions du JPG
        ' Principe de recherche des maqueurs fourni par JL35
        while index% < tailleFichier%
            filebin_position 1,index%
            filebin_block_read 1,9,buffer%(0)
            marqueur% = (buffer%(0)*256) + buffer%(1)
            longueurSegment% = (buffer%(2)*256) + buffer%(3)

            ' avance pas à pas jusqu'au prochain marqueur 0xFF en cas de longueur erronée du précédent segment
            while buffer%(0) <> 255
                index% = index% + 1
                longueurSegment% = longueurSegment% + 1
                filebin_position 1,index%
                filebin_block_read 1,9,buffer%(0)
            end_while

            marqueur% = (buffer%(0)*256) + buffer%(1)
            longueurSegment% = (buffer%(2)*256) + buffer%(3)

            ' décodage marqueurs de base 0xFFCx (SOF : Start Of File x)
            if marqueur% > 65471 and marqueur% < 65476 :' 0xFFC0, 0xFFC1, 0xFFC2 et 0xFFC3
                
                ' hauteur de l'image en pixels
                hauteurImage% = buffer%(5) * 256 + buffer%(6)
                
                ' largeur de l'image en pixels
                largeurImage% = buffer%(7) * 256 + buffer%(8)

                ' sortie de boucle lorsque le marqueur recherché a été trouvé
                exit_while
            end_if

            ' saut vers le prochain marqueur
            index% = index% + longueurSegment% + 2
        end_while  
    else
        ' fichier BMP
        largeurImage% = buffer%(18) + (buffer%(19)*256) + (buffer%(20)*power(256,2)) + (buffer%(21)*power(256,3))
        hauteurImage% = buffer%(22) + (buffer%(23)*256) + (buffer%(24)*power(256,2)) + (buffer%(25)*power(256,3))
    end_if

    ' Fermer fichier binaire
    filebin_close 1  
end_sub

' Dimensions en pixels d'une image JPG ou BMP
' JL35 et Marc - Juillet 2023
' Ecrit en langage PANORAMIC 0.9.29.i.9

' définir les variables
dim nomFichier$, largeurImage%, hauteurImage%

' définir les LABELs (étiquettes pour repérer un emplacement dans le code)
label ouvrirFichier

' Saut vers le sous programme de création de l'interface utilisateur
creerInterfaceUtilisateur()

' fin de programme principal
end

' ------------------------------------------------------------------------------
sub creerInterfaceUtilisateur()

    ' créer une fenêtre de dialoque pour ouvrir un fichier image
    open_dialog_pic 1

    ' Mettre un filtre à la fenêtre de dialogue pour ne sélectionner que les fichiers avec l'extension JPG ou BMP
    filter 1,"Fichier image *.JPG ou *.BMP|*.jpg;*.bmp"

    ' créer un bouton d'appel à charger un fichier image
    button 2
    top 2,35
    left 2,480
    caption 2,"Choisir image"
    on_click 2,ouvrirFichier

    ' créer une ligne d'affichage pour le nom du fichier
    alpha 3
    top 3,30
    left 3,30

    ' créer une ligne d'affichage pour la largeur de l'image en pixels
    alpha 4
    top 4,50
    left 4,30

    ' créer une ligne d'affichage pour la hauteur de l'image en pixels
    alpha 5
    top 5,70
    left 5,30

    ' créer le PICTURE d'affichage pour l'image sélectionnée
    picture 6
    top 6,136
    left 6,105
    height 6,250
    width 6,375
    stretch_on 6
   
end_sub
' ------------------------------------------------------------------------------
ouvrirFichier:
    ' Afficher la boite de dialogue pour sélectionner un fichier image
    nomFichier$ = file_name$(1)

    ' Fermer la boite de dialoque si l'utilisateur annule sa demande.
    if nomFichier$ = "_"
        return
    end_if

    ' Saut au sous programme de recherche des dimensions de l'image
    rechercherLargeurHauteurImage(nomFichier$)

    ' affichage des résultats
    caption 3,"Nom du fichier : " + file_extract_name$(nomFichier$)
    caption 4,"Largeur de l'image :" + str$(largeurImage%) + " pixels"
    caption 5,"Hauteur de l'image :" + str$(hauteurImage%) + " pixels"
   
    ' saut au sous-programme d'affichage de l'image sélectionnée
    afficherImage()
   
 return
' ------------------------------------------------------------------------------
sub rechercherLargeurHauteurImage(fichier$)
    dim_local buffer%(25), marqueur%, index%, tailleFichier%, longueurSegment%

    ' remise à "0" des variables hauteur et largeur de l'image
    hauteurImage% = 0
    largeurImage% = 0
   
    ' ouvrir en lecture le fichier de la photo sélectionné dans la boite de dialogue
    filebin_open_read 1,fichier$

    ' lire la taille du fichier en octets
    tailleFichier% = filebin_size(1)
   
    ' lecture entête fichier sur une longueur de 25 octets
    filebin_block_read 1,25,buffer%(0)

    ' Identifier le type de fichier image : BMP ou JPG ?
    if buffer%(0) = hex("FF") and buffer%(1) = hex("D8") :' cas d'un fichier JPG

        index% = 2

        ' Recherche du marqueur 0xFFCx et lecture des dimensions du JPG
        while index% < tailleFichier%
            filebin_position 1,index%
            filebin_block_read 1,9,buffer%(0)
            marqueur% = (buffer%(0)*256) + buffer%(1)
            longueurSegment% = (buffer%(2)*256) + buffer%(3)

            ' avance pas à pas jusqu'au prochain marqueur 0xFF en cas de longueur erronée du précédent segment
            while buffer%(0) <> 255
                index% = index% + 1
                longueurSegment% = longueurSegment% + 1
                filebin_position 1,index%
                filebin_block_read 1,9,buffer%(0)
            end_while

            marqueur% = (buffer%(0)*256) + buffer%(1)
            longueurSegment% = (buffer%(2)*256) + buffer%(3)

            ' décodage marqueurs de base 0xFFCx (SOF : Start Of File x)
            if marqueur% > 65471 and marqueur% < 65476 :' 0xFFC0, 0xFFC1, 0xFFC2 et 0xFFC3
               
                ' hauteur de l'image en pixels
                hauteurImage% = buffer%(5) * 256 + buffer%(6)
               
                ' largeur de l'image en pixels
                largeurImage% = buffer%(7) * 256 + buffer%(8)

                ' sortie de boucle lorsque le marqueur recherché a été trouvé
                exit_while
            end_if

            ' saut vers le prochain marqueur
            index% = index% + longueurSegment% + 2
        end_while 
    else
        ' dimensions pour un fichier BMP
        largeurImage% = buffer%(18) + (buffer%(19)*256) + (buffer%(20)*power(256,2)) + (buffer%(21)*power(256,3))
        hauteurImage% = buffer%(22) + (buffer%(23)*256) + (buffer%(24)*power(256,2)) + (buffer%(25)*power(256,3))
    end_if

    ' Fermer l'accès en lecture fichier binaire
    filebin_close 1 
end_sub
' ------------------------------------------------------------------------------
sub afficherImage()
    ' déclaration des variables locales
    dim_local ratioImage, ratioPicture
   
    ' calcul du ratio de l'objet PICTURE(6) 375x250 pixels
    ratioPicture = 375/250

    ' calcul du ration de l'image
    ratioImage = largeurImage% / hauteurImage%

    ' adaptater le ratio du PICTURE(6) au ratio de l'image sélectionnée
    if ratioImage > ratioPicture
        width 6,375
        height 6,375 / ratioImage
    else
        height 6,250
        width 6,250 * ratioImage
    end_if

    ' centrer le PICTURE(6) à l'écran
    left 6,(width_client(0) - width(6)) / 2
    top 6,((height_client(0) - height(6)) / 2) + 40

    ' Afficher l'image sélectionnée dans le PICTURE(6)
    file_load 6,nomFichier$
end_sub

SUB DimJpgBmp(f$)
  ' Dimensions d'une image Bmp ou Jpg -> w,h, définis dans l'appelant
  DIM_LOCAL p,fp$
  p = 900: fp$ = "C:\Tmp.bmp"
  IF FILE_EXTRACT_EXTENSION$(UPPER$(f$)) <> ".BMP"
      PICTURE p: HIDE p: FILE_LOAD p,f$: FILE_SAVE p,fp$: DELETE p: f$ = fp$
  END_IF
  FILEBIN_OPEN_READ 1,f$
      FILEBIN_POSITION 1,18: w = FILEBIN_READ(1)+256*FILEBIN_READ(1)
      FILEBIN_POSITION 1,22: h = FILEBIN_READ(1)+256*FILEBIN_READ(1)
  FILEBIN_CLOSE 1: IF FILE_EXISTS(fp$) = 1 THEN FILE_DELETE fp$
END_SUB

SUB DimJpg(f$)
  ' Dimensions rendues dans w et h, définis dans l'appelant
  ' dimensions d'un jpg -> w, h : frame FF C0
  ' (frames: FF tt 00 yy xx ...
  '  tt = type de frame, xx+256*yy taille du contenu (+2 = taille totale)
  DIM_LOCAL sz,t,x,v%(10)
  FILEBIN_OPEN_READ 9,f$: sz = FILEBIN_SIZE(9): x = 2
  WHILE x < sz
    FILEBIN_POSITION 9,x: FILEBIN_BLOCK_READ 9,10,v%(0)
    t = v%(1): ' type de frame (FF xx)
    IF t=192 OR t=193 OR t=194 OR t=195: ' C0, C1, C2, C3 frame dimensions
        h = v%(6)+256*v%(5): w = v%(8)+256*v%(7)
        EXIT_WHILE
    END_IF
    x = x+v%(3)+256*v%(2)+2: ' frame suivant
  END_WHILE
  FILEBIN_CLOSE 9
END_SUB

DIM f$,w,h
f$ = "Z:\bot10.jpg": ' image jjn4
FONT_SIZE 0,12: COLOR 0,220,220,220
PICTURE 1: FULL_SPACE 1
FILE_LOAD 1,f$
DimJpg(f$)
PRINT STR$(w)+" x "+STR$(h)
END
' ===========================
SUB DimJpg(f$)
  ' dimensions d'un jpg -> w, h : frame FF C0
  ' (frames: FF tt 00 yy xx ...
  '  tt = type de frame, xx+256*yy taille du contenu (+2 = taille totale)
  DIM_LOCAL sz,t,x,v%(10)
  FILEBIN_OPEN_READ 9,f$: sz = FILEBIN_SIZE(9): x = 2
  WHILE x < sz
    FILEBIN_POSITION 9,x: FILEBIN_BLOCK_READ 9,10,v%(0)
    t = v%(1): ' type de frame (FF xx)
    IF t=192 OR t=193 OR t=194 OR t=195: ' C0, C1, C2, C3 frame dimensions
        h = v%(6)+256*v%(5): w = v%(8)+256*v%(7)
        EXIT_WHILE
    END_IF
    x = x+v%(3)+256*v%(2)+2: ' frame suivant
  END_WHILE
  FILEBIN_CLOSE 9
END_SUB

Exploration des images par liste:
' Dimensions d'une image JPG ou BMP
' JL35 et Marc - Juillet 2023
' Ecrit en langage PANORAMIC 0.9.29.i.9

dim nomFichier$, largeurImage%, hauteurImage%   , a$ , i%

label ouvrirFichier

' créer une boite de dialoque pour ouvrir un fichier image
open_dialog_pic 1

' Mettre un filtre à la boite de dialogue pour ne sélectionner que les fichiers avec l'extension JPG ou BMP
filter 1,"Fichier image *.JPG ou *.BMP|*.jpg;*.bmp"

button 2
top 2,25
left 2,480
caption 2,"Fichier image"
on_click 2,ouvrirFichier

dlist 4

end
' ------------------------------------------------------------------------------
ouvrirFichier:
    ' Afficher la boite de dialogue pour sélectionner un fichier image
    nomFichier$ = file_name$(1)

    ' si l'utilisateur annule sa recherche => fin du programme
    if nomFichier$ = "_"
        return
    end_if
    clear 4
    a$=file_find_first$
    while a$<>"_"
       if lower$(right$(a$,4))=".jpg"
          item_add 4,a$
       end_if
       a$=file_find_next$
    end_while
    file_find_close
for i% = 1 to count(4)
    largeurImage% = 0
    hauteurImage% = 0
    nomFichier$=item_read$(4,i%)
    largeurHauteurImage(nomFichier$)

    ' affichage des dimensions
  if largeurImage%=0 and hauteurImage%=0
    print "Nom du fichier : " + file_extract_name$(nomFichier$)
    print "Largeur de l'image :" + str$(largeurImage%) + " pixels"
    print "Hauteur de l'image :" + str$(hauteurImage%) + " pixels"
    print
  end_if
  caption 0,str$(i%)+"/"+str$(count(4))
next i%
    beep
return
' ------------------------------------------------------------------------------
sub largeurHauteurImage(fichier$)
    dim_local buffer%(25), marqueur%, index%, tailleFichier%, longueurSegment%

    ' remise à "0" des variables hauteur et largeur de l'image
    hauteurImage% = 0
    largeurImage% = 0
    
    ' ouvrir en lecture le fichier de la photo sélectionné dans la boite de dialogue
    filebin_open_read 1,fichier$

    ' lire la taille du fichier en octets
    tailleFichier% = filebin_size(1)
    
    ' lecture entête fichier sur une longueur de 25 octets
    filebin_block_read 1,25,buffer%(0)

    ' Identifier le type de fichier image : BMP ou JPG ?
    if buffer%(0) = hex("FF") and buffer%(1) = hex("D8") :' cas d'un fichier JPG

        index% = 2

        ' Recherche du marqueur 0xFFCx et lecture des dimensions du JPG
        ' Principe de recherche des maqueurs fourni par JL35
        while index% < tailleFichier%
            filebin_position 1,index%
            filebin_block_read 1,9,buffer%(0)
            marqueur% = (buffer%(0)*256) + buffer%(1)
            longueurSegment% = (buffer%(2)*256) + buffer%(3)

            ' avance pas à pas jusqu'au prochain marqueur 0xFF en cas de longueur erronée du précédent segment
            while buffer%(0) <> 255
                index% = index% + 1
                longueurSegment% = longueurSegment% + 1
                filebin_position 1,index%
                filebin_block_read 1,9,buffer%(0)
            end_while

            marqueur% = (buffer%(0)*256) + buffer%(1)
            longueurSegment% = (buffer%(2)*256) + buffer%(3)

            ' décodage marqueurs de base 0xFFCx (SOF : Start Of File x)
            if marqueur% > 65471 and marqueur% < 65476 :' 0xFFC0, 0xFFC1, 0xFFC2 et 0xFFC3
                
                ' hauteur de l'image en pixels
                hauteurImage% = buffer%(5) * 256 + buffer%(6)
                
                ' largeur de l'image en pixels
                largeurImage% = buffer%(7) * 256 + buffer%(8)

                ' sortie de boucle lorsque le marqueur recherché a été trouvé
                exit_while
            end_if

            ' saut vers le prochain marqueur
            index% = index% + longueurSegment% + 2
        end_while  
    else
        ' fichier BMP
        largeurImage% = buffer%(18) + (buffer%(19)*256) + (buffer%(20)*power(256,2)) + (buffer%(21)*power(256,3))
        hauteurImage% = buffer%(22) + (buffer%(23)*256) + (buffer%(24)*power(256,2)) + (buffer%(25)*power(256,3))
    end_if

    ' Fermer fichier binaire
    filebin_close 1  
end_sub

SUB Img1ToImg2(f$,fr$)
  ' Conversion image d'un format quelconque (Heic compris) vers un autre format quelconque
  EXECUTE_WAIT "C:\Progra~2\Irfanv~1\i_view64.exe|"+f$+" /convert="+fr$
END_SUB