SoloCodigo

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  

Ala que estoy empezando jajajaja.  

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.

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!

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  

Deberías haber creado un tema nuevo en el foro porque esta pregunta no tiene nada que ver con la original.

Pues nada, a lo nuestro:

Código: Text

1.  
2. var
3.    registro:TRegistro;
4.    f:file of TRegistro;
5. begin
6.     AssignFile (f,'fichero.fic');
7.     Reset (f);
8.     while not EOF(f) do begin
9.            Read (f,registro.campo1);
10.            campoAuxiliar:=registro.campo1;     {Aqui, seria correcto: campoAuxiliar:=campo1; ???}
11.            Read (f,registro.campo2);
12.            campoAuxiliar2:=registro.campo2;
13. end;
14.  
15.  

Esta correcto?¿? Es que las instrucciones read creo que no están bien. He googleado pero no he visto ejemplos con registros de forma clara.

Pues no, no es así. Read() cuando lee un archivo con tipo lee un registro completo y no "campo a campo". Y luego de cada lectura avanza el puntero al siguiente registro, estonces según tu código deberías hacer:

Saludos.

Gracias!

De nada

Mis disculpas. Pense que al ser de Delphi.. en fin pensé que más post serian molestos    me van surgiendo dudas de diferentes tipos...

Por el contrario, amigo. Es mejor cuando cada tema tiene un tema específico porque así el visitante ocasional puede ver en la lista si su duda o interés está allí, de lo contrario tendría que navegar página tras página si los temas estuvieran mezclados en un solo tema.

Un saludo.