[Sk1f]

Здравствуйте программеры. Делаю дипломный проект с видео, скриншотами и детектированием дефектов. Все, вроде бы, получается, но вот проблема, фильтр выделения границ с конволюционной матрицей не выходит. Сделал маленькую прогу, только с фильтром, чтобы выяснить проблему. Но там тоже самое, вместо выделения границ, получается бред какой-то. Вот эта маленькая прога:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, dialogs,
   jpeg, DSPack, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y:integer;
  u:PbyteArray;
implementation

{$R *.dfm}
procedure Tform1.button1click (Sender: TObject);
begin
image1.Picture.bitmap.LoadFromFile('d:\123.jpg');
end;
procedure Tform1.button2click (Sender: TObject);
begin
for y:=0 to image1.height-1 do
  begin
    for x:=0 to image1.width-1 do
    begin

 Image1.canvas.Pixels[X, Y]:=
                      (((-1)*Image1.canvas.Pixels [x-1,y+1])+
                      ((-1)*Image1.canvas.Pixels[x,y+1])+
                      ((-1)*Image1.canvas.Pixels[x+1,y+1])+
                      ((-1)*Image1.canvas.Pixels[x-1,y])+
                      ((8)*Image1.canvas.Pixels[x,y])+
                      ((-1)*Image1.canvas.Pixels[x+1,y])+
                      ((-1)*Image1.canvas.Pixels[x-1,y-1])+
                      ((-1)*Image1.canvas.Pixels[x,y-1])+
                      ((-1)*Image1.canvas.Pixels[x+1,y+1])) div 1+128;

 end;
  end;
  end;
end.

Подскажите, что не так, а то всю голову уже сломал себе...

[Pyro]

если рисовать на другом image

[Sk1f]

ВО. Уже что-то похожее, но все равно какие-то непонятные шумы, а должно получиться что-то вроде

[Pyro]

это по getrvalue от цвета

[Sk1f]

это просто надо сначала в ч/б перевести , а потом фильтр применять, как я понял, да?
И еще вопрос, как у вас нормально получается загружать любой JPG, а то мне пишет "Bitmap image is not valid". Пробовал Image2:tjpegimage, но тогда image1.canvas.pixels[x,y] не может выполняться, т.к. canvas с bitmap только работает?

[Pyro]

bmp загружаю
чб просто выравнивает r, g, b
в формуле надо использовать не цвет, а getrvalue() от цвета
+ там ошибка вроде в формуле

[Sk1f]

Ясно, а не можешь, код показать исправленный?

[Pyro]

PHP код:

type
  PRGB32Array = ^TRGB32Array;
  TRGB32Array = packed array[0..MaxInt div SizeOf(TRGBQuad)-1] of TRGBQuad;


procedure TForm1.Button1Click(Sender: TObject);
var s0, s1, s2, sr: PRGB32Array;
var x,y,K:integer; c: tcolor;
begin
  Image1.Picture.Bitmap.PixelFormat := pf32bit;
  Image2.Picture.Bitmap.PixelFormat := pf32bit;

  K := UpDown1.Position;

  Image2.Picture.Bitmap.Canvas.FillRect(Image2.Picture.Bitmap.Canvas.ClipRect);

  for y:=1 to image1.height-2 do
  begin
    s0 := Image1.Picture.Bitmap.ScanLine[y-1];
    s1 := Image1.Picture.Bitmap.ScanLine[y];
    s2 := Image1.Picture.Bitmap.ScanLine[y+1];
    sr := Image2.Picture.Bitmap.ScanLine[y];
    for x:=1 to image1.width-2 do
    begin

      sr[x].rgbRed :=(((-1)*s2[x-1].rgbRed)+
                      ((-1)*s2[x].rgbRed)+
                      ((-1)*s2[x+1].rgbRed)+
                      ((-1)*s1[x-1].rgbRed)+
                      ( (8)*s1[x].rgbRed)+
                      ((-1)*s1[x+1].rgbRed)+
                      ((-1)*s0[x-1].rgbRed)+
                      ((-1)*s0[x].rgbRed)+
                      ((-1)*s0[x+1].rgbRed)) div K+128;

       sr[x].rgbGreen := sr[x].rgbRed;
       sr[x].rgbBlue := sr[x].rgbRed;   

     end;
  end;
end; 


[Sk1f]

Да прибудет с тобой сила))))) Спасибо большое, ща разбираться буду. Очень помог. Если у тебя есть сайты, могу разместить ссылки на них на своих сайтах в честь благодарности))) Если что, в личку пиши...