comment recupere les infos d'une jpeg

Question

je recherhce un tutorial ou un exemple qui permet de recup les infos (resolution, taille,l'image en elle meme) d'une image jpeg afin de la comparer a une autre et de savoir si elle est identique.

je suppose qu'il faut jouer avec le binaire mais comment ???

pcpunch · Answer

Un petit exemple en utilisant une pictureBox :


Dim MonImage As String
MonImage = "c:\matrix.jpg"
'Utilsation de picture1 afin de recupérer la résolution de l'image
Picture1.AutoSize = True
Picture1.ScaleMode = vbPixels
Picture1.Visible = False
Picture1.Picture = LoadPicture(MonImage)
MsgBox "Image : " & MonImage & vbCrLf & _
"Résolution : " & Picture1.ScaleWidth & " x " & Picture1.ScaleHeight & " Pixels" & vbCrLf & _
"Taille : " & FileLen(MonImage) & " Octets"


En résumer on charge l'image dans la picturebox, on definit le scaleMode en Pixels et la rend non visible!!!
Ensuite on recupére la résolution (unité selon le ScaleMode) ave les propriétés ScaleWindth et ScaleHeight et la taille avec la Fonction Filelen..

++

Neo.balastik · Answer

Salut ;O)

Voici un lien magique....
http://www.mvps.org/EDais/Code/Libraries/JPEGInfo/index.html

Une classe toute faite et très facile à utiliser.
Il y a aussi pour le BMP et GIF.

Tchao

Guy

yami_no_ookami · Answer

Merci pour ce lien en effet très pratique. ^_^

Comment recupere les infos d'une jpeg

3 réponses

Discussions similaires