// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
program cv_LoadImage2;

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

uses
  System.SysUtils,
  Core.types_c in '..\..\..\include\сore\Core.types_c.pas',
  core_c in '..\..\..\include\сore\core_c.pas',
  highgui_c in '..\..\..\include\highgui\highgui_c.pas',
  uLibName in '..\..\..\include\uLibName.pas',
  types_c in '..\..\..\include\сore\types_c.pas';

Const
  filename = 'Resource\opencv_logo_with_text.png';

Var
  image: pIplImage = nil;
  src: pIplImage = nil;

begin
  try
    // получаем картинку
    image := cvLoadImage(filename, 1);
    if Assigned(image) then
    begin
      // клонируем картинку
      src := cvCloneImage(image);
      if Assigned(src) then
      begin
        // окно для отображения картинки
        cvNamedWindow('original', CV_WINDOW_AUTOSIZE);
        // показываем картинку
        cvShowImage('original', image);
        // выводим в консоль информацию о картинке
        WriteLn('src');
        with src^ do
        begin
          WriteLn(Format('[i] channels: %d', [nChannels]));
          WriteLn(Format('[i] pixel depth: %d bits', [depth]));
          WriteLn(Format('[i] width: %d pixels', [width]));
          WriteLn(Format('[i] height: %d pixels', [height]));
          WriteLn(Format('[i] image size: %d bytes', [imageSize]));
          WriteLn(Format('[i] width step: %d bytes', [widthStep]));
        end;
        WriteLn;
        WriteLn('original');
        with src^ do
        begin
          WriteLn(Format('[i] channels: %d', [nChannels]));
          WriteLn(Format('[i] pixel depth: %d bits', [depth]));
          WriteLn(Format('[i] width: %d pixels', [width]));
          WriteLn(Format('[i] height: %d pixels', [height]));
          WriteLn(Format('[i] image size: %d bytes', [imageSize]));
          WriteLn(Format('[i] width step: %d bytes', [widthStep]));
        end;
        // ждём нажатия клавиши
        cvWaitKey(0);
        // освобождаем ресурсы
        cvReleaseImage(image);
        cvReleaseImage(src);
        // удаляем окно
        cvDestroyWindow('original');
      end;
    end;
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;

end.