Delphi-OpenCV/samples/LoadImage/LoadImage.dpr

program LoadImage;

{$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';

Const
  filename = '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.