Forum Liberty Basic France

• Index
• Subs et Snippets » Deux fonctions pour connaitre les dimensions d'une image BMP
joan74
Le 06/06/2014 à 14h18

Libertynaute Actif

Groupe: Membre

Inscrit le: 17/12/2010
Messages: 124
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
____________________
"L'urgent c'est fait ! L'impossible est en cours... pour les miracles, merci de prévoir un délai supplémentaire !"
   
joan74
Le 20/11/2014 à 14h24

Libertynaute Actif

Groupe: Membre

Inscrit le: 17/12/2010
Messages: 124
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 ;)
@++
____________________
"L'urgent c'est fait ! L'impossible est en cours... pour les miracles, merci de prévoir un délai supplémentaire !"
   
• Subs et Snippets » Deux fonctions pour connaitre les dimensions d'une image BMP  
• Index

 |  |

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