Delphi-OpenCV/samples/MorphologyEx/MorphologyEx.dpr

program MorphologyEx;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  Core.types_c in '..\..\include\<5C>ore\Core.types_c.pas',
  core_c in '..\..\include\<5C>ore\core_c.pas',
  highgui_c in '..\..\include\highgui\highgui_c.pas',
  imgproc.types_c in '..\..\include\imgproc\imgproc.types_c.pas',
  imgproc_c in '..\..\include\imgproc\imgproc_c.pas';

Const
  // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  filename = 'opencv_logo_with_text.png';

Var

  image: PIplImage = nil;
  open: PIplImage = nil;
  close: PIplImage = nil;
  gradient: PIplImage = nil;
  tophat: PIplImage = nil;
  blackhat: PIplImage = nil;

  radius: Integer = 1;
  radius_max: Integer = 10;
  iterations: Integer = 1;
  iterations_max: Integer = 10;

  Kern: PIplConvKernel;
  Temp: PIplImage;
  c:Integer;

  //
  // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -
  // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
procedure myTrackbarRadius(pos: Integer); cdecl;
begin
  radius := pos;
end;

//
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure myTrackbarIterations(pos: Integer); cdecl;
begin
  iterations := pos;
end;

begin
  try
    // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    image := cvLoadImage(filename, 1);
    Writeln('[i] image: ', filename);
    if not Assigned(image) then
      Halt;
    // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    open := cvCloneImage(image);
    close := cvCloneImage(image);
    gradient := cvCloneImage(image);
    tophat := cvCloneImage(image);
    blackhat := cvCloneImage(image);

    // <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    cvNamedWindow('original', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('CV_MOP_OPEN', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('CV_MOP_CLOSE', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('CV_MOP_GRADIENT', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('CV_MOP_TOPHAT', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('CV_MOP_BLACKHAT', CV_WINDOW_AUTOSIZE);

    cvCreateTrackbar('radius', 'original', @radius, radius_max, myTrackbarRadius);
    cvCreateTrackbar('iterations', 'original', @iterations, iterations_max, myTrackbarIterations);

    while True do
    begin
      // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
      cvShowImage('original', image);
      // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
      Kern := cvCreateStructuringElementEx(radius * 2 + 1, radius * 2 + 1, radius, radius,
        CV_SHAPE_ELLIPSE);

      // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> cvCreateImage
      Temp := cvCreateImage(cvSize(image^.width, image^.height), IPL_DEPTH_8U, 1);
      // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
      cvMorphologyEx(image, open, Temp, Kern, CV_MOP_OPEN, iterations);
      cvMorphologyEx(image, close, Temp, Kern, CV_MOP_CLOSE, iterations);
      cvMorphologyEx(image, gradient, Temp, Kern, CV_MOP_GRADIENT, iterations);
      cvMorphologyEx(image, tophat, Temp, Kern, CV_MOP_TOPHAT, iterations);
      cvMorphologyEx(image, blackhat, Temp, Kern, CV_MOP_BLACKHAT, iterations);

      // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
      cvShowImage('CV_MOP_OPEN', open);
      cvShowImage('CV_MOP_CLOSE', close);
      cvShowImage('CV_MOP_GRADIENT', gradient);
      cvShowImage('CV_MOP_TOPHAT', tophat);
      cvShowImage('CV_MOP_BLACKHAT', blackhat);

      cvReleaseStructuringElement(Kern);
      cvReleaseImage(Temp);

      c := cvWaitKey(33);
      if (c = 27) then
        Break;
    end;

    // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    cvReleaseImage(&image);
    cvReleaseImage(&open);
    cvReleaseImage(&close);
    cvReleaseImage(&gradient);
    cvReleaseImage(&tophat);
    cvReleaseImage(&blackhat);
    // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
    cvDestroyAllWindows();
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.