Ver Mensaje Individual
  #5  
Antiguo 24-12-2006
Avatar de PiornoCKA&G
PiornoCKA&G PiornoCKA&G is offline
Miembro
 
Registrado: dic 2006
Ubicación: Guantanamo-Cuba
Posts: 20
Reputación: 0
PiornoCKA&G Va por buen camino
Via lenta pero sencilla

Prueba si esto te sirve:
Código Delphi [-]
...
// Importante: Una imagen es una matrix bidimensional de colores 
//Si la escala entre las dos imagen son diferentes ya no son iguales
if  (Image1.Picture.Bitmap.Width = Image2.Picture.Bitmap.Width)  and
   (Image1.Picture.Bitmap.Height = Image2.Picture.Bitmap.Height) then
for i := 1 to Image1.Picture.Bitmap.Width do
    begin
        for j := 1 to  Image1.Picture.Bitmap.Height do
            begin
                //Si un solo pixel es diferente entonces no son iguales
                if Image1.Picture.Bitmap.Canvas.Pixels[i,j] := 
                   Image2.Picture.Bitmap.Canvas.Pixels[i,j]  then 
                   Iguales := False; //Variable boolean predefinida
              end; 
    end;
//Y ahi lo tienes
Responder Con Cita