// 32 ビットの DLL をここにコピー
    %SystemRoot%\System32

    // 32 ビットの EXE を作成する場合は, 32 ビットの DLL をここにコピー
    %SystemRoot%\SysWOW64    

    // 64 ビットの EXE を作成する場合は, 64 ビットの DLL をここにコピー
    %SystemRoot%\System32

\source
\source\classes
\source\component
\source\ffmpeg\headers
\source\opengl
\source\sdl
\source\sdl2
\source\utils
\resource\facedetectxml

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  // 本サンプルで全てが必要なわけではない
  System.SysUtils,
  System.Character,
  System.Math,
  ocv.core.types_c,
  ocv.core_c,
  ocv.highgui_c,
  ocv.objdetect_c,
  ocv.imgproc_c,
  ocv.imgproc.types_c,
  ocv.utils;

var
  LFilePath  : AnsiString;
  LpIplImage : pIplImage;

begin
  try
    // 読み込む画像のファイル名
    // AnsiString 型を使用する
    LFilePath := AnsiString('d:\Opencv\resource\media\lena.jpg');
    // 画像を読み込む
    LpIplImage := cvLoadImage(PAnsiChar(LFilePath),
                              CV_LOAD_IMAGE_ANYCOLOR or CV_LOAD_IMAGE_ANYDEPTH);

    // 画像表示用のウィンドウを生成
    cvNamedWindow('lena', CV_WINDOW_AUTOSIZE);

    // 生成したウィンドウに画像を表示
    cvShowImage('lena', LpIplImage);

    // キー入力待ち
    cvWaitKey(0);

    // 画像表示用のウィンドウを破棄
    cvDestroyWindow('lena');

    // 生成した画像データを解放
    cvReleaseImage(LpIplImage);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

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

var
  Form1: TForm1;

implementation

uses
  System.Character,
  System.Math,
  ocv.core.types_c,
  ocv.core_c,
  ocv.highgui_c,
  ocv.objdetect_c,
  ocv.imgproc_c,
  ocv.imgproc.types_c,
  ocv.utils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LFilePath  : AnsiString;
  LpIplImage : pIplImage;
  LBitmap    : TBitmap;
begin
  // 読み込む画像のファイル名
  // AnsiString 型を使用する
  LFilePath := AnsiString('d:\Opencv\resource\media\lena.jpg');
  // 画像を読み込む
  LpIplImage := cvLoadImage(PAnsiChar(LFilePath),
                            CV_LOAD_IMAGE_ANYCOLOR or CV_LOAD_IMAGE_ANYDEPTH);

  LBitmap := TBitmap.Create;
  try
    LBitmap.PixelFormat := pf24bit;
    // TBitmap に変換
    IplImage2Bitmap(LpIplImage, LBitmap);

    Image1.Canvas.Draw(0, 0, LBitmap);
  finally
    // 生成した画像データを解放
    cvReleaseImage(LpIplImage);
    FreeAndNil(LBitmap);
  end;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
  ocv.comp.Types, ocv.comp.Source, ocv.comp.View,
  ocv.core.types_c,
  ocv.core_c,
  ocv.highgui_c,
  ocv.objdetect_c,
  ocv.imgproc_c,
  ocv.imgproc.types_c,
  ocv.cls.highgui,
  ocv.cls.core,
  ocv.cls.contrib,
  ocv.cls.types,
  ocv.utils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ocvView1: TocvView;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  ocvView1.Anchors := [akTop, akBottom, akLeft, akRight];
  ocvView1.Stretch := False;
end;

//=============================================================================
//  画像を TocvView コントロールに表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFilePath  : AnsiString;
  LpIplImage : pIplImage;
  LIocvImage : IocvImage;
begin
  // 画像を読み込む
  LFilePath  := 'd:\Opencv\resource\media\apple_cropped.jpg';
  LpIplImage := cvLoadImage(PAnsiChar(LFilePath), CV_LOAD_IMAGE_ANYCOLOR);

  // 画像の型を pIplImage から IocvImage に変換
  // IocvImage は TocvView が自動解放するので明示的な解放処理は不要
  LIocvImage := TocvImage.Create(LpIplImage) as IocvImage;
  // 画像を TocvView コントロールに表示
  ocvView1.DrawImage(LIocvImage);
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
  ocv.comp.Types, ocv.comp.Source, ocv.comp.View,
  ocv.core.types_c,
  ocv.core_c,
  ocv.highgui_c,
  ocv.objdetect_c,
  ocv.imgproc_c,
  ocv.imgproc.types_c,
  ocv.cls.highgui,
  ocv.cls.core,
  ocv.cls.contrib,
  ocv.cls.types,
  ocv.utils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ocvView1: TocvView;
    ocvFileSource1: TocvFileSource;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  ocvView1.Anchors   := [akTop, akBottom, akLeft, akRight];
  ocvView1.Stretch   := False;
  ocvView1.VideoSource := ocvFileSource1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // 動画の再生を終了させる
  ocvFileSource1.Enabled := False;
end;

//=============================================================================
//  TocvView コントロールで動画を再生
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFilePath : AnsiString;
begin
  ocvFileSource1.Enabled := False;
  ocvFileSource1.Loop    := True;
  // 再生速度
  ocvFileSource1.Delay := 120;

  // 再生する動画ファイルを指定
  LFilePath  := 'd:\Opencv\resource\media\768x576.avi';
  ocvFileSource1.FileName := LFilePath;

  // 動画の再生を開始
  ocvFileSource1.Enabled := True;
end;

end.

  // 変数の型の変更
  // この変更をしても Delphi 2007 以前で使用可能
  string --> AnsiString
  PChar  --> PAnsiChar
  Char   --> AnsiChar


  // uses 部の変更
  // Delphi XE2 以降で使用する場合はユニットスコープ名を付ける
  uses
    Windows, Sysutils, Math, Vcl.Graphics, IPL;
         ↓ 変更
  uses
    Winapi.Windows, System.SysUtils, System.Math, Vcl.Graphics, IPL;