• Jueves 3 de Julio de 2025, 06:54

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - zany_666

Páginas: 1 [2]
26
Delphi / Re: Empezando con Delphi e Imagenes
« en: Domingo 23 de Agosto de 2009, 23:34 »
He usado pen.color:=clBlue para poner color azul.Gracias! Otra cosa he usado rectangle para hacer un rectangulo, pero puede hacerse de forma que sea sin relleno?  :)

EDIT: Solucionado! Con Brush.Style:=bsClear; no pone relleno  :lol:

27
Delphi / Re: Empezando con Delphi e Imagenes
« en: Sábado 22 de Agosto de 2009, 18:45 »
Lo he comprobado y he tenido que cambiarlo. Había cambiado la anchura por la altura, por eso me recorria hasta aproximadamente la mitad:

CODIGO:
For y:=0 to miImagen.Picture.Bitmap.Height -1 do
          For x:=0 to miImagen.Picture.Bitmap.Width - 1 do BEGIN
                    color_pixel:=GetRValue(miImagen.Picture.Bitmap.Canvas.Pixels[x,y]);
                    if color_pixel=0 then begin
                               imagenDilatada.Canvas.MoveTo(x,y);
                               imagenDilatada.Canvas.LineTo(x+5,y);
                     end;{if}
          end;{for}

Habia cambiado las señaladas en rojo, el que he puesto es correcto.

Por cierto, habría otra forma de hacer lo mismo? Es que he escuchado que habia una funcion (creo que era getLine, pero no recuerdo) que almacenaba todos los pixeles de una fila o algo asi, para reducir el tiempo en que se realiza el procedimiento, porque me tarda unos segundos y me gustaría poder reducirlo.
Y otra cosilla, como puedo cambiar el color de la linea (ahora me recuadra las palabras pero en negro) usando lineTo.

Gracias!

28
Delphi / Re: Empezando con Delphi e Imagenes
« en: Viernes 21 de Agosto de 2009, 18:53 »
Ala que estoy empezando jajajaja.  :nosweat:

Por cierto, lo he solucionado ^^ gracias. Lo que hecho ha sido poner un ARRAY OF ARRAY OF integer y asignarle tamaño con la función setLeght, un tamaño aproximado de 1700 x 1500 (el tamaño de mi imagen).
Pero me ha surgido otro problema:
             - La imagen que abro es un texto
             - Lo que debo hacer con esa imagen es recuadrar cada una de las palabras mediante segmentación.
             - Para poder segmentarlas uso un algoritmo de componentes conexas, esto lo que hace es etiquetarme cada pixel con una etiqueta y los pixeles con        una misma etiqueta pertenecerá a la misma palabra.
             - Antes de eso, debo hacer que las letras de una misma palabra estén unidas para que el algoritmo me lo reconozca como una unidad
             - Para ello, uso una técnica llamada dilatación, que he implementado en Delphi. Lo que hace es "engordar" cada una de las letras haciendo que las letras de una misma palabra se junten.

Mi problema es que lo hace correcto hasta que llega más o menos al punto intermedio, donde no hace absolutamente nada. Para hacer esto me recorro la imagen con 2 FOR pero no se porque llega hasta un punto y se "para". En un principio las variables de los bucles eran integer, pero puse longint por si podia resolver el problema pero no fue asi. Como puedo hacer para que me recorra la imagen entera?¿?

Espero que podais ayudarme, gracias. :ayuda:

29
Delphi / Empezando con Delphi
« en: Jueves 20 de Agosto de 2009, 17:55 »
Hola! Estoy empezando con Delphi, haber si alguien me puede ayudar con tratamiento de imágenes usando Delphi. La sintaxis la llevo bien, ya que es como Pascal. Mi problema esta en que tengo que usar una matriz muy grande y me da un error de overflow (esta matriz la necesito porque tengo que etiquetar cada pixel de una imagen en blanco y negro mediante un algoritmo) Habia pensado en usar un vector de vectores... pero no se muy bien como implementarlo. También he visto algo sobre la función setLenght que he intentado usar. Gracias adelantadas. Un saludo  :)

Páginas: 1 [2]