Identifica��o e leitura de imagens

Question

Trabalho com Delphi 5 e estou com um projeto de leitura de imagens e preciso fazer a leitura de duas formas: 1- Tenho um quadrado amarelo de arestas pretas e ao redor dele tudo � cinza, quando o ponte...

Marcelo Saviski · Answer

vixi, isso � um pouco complicado, mas vamos l�:

para a 1� d�vida fa�a o seguinte:

no eventoOnMouseMove do form fa�a:

Label1.Caption :=�#� +  IntToHex(Canvas.Pixels[X, Y], 6);

a 2� � mais complicada:

tente assim (� um modo lento, mas serve de exemplo)

var
  i, j: Integer
  Cor1, Cor2: TColor;
  R, G, B: Boolean;
  Dif: Boolean;
begin
  for j := 0 to ClientWidht - 1 do
  begin
    for i := 0 to ClientHeight - 1 do
    begin
      Cor1 := Canvas.Pixels[i, j];
      Cor2 := Canvas.Pixels[i +1, j + 1];
      Dif := Cor 1 <> Cor2;      
      if Dif then
        Canvas.Pixels[i, j] := clBlack;
    end;
end;

A da dist�ncia ficou sem solu��o (ainda)

OBS: n�o testei nenhuma das fun��es

Marconi · Answer

O que eu acho que voce precisa para contornar e calcular a dist�ncia seria manter duas variaveis globais TControl que guardiam as propriedades dos dois quadrados.

Para contornar basta utilizar as fun��es
Canvas.LineTo(x,y)
e Canvas.movTo(x,y)
os x e y seriam dados pelas propriedades top, height, left e width de cada um dos quadrados.

Para calcular a dist�ncia em pixeis bastaria verificar qual est� mais � direita ou mais abaixo, comparando as propriedades top e left.

A distancia entre eles dependeria da posi��o que os achasse. Se estiverem em diagonal teria que aplicar pitagoras para encontrar a hipotenusa, que seria ent�o a dist�ncia.

� meio complicado para montar mas a id�ia � esta.

Marconi

Ricardo-op · Answer

Agrade�o pelas respostas, mas esqueci de informar que estas imagens s�o scaneadas e n�o desenhas no form do Delphi. (O melhor seria scanear no formato JPG ou BMP)Obrigado mais uma vez....

Marcelo Saviski · Answer

mas no fim, voc� vai ter que escanear e exibir a imagem em um componente Image n�o �?...

Ricardo-op · Answer

Sim, de qualquer forma a imagem snaneada ser� passada para o componente image. Mas, desculpem-me por minha ignor�ncia nesta �rea, mas supondo que a imagem scaneada seja uma radiografia da m�o, preciso identificar o branco e o preto e contornar a figura branca que representam os ossos. Com os c�digos acima apresentados isso � poss�vel?

Jaguarnet7 · Answer

Vc deve fazer testes para ver as faixa de cores que os ossos aparecem normalmente. Sabendo isso ira usar a cor como delimitador da imagem.Mas,oq vc prentende, recortar a imagem do osso???...

Marcelo Saviski · Answer

Veja como isso funciona:digamos que vc tenha a imagem, fundo preto com um quadrado verde no centroseria algo + ou - assim:(cada # � um pixel da imagem)[color=green:57c8442a3e][/color:57c8442a3e][color=green:57c8442a3e][/color:57c8442a3e][color=green:57c8442a3e][/color:57c8442a3e]e quer se gerar algo assim:[color=red:57c8442a3e][/color:57c8442a3e][color=red:57c8442a3e][/color:57c8442a3e][color=green:57c8442a3e][/color:57c8442a3e][color=red:57c8442a3e][/color:57c8442a3e][color=red:57c8442a3e][/color:57c8442a3e][color=green:57c8442a3e][/color:57c8442a3e][color=red:57c8442a3e][/color:57c8442a3e][color=red:57c8442a3e][/color:57c8442a3e][color=green:57c8442a3e][/color:57c8442a3e][color=red:57c8442a3e][/color:57c8442a3e][color=red:57c8442a3e][/color:57c8442a3e]o que se precisa fazer � passar pixel por pixel, e verificar se o do lado � diferente, se for, deixar ele vermelhoassim:[code:1:57c8442a3e]for Y := 0 to Height - 1 do  for X := 0 to Width - 1 do    if Pixels&#91;X, Y&93; <> Pixels&91;X + 1, Y + 1&93; then      Pixels&91;X, Y&93; := clRed;[/code:1:57c8442a3e]a propriedade Pixels pertence ao Canvas, para usar o Canvas voc� precisa de uma Imagem Bitmapfa�a esse teste bem simples:coloque um Image e um bot�o, carregue um Bitmep qualquer que tenha ai, de preferencia com cores bem contrastantes e com uma cor de fundo uniforme, e coloque esse c�digo no Bot�o:[code:1:57c8442a3e]for Y := 0 to Height - 1 do  for X := 0 to Width - 1 do    if Image.Picture.Bitmap.Canvas.Pixels&91;X, ...