elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  comparar Imagenes
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: comparar Imagenes  (Leído 4,429 veces)
yalosabes

Desconectado Desconectado

Mensajes: 87


Ver Perfil
comparar Imagenes
« en: 21 Marzo 2006, 19:40 pm »

Holas a todos, tenia una duda  :huh: : se puede comparar 2 imagenes ? porke pensaba en hacer un programa de vigilancia con mi cam , o kaso contrario alguna forma que mi cam detecte movimientos. Gracias  ;D


En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: comparar Imagenes
« Respuesta #1 en: 21 Marzo 2006, 19:48 pm »

Si que se puede, te paso el kode:

Código:
Dim a As String
Dim b As String
Dim Rutaimagen As String
Dim Rutaimagen2 As String
Rutaimagen = "C:\image.jpg"
Open Rutaimagen For Binary As #1
a = Space(FileLen(Rutaimagen))
Get #1, , a
Close #1

Open Rutaimagen2 For Binary As #1
b = Space(FileLen(Rutaimagen2))
Get #1, , b
Close #1

If a = b Then
MsgBox "Estas Imagenes son iguales"
Else
MsgBox "Estas imaganes son diferentes"
End If

Espero ek te sirva....

Salu2

Hendrix




En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
yalosabes

Desconectado Desconectado

Mensajes: 87


Ver Perfil
Re: comparar Imagenes
« Respuesta #2 en: 21 Marzo 2006, 19:54 pm »

no entiendo ?? me podrias poner los comentarios pls solo entiendo lo de las variables pls, porfis no comprendo mucho, gracias
En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: comparar Imagenes
« Respuesta #3 en: 21 Marzo 2006, 19:56 pm »

xD xD y tu kieres hacer un Centinela para la cam??? xD xD

Weno, te lo expliko, lo que hace este programa es abrir las dos imagenes que kieres mirar si son iguales, las abre en binario.

Luego las kompara, si son iguales te dice: son iguales, y si no lo son te dice: no son iguales...xD

Lo entienes???? es muy facil....

Salu2

Hendrix

En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: comparar Imagenes
« Respuesta #4 en: 21 Marzo 2006, 20:05 pm »

Eso es con archivos guardados en la pc, si queres trabajar con imagenes en tiempo de ejecucion podes usar la api GetPixel
Código:
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
Picture1.ScaleMode = vbPixels
MsgBox GetPixel(Picture1.hdc, 10, 10)
End Sub

Eso te daria el color del pixel que hay en el Picutre1 en las coordenadas 10, 10.
Te podes fijar en dos imagenes diferentes las mismas coordenadas, asi si son diferentes, el color va a ser distinto.

Saludos.-
En línea

yalosabes

Desconectado Desconectado

Mensajes: 87


Ver Perfil
Re: comparar Imagenes
« Respuesta #5 en: 22 Marzo 2006, 00:46 am »

gracias aver primero probare el primer kodigo, es que no comprendia onde iba la seguna imagen seria : "Rutaimagen2= "C:\image2.jpg"" , solo me faltaba ver eso pa entenderlo , gracias nos vimos
En línea

Gorky


Desconectado Desconectado

Mensajes: 770



Ver Perfil WWW
Re: comparar Imagenes
« Respuesta #6 en: 22 Marzo 2006, 14:21 pm »

Es cierto que el codigo dado por _Hendrix_ sirve para comparar dos imagenes. Pero eso en la vida real no te va a servir ya que cuando tu recibes una imagen con la cam, y aunque no haya habido movimiento, la siguiente no es exactamente identica. Siempre hay un minimo cambio.
En línea

Kizar


Desconectado Desconectado

Mensajes: 1.325


kizar_net


Ver Perfil
Re: comparar Imagenes
« Respuesta #7 en: 22 Marzo 2006, 21:30 pm »

Lo que tienes que hacer es comprarar cada pixel como a dicho NYlOn, usando 2 For y dar un margen de error en el color de un 20% porke siempre los colores de la cam cambian un poko.

Salu2
En línea

LeandroA
Moderador
***
Desconectado Desconectado

Mensajes: 760


www.leandroascierto.com


Ver Perfil WWW
Re: comparar Imagenes
« Respuesta #8 en: 23 Marzo 2006, 00:28 am »

Hola yo estoy haciendo exactamente lo mismo osea una alrma con una webcam y me funciona muy bien, no te paso el proyecto porque no lo termino aun y es un verdadero quilombo de codigo pero te pongo parte del codigo donde comparo las imagenes
de todas formas hice algunas automatizaciones ya que la webcam va cambiando su gama a desde que se inicia entonces tienes que hacer que la comparacion tenga ciertos rangos de diferencia (es algo dificil de explicar)

Sub Calcular()
On Error Resume Next
Dim Contador As Long, x As Long, y As Long
For x = 0 To Picture1.Width Step Picture1.Width / 100
    For y = 0 To Picture1.Height Step Picture1.Height / 100
        If GetPixel(Picture1.hdc, x, y) < GetPixel(Picture2.hdc, x, y) - 1500000 Or GetPixel(Picture1.hdc, x, y) > GetPixel(Picture2.hdc, x, y) + 1500000 Then
            Contador = Contador + 1
        End If
    Next
Next
ProgressBar1.Value = ProgressBar1.Min
If Contador > ProgressBar1.Max Then Contador = ProgressBar1.Max
ProgressBar1.Value = Contador
If Slider1.Value <= ProgressBar1.Value + 10 Then Slider1.Value = Slider1.Value + 5
If Contador >= Slider1.Value Then
    Slider1.Value = Slider1.Value + 10
    sndplaysound "C:\Archivos de programa\Windows NT\Pinball\SOUND36.WAV", SND_NODEFAULT + SND_ASYNC   'App.Path &
    Image1(3) = Image1(2)
    '-------***********-------
    If Form2.ChkVideo Then Grabar 'comienza a grabar el video
    '-------***********-------
Else
    Image1(3) = Image1(1)
    If Slider1.Value > ProgressBar1.Value + 100 Then Slider1.Value = Slider1.Value - 10
End If
End Sub
En línea

yalosabes

Desconectado Desconectado

Mensajes: 87


Ver Perfil
Re: comparar Imagenes
« Respuesta #9 en: 23 Marzo 2006, 03:37 am »

sorry x mi ignorancia , pero como haces para grabar lo de tu cam??, es que soy inexperto ( pero con muxas ganas de aprender). Gracias spero su respuesta
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
descargar y comparar
Programación Visual Basic
CAR3S? 4 2,526 Último mensaje 18 Marzo 2011, 03:25 am
por 79137913
Microsoft: comparar IE9 y Firefox 4 es como comparar “manzanas y naranjas” « 1 2 »
Noticias
wolfbcn 15 8,054 Último mensaje 27 Marzo 2011, 04:35 am
por Foxy Rider
Comparar líneas de archivos [vbs]
Scripting
adberik2005 0 3,497 Último mensaje 17 Junio 2011, 18:17 pm
por adberik2005
Comparar imagenes y que haga cliks en ellas.
Programación C/C++
mendrugo123 5 3,869 Último mensaje 6 Agosto 2013, 23:45 pm
por MeCraniDOS
Comparar Imagenes y encontrar similitudes. « 1 2 »
Java
footer 17 14,669 Último mensaje 12 Septiembre 2017, 06:37 am
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines