Forum Liberty Basic France

Le 06/06/2014 à 14h18

Libertynaute

Groupe: Membre

Inscrit le: 17/12/2010
Messages: 71
Salut,

Deux fonctions pour connaitre les dimensions d'une image BMP

PathBmpName$ est le chemin&nom de votre fichier bmp


Code :

function GetBmpWidth(PathBmpName$)
    'Capture la Largeur d'une image bmp sur le disque
    '(Basé sur le code "BMP to Sprite Mask" de Andy Amaya)
    open PathBmpName$ for Binary as #BinIn
        'get bmpHeaderInfo
        info$ = Input$(#BinIn, 54)
        'get Width of bmp
        GetBmpWidth = Asc(Mid$(info$,19,1))+Asc(Mid$(info$,20,1))*256
    close #BinIn
    end function




Code :

function GetBmpHeight(PathBmpName$)
    'Capture la Hauteur d'une image bmp sur le disque
    '(Basé sur le code "BMP to Sprite Mask" de Andy Amaya)
    open PathBmpName$ for Binary as #BinIn
        'get bmpHeaderInfo
        info$ = Input$(#BinIn, 54)
        'get Height of bmp
        GetBmpHeight = Asc(Mid$(info$,23,1))+Asc(Mid$(info$,24,1))*256
    close #BinIn
    end function


@++



Edité par joan74 Le 20/11/2014 à 14h20
____________________
"La différence entre la théorie et la pratique,
c'est qu'en théorie il n'y a pas de différence,
mais qu'en pratique il y en a une."

   
Le 20/11/2014 à 14h24

Libertynaute

Groupe: Membre

Inscrit le: 17/12/2010
Messages: 71
Il y avait une petite erreur dans la fonction GetBmpWidth. J'ai fais une erreur en recopiant le code :(
(Pour info il n'était pas possible de mesurer les fichiers dont la largeur > 255 pixels)
C'est corrigé maintenant ;)
@++
____________________
"La différence entre la théorie et la pratique,
c'est qu'en théorie il n'y a pas de différence,
mais qu'en pratique il y en a une."

   

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie