Comparer deux images

Soyez le premier à donner votre avis sur cette source.

Vue 9 761 fois - Téléchargée 1 071 fois

Description

voiçi un code tout simple pour comparer deux images c'est tout ;)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
54 -
Belle astuce.

Le codage est douteux et des tas de controles sont liés sans but au projet, mais cette COMPARAISON DE FICHIER fonctionne....

Attention cependant, tu compare les fichiers image, tu ne compare pas du tout les images..... ce qui fait qu'une image générée, devra être sauvegardée.... de même, certaines images peuvent être identiques, et donner un fichier différent, selon l'encodage, par exemple (certains encodage n'endommagent pas l'image ;) )

Tu ne tire pas du tout partie des groupes de controles, ou des fonctions.
Voici ce qu'aurait du a peu pres donner ton code

-----------------

Dim Image_File(1) As String

Private Sub Btn_Charger_Click(Index As Integer)
With cd
.CancelError = True
.Filter = "Images(*.jpg*.gif*.bmp*.jpeg|*.jpg;*.gif;*.bmp;*.jpeg"
On Error GoTo Cancelled '# On teste si l'utilisateur a cliqué sur annuler...
.ShowOpen
'# On mémorise le nom du fichier
Image_File(Index) = .FileName
'# On affiche l'image dans le PictureBox voulu
Set Picture1(Index).Picture = LoadPicture(.FileName)
End With
Exit Sub
Cancelled:
End Sub

Private Sub Btn_Comparer_Click()
'# Si l'un des deux fichier n'a pas été définit.....
If LenB(Image_File(0)) 0 Or LenB(Image_File(1)) 0 Then
MsgBox "Veuillez charger 2 images..."
'# On sors de la procédure
Exit Sub
End If

'# Si les chaines sont identiques, StrComp renvoie 0
If 0 = StrComp(Lire(Image_File(0)), Lire(Image_File(1))) Then
MsgBox "Les deux images sont identiques"
Else
MsgBox "les deux images sont différentes"
End If
End Sub

Private Function Lire(FileName As String) As String
Open FileName For Binary Access Read As #1
Lire = Space$(LOF(1))
Get 1, , Lire
Close #1
End Function

------------------
CrazyMan19
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
1 -
merci Renflied pour tes orientations :)
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
Il faudrait faire un programme qui fait un XOR d'une image sur l'autre, pouis qui regarde l'écart du résultat à une image complètement noire... Résultat en pourcentage, etc...
Mais c'est pas mal quand même...
8/10
Saros
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
"qui fait" je voulais dire "qui fasse" désolé
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
54 -
Va voir ce code, certaines choses t'y interesseront surement ;)

http://www.vbfrance.com/code.aspx?ID=18131

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.