Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-03-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: Jul 2004
Ubicación: Salta, Argentina
Posts: 5.598
Poder: 20
Delphius Va camino a la fama
Casos de Prueba en DUnit: Comparar imágenes

Buenas foristas,
Tengo permiso y recomendación de profesor guia para hacer los casos de prueba con DUnit.
El problema es que no encuentro entre la documentación algo que me indique de como puedo declarar casos de pruebas pero que sirvan para imágenes.
Por ejemplo, tengo una imagen A a la que se le aplica una función cualquiera. Y tengo otra imagen B (que correpondería al resultado de aplicación la función sobre A.

En DUnit se puede hacer funciones como ChekEquals o algo asi.... no me acuerdo bien como era pero todo lo que he conseguido entender es con números... por eso es que emito esta simple pregunta: ¿Es posible hacer casos de pruebas adaptados a imágenes (TPicture o TImage, o TBitmap)?

Desde ya muchas gracias.
Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #2  
Antiguo 20-03-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: Jul 2004
Ubicación: Salta, Argentina
Posts: 5.598
Poder: 20
Delphius Va camino a la fama
Buenas.
No si se habrá entendido lo que intento hacer:
Tengo el DUnit y dos imágenes. A la imagen A se le aplica una función específica y tengo otra imagen B (hecha a mano) que representa el resultado de aplicar la función a la imagen original.

Estoy implementando los casos de prueba con DUnit... y ando buscandole la vuelta para ver de que manera se puede usar a estas imágenes en DUnit para comparar los resultados.

Yo quisiera simplemente hacer que DUnit me compare estas imagenes.
Con DUnit se pueden comparar números, string, fórmulas, ... ¿Habría manera de que con DUnit consiga esto? O me tendré que hacer una función que compare pixel a pixel entre A y B.

Desde ya... muchas gracias.
Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #3  
Antiguo 20-03-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: Feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 18
seoane Va por buen camino
De DUnit no tengo ni idea, pero para compara dos imágenes, puedes usar esto:
http://www.clubdelphi.com/foros/show...92&postcount=8
Responder Con Cita
  #4  
Antiguo 21-03-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: Jul 2004
Ubicación: Salta, Argentina
Posts: 5.598
Poder: 20
Delphius Va camino a la fama
Gracias seoane...

Gracias seoane por ayudar. Miré el código que expones... yo uso una función algo parecida. No se me ocurrió lo de CompareMem().

Lo ideal sería emplear DUnit... ya que me genera las pruebas y sus resultados, solito... solito. Pero si no se puede... usaré la función que tu amablemente comentas (que es muy seguro más eficiente que la mia).

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #5  
Antiguo 23-03-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: Jul 2004
Ubicación: Salta, Argentina
Posts: 5.598
Poder: 20
Delphius Va camino a la fama
Gracias seoane,... si no fuera por tí... no se me hubiera ocurrido ver lo de CompareMem.
Recordé que la clase abstracta TTestCase de Dunit tiene implementado una función CheckEqualsMem. Me fijé en el código y noto que hace uso de CompareMem... y bueno se me prendió la lamparita.

Esto es la prueba correspondiente para determinar si dos imagenes son iguales con DUnit:

Código Delphi [-]
unit UTest;

interface

uses QExtCtrls, Graphics, TestFramework;

type
  TCasodePrueba = class(TTestCase)
  private
    Img1, Img2: TPicture;
  protected
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure PruebaIguales;
  end;

implementation

// esto para iniciar las pruebas....
procedure TCasodePrueba.SetUp;
begin
  Img1 := TPicture.Create;
  img1.LoadFromFile('Directorio de la imagen 1');
  Img2 := TPicture.Create;
  img2.LoadFromFile('Directorio de la imagen 2');
end;

// esto una vez que concluyen todas la pruebas
procedure TCasodePrueba.TearDown;
begin
  Img1.Free;
  img2.Free;
end;

// esta es la única prueba que tiene. Es ilustrativo
procedure TCasodePrueba.PruebaIguales;
var
    i,j: integer;
begin
  // esto para dimensiones... si no son iguales. Falla. en otro caso continua
  check((Img1.Bitmap.Width = Img2.Bitmap.Width) AND (img1.Height = 
// le sacamos al tamaño de memoria a comparar....
Img2.Bitmap.Height),'No tienen igual tamaño');
  case Img1.Bitmap.PixelFormat of
      pf16bit: j:= (img1.Bitmap.Width*2) -1;
      pf24bit: j:= (img1.Bitmap.Width*3) -1;
      pf32bit: j:= (img1.Bitmap.Width*4) -1;
      else j:= img1.Bitmap.Width -1;
    end;
// comparamos.... y si alguna linea es diferente... se falla. en otro caso se continua hasta que falle o termina. Termina = OK  
for i := 0 to img1.Bitmap.Height - 1 do
    CheckEqualsMem(Img1.Bitmap.ScanLine[i],Img2.Bitmap.ScanLine[i],j,'No son iguales');
end;

initialization
 // registramos el caso de prueba y dejamos al trabjo a DUnit
 TestFramework.RegisterTest(TCasodePrueba.Suite); 

end.

Espero que a mas de uno le sirva.
Saudos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Pequeña prueba!! RONPABLO Humor 14 10-04-2006 20:25:31
Prueba Archer Humor 5 28-09-2005 22:46:42
Comparar Imagenes javikanin Gráficos 0 12-11-2004 15:34:20
...prueba de alcoholemia ???... Jure Humor 0 23-07-2004 15:09:21


La franja horaria es GMT +2. Ahora son las 05:46:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi