ФИЛЬТР СОБЕЛЯ DELPHI

Фильтр Собеля является одним из самых известных алгоритмов обнаружения границ в изображениях. Он был разработан и назван в честь Ирвина Собеля в 1968 году. Данный фильтр помогает улучшить качество изображения, выделив границы объектов. Алгоритм основан на нахождении производных в вертикальном и горизонтальном направлениях пикселей изображения и объединении результатов.

Delphi сочетает в себе простоту, высокую производительность и мощную функциональность, что делает его подходящим инструментом для работы с изображениями. В Delphi можно реализовать фильтр Собеля с помощью матричных операций над пикселями.

// Пример реализации фильтра Собеля в Delphiconst SobelX: array [0..2, 0..2] of Integer = ((-1, 0, 1), (-2, 0, 2), (-1, 0, 1)); SobelY: array [0..2, 0..2] of Integer = ((1, 2, 1), (0, 0, 0), (-1, -2, -1));procedure ApplySobelFilter(AImage: TBitmap);var X, Y, SumX, SumY: Integer; NewImage: TBitmap; Pixel: TColor;begin NewImage := TBitmap.Create; try NewImage.Assign(AImage); for X := 1 to AImage.Width - 2 do begin for Y := 1 to AImage.Height - 2 do begin SumX := 0; SumY := 0; for i := 0 to 2 do begin for j := 0 to 2 do begin Pixel := AImage.Canvas.Pixels[X + i - 1, Y + j - 1]; SumX := SumX + (GetRValue(Pixel) + GetGValue(Pixel) + GetBValue(Pixel)) * SobelX[i, j]; SumY := SumY + (GetRValue(Pixel) + GetGValue(Pixel) + GetBValue(Pixel)) * SobelY[i, j]; end; end; Pixel := RGB(Round(Sqrt(Sqr(SumX) + Sqr(SumY))), Round(Sqrt(Sqr(SumX) + Sqr(SumY))), Round(Sqrt(Sqr(SumX) + Sqr(SumY)))); NewImage.Canvas.Pixels[X, Y] := Pixel; end; end; AImage.Assign(NewImage); finally NewImage.Free; end;end;

В результате выполнения данного кода получится изображение, в котором границы объектов будут выделены более ярко и четко, что может быть полезно в различных приложениях, в том числе в машинном зрении и анализе изображений.

How To Install FastReport 6.9.14 VCL Enterprise in Delphi 11.2 Alexandria

Как сделать нейросеть в Delphi

Программирование в Delphi Урок 2-1. Переменные, присвоение, условный оператор IF THEN ELSE.

Вебинар \

Построение графиков функции в Delphi часть 1

Самая простая схема фото реле.

Реклама
Новое
Реклама