Forum Liberty Basic France
• Index
Salut,
Deux fonctions pour connaitre les dimensions d'une image BMP
PathBmpName$ est le chemin&nom de votre fichier bmp
Code :
Code :
@++
Edité par joan74 Le 20/11/2014 à 14h20
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 !"
"L'urgent c'est fait ! L'impossible est en cours... pour les miracles, merci de prévoir un délai supplémentaire !"
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
@++

(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 !"
"L'urgent c'est fait ! L'impossible est en cours... pour les miracles, merci de prévoir un délai supplémentaire !"
• Index
1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie