Accueil > Forum > > > > Comparaison d'images???
 Comparaison d'images???
jeudi 14 juin 2001 à 00:23:57 |
Comparaison d'images???
Bendes
|
J'voudrais pouvoir comparer deux images par n'importe quel moyen... J'ai essayé "If Picture1.Picture = Picture2.Picture..." et pleins d'autres trucs ET CA MARCHE PAS!!!! Merci d'avance |
|
jeudi 14 juin 2001 à 03:44:44 |
Re : Comparaison d'images???
Louis
|
je n'ai l'ai jamais fait , mais je pense qu'il fait decomposer l'image pixels par pixels.
moi, j'ai repris un bout de prog qui ressemblait a:
Private Declare Function SetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
Private Declare Function StretchBlt% Lib "GDI32" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
et dans la foulee voila une fonction qui recopie une image pour en donner son negatif, adapte pour pas recopier mais comparer, ca devrait aller
Sub Negative(Pic1 As PictureBox, Pic2 As PictureBox)
Dim c1x As Integer, c1y As Integer
Dim p1x As Integer, p1y As Integer
c1x = Pic1.ScaleWidth - 1
c1y = Pic1.ScaleHeight - 1
pic1hDC% = Pic1.hDC
pic2hDC% = Pic2.hDC
For p1y = 0 To c1y
For p1x = 0 To c1x
c0& = blanc - GetPixel(pic1hDC%, p1x, p1y)
If c0& <> -1 Then xret& = SetPixel(pic2hDC%, p1x, p1y, c0&)
Next
T% = DoEvents()
Next
End Sub
-------------------------------
Réponse au message :
-------------------------------
J'voudrais pouvoir comparer deux images par n'importe quel moyen...
J'ai essayé "If Picture1.Picture = Picture2.Picture..." et pleins d'autres trucs ET CA MARCHE PAS!!!!
Merci d'avance
|
|
vendredi 15 juin 2001 à 22:43:41 |
Re : Comparaison d'images???
Bendes
|
Merci bcp, j'v regarder ça à mon aise...
-------------------------------
Réponse au message :
-------------------------------
je n'ai l'ai jamais fait , mais je pense qu'il fait decomposer l'image pixels par pixels.
moi, j'ai repris un bout de prog qui ressemblait a:
Private Declare Function SetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
Private Declare Function StretchBlt% Lib "GDI32" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
et dans la foulee voila une fonction qui recopie une image pour en donner son negatif, adapte pour pas recopier mais comparer, ca devrait aller
Sub Negative(Pic1 As PictureBox, Pic2 As PictureBox)
Dim c1x As Integer, c1y As Integer
Dim p1x As Integer, p1y As Integer
c1x = Pic1.ScaleWidth - 1
c1y = Pic1.ScaleHeight - 1
pic1hDC% = Pic1.hDC
pic2hDC% = Pic2.hDC
For p1y = 0 To c1y
For p1x = 0 To c1x
c0& = blanc - GetPixel(pic1hDC%, p1x, p1y)
If c0& <> -1 Then xret& = SetPixel(pic2hDC%, p1x, p1y, c0&)
Next
T% = DoEvents()
Next
End Sub
-------------------------------
Réponse au message :
-------------------------------
J'voudrais pouvoir comparer deux images par n'importe quel moyen...
J'ai essayé "If Picture1.Picture = Picture2.Picture..." et pleins d'autres trucs ET CA MARCHE PAS!!!!
Merci d'avance
|
|
vendredi 15 juin 2001 à 22:44:01 |
Re : Comparaison d'images???
Bendes
|
Merci bcp, j'v regarder ça à mon aise...
-------------------------------
Réponse au message :
-------------------------------
je n'ai l'ai jamais fait , mais je pense qu'il fait decomposer l'image pixels par pixels.
moi, j'ai repris un bout de prog qui ressemblait a:
Private Declare Function SetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
Private Declare Function StretchBlt% Lib "GDI32" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
et dans la foulee voila une fonction qui recopie une image pour en donner son negatif, adapte pour pas recopier mais comparer, ca devrait aller
Sub Negative(Pic1 As PictureBox, Pic2 As PictureBox)
Dim c1x As Integer, c1y As Integer
Dim p1x As Integer, p1y As Integer
c1x = Pic1.ScaleWidth - 1
c1y = Pic1.ScaleHeight - 1
pic1hDC% = Pic1.hDC
pic2hDC% = Pic2.hDC
For p1y = 0 To c1y
For p1x = 0 To c1x
c0& = blanc - GetPixel(pic1hDC%, p1x, p1y)
If c0& <> -1 Then xret& = SetPixel(pic2hDC%, p1x, p1y, c0&)
Next
T% = DoEvents()
Next
End Sub
-------------------------------
Réponse au message :
-------------------------------
J'voudrais pouvoir comparer deux images par n'importe quel moyen...
J'ai essayé "If Picture1.Picture = Picture2.Picture..." et pleins d'autres trucs ET CA MARCHE PAS!!!!
Merci d'avance
|
|
samedi 16 juin 2001 à 01:44:00 |
Re : Comparaison d'images???
louis
|
finalement j'ai eu besoin de le faire, voila la solution:
Sub TransformerCouleurs(pic1 As PictureBox, pic2 As PictureBox) ' tes 2 images a comparer
Dim c1x As Integer, c1y As Integer
Dim p1x As Integer, p1y As Integer
Dim test As Boolean
c1x = pic1.ScaleWidth - 1 'largeur image
c1y = pic1.ScaleHeight - 1 'hauteur image
pic1hDC% = pic1.hDC 'je crois que c'est pour ouvrir
pic2hDC% = pic2.hDC 'les images
test = True
For p1x = 0 To c1x
For p1y = 0 To c1y'boucle pour tester chaq pixel
c1& = GetPixel(pic1hDC%, p1x, p1y)
c2& = GetPixel(pic2hDC%, p1x, p1y)
If c1& <> c2& Then test = False
Next
T% = DoEvents()'permet de traiter une autre interruption
Next
TxtInformations(0).Text = test 'pour ecrire dans une boite de texte qu'il faut definir au prealable
-------------------------------
Réponse au message :
-------------------------------
Merci bcp, j'v regarder ça à mon aise...
-------------------------------
Réponse au message :
-------------------------------
je n'ai l'ai jamais fait , mais je pense qu'il fait decomposer l'image pixels par pixels.
moi, j'ai repris un bout de prog qui ressemblait a:
Private Declare Function SetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
Private Declare Function StretchBlt% Lib "GDI32" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
et dans la foulee voila une fonction qui recopie une image pour en donner son negatif, adapte pour pas recopier mais comparer, ca devrait aller
Sub Negative(Pic1 As PictureBox, Pic2 As PictureBox)
Dim c1x As Integer, c1y As Integer
Dim p1x As Integer, p1y As Integer
c1x = Pic1.ScaleWidth - 1
c1y = Pic1.ScaleHeight - 1
pic1hDC% = Pic1.hDC
pic2hDC% = Pic2.hDC
For p1y = 0 To c1y
For p1x = 0 To c1x
c0& = blanc - GetPixel(pic1hDC%, p1x, p1y)
If c0& <> -1 Then xret& = SetPixel(pic2hDC%, p1x, p1y, c0&)
Next
T% = DoEvents()
Next
End Sub
-------------------------------
Réponse au message :
-------------------------------
J'voudrais pouvoir comparer deux images par n'importe quel moyen...
J'ai essayé "If Picture1.Picture = Picture2.Picture..." et pleins d'autres trucs ET CA MARCHE PAS!!!!
Merci d'avance
|
|
jeudi 6 mars 2003 à 22:59:43 |
Re : Comparaison d'images???
wilyd
|
wilyd
j ai tiré 2 pictures d une webcam , elle se rafraichissent toutes 2 seconde , j ai utilisé le bout de code comme dessous , mais j ai un message de depassement de capacité avec les lignes
je veux comparer les 2 images mais ....
> pic1hDC% = pic1.hDC 'je crois que c'est pour ouvrir
> pic2hDC% = pic2.hDC 'les images
??? que puis je faire !!!
Sauvez moi please,
-------------------------------
Réponse au message :
-------------------------------
>
> finalement j'ai eu besoin de le faire, voila la solution:
>
> Sub TransformerCouleurs(pic1 As PictureBox, pic2 As PictureBox) ' tes 2 images a comparer
> Dim c1x As Integer, c1y As Integer
> Dim p1x As Integer, p1y As Integer
> Dim test As Boolean
> c1x = pic1.ScaleWidth - 1 'largeur image
> c1y = pic1.ScaleHeight - 1 'hauteur image
> pic1hDC% = pic1.hDC 'je crois que c'est pour ouvrir
> pic2hDC% = pic2.hDC 'les images
> test = True
> For p1x = 0 To c1x
> For p1y = 0 To c1y'boucle pour tester chaq pixel
> c1& = GetPixel(pic1hDC%, p1x, p1y)
> c2& = GetPixel(pic2hDC%, p1x, p1y)
> If c1& <> c2& Then test = False
> Next
> T% = DoEvents()'permet de traiter une autre interruption
> Next
> TxtInformations(0).Text = test 'pour ecrire dans une boite de texte qu'il faut definir au prealable
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Merci bcp, j'v regarder ça à mon aise...
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> je n'ai l'ai jamais fait , mais je pense qu'il fait decomposer l'image pixels par pixels.
> moi, j'ai repris un bout de prog qui ressemblait a:
> Private Declare Function SetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Long
> Private Declare Function GetPixel Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
> Private Declare Function StretchBlt% Lib "GDI32" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
>
> et dans la foulee voila une fonction qui recopie une image pour en donner son negatif, adapte pour pas recopier mais comparer, ca devrait aller
>
> Sub Negative(Pic1 As PictureBox, Pic2 As PictureBox)
> Dim c1x As Integer, c1y As Integer
> Dim p1x As Integer, p1y As Integer
> c1x = Pic1.ScaleWidth - 1
> c1y = Pic1.ScaleHeight - 1
> pic1hDC% = Pic1.hDC
> pic2hDC% = Pic2.hDC
> For p1y = 0 To c1y
> For p1x = 0 To c1x
> c0& = blanc - GetPixel(pic1hDC%, p1x, p1y)
> If c0& <> -1 Then xret& = SetPixel(pic2hDC%, p1x, p1y, c0&)
> Next
> T% = DoEvents()
> Next
> End Sub
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> J'voudrais pouvoir comparer deux images par n'importe quel moyen...
>
> J'ai essayé "If Picture1.Picture = Picture2.Picture..." et pleins d'autres trucs ET CA MARCHE PAS!!!!
>
> Merci d'avance
>
>
>
|
|
mercredi 21 avril 2004 à 09:52:17 |
Comparaison entre 2 images
mhd_youssef
|
youssef EL GHAZIOUI
Je voudrais pouvoir comparer deux images par n'importe quel moyen en delphi si tu pourras m'aider, les 2 images sont stockées ds un fichiers chaque seconde.
merci d'avance mon email c: mhd_youssef@yahoo.fr
|
|
Cette discussion est classée dans : images, comparaison, picture
 Répondre à ce message
 Sujets en rapport avec ce message
Urgent: Imprimer deux images superposées ?? [ par Franck ]
BonjourVoici mon problemeJ'ai une picture box dont le .picture contient une image représentant l'axe d'un graph.A l'intétieur de cette imagebox j'ai i
Image dans le prog [ par szteam ]
Bonjour,Voila ce que je voudrait et ce que j'ai :j'ai une picture box dans laquelle je charge des images les unes a la suite des autres avec : r1.Pict
Comparaison d'images [ par bebertos ]
Quelqu'un connait-il un moyen de comparer 2 photos pour savoir si elles sont identiques ?
Tableau d'images [ par schub1015 ]
Bonjour,j'ai un pb avec un tableau d'images. En effet, je voudrais créer une sorte d'undo sur mon objet PictureBox.Pour avoir une solution simple, j'a
Controle Image et Picture [ par CCJ ]
bonjour!dans les controles images il y a la propriete stretch le probleme et que j'aimerai retrouve la meme propriete dans le controle picture y a t-i
Shapes dans VB Excel [ par morickno ]
J'insert en automatique des images en utilisant des shapes.j'ai 3 Shapes nommées Picture 1;Picture 2;Picture 3et 2 autres nommées Autres 1; Autres 2je
Changer l'image d'un Picture Box [ par mast ]
Bonsoir!Mon projet est enregistré dans C:\VB\Project1\ et toutes mes images sont dans le sous-répertoire \images\. J'essais de changer l'image pour un
Drop VB6 [ par mteva ]
Salut, j'ai : 1 form,12 images,1 picture box, et je veux pouvoir déposer des images sur ce picture box. (1 , 2 , ou 12 ). Ca fait 3 semaines que je ch
Comparaison entre deux images, détection de mouvements [ par Cyberdevil ]
Hello,Est ce que c'est possible en vb de définir une zone sur un picture box qui est réactualisée toutes les secondes par une nouvelle photo provenant
Lire une video dans une picture box [ par CtHuLhU50 ]
Salut a tous !J'aurais voulu savoir comment lire une video dans une picture box ou comment lire une video et saerver la video images par images en bmp
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|